Sub DatenHolen_neu()
  Dim i As Long, lngZ As Long
  Dim strCurPath As String
  Dim strNewPath As String
  Dim varDateien As Variant
  Dim wsZiel As Worksheet
  strCurPath = CurDir
  strNewPath = "X:\02_Berichtwesen\Berichte_aktuell\Berichte 2025"
  ChDrive strNewPath
  ChDir strNewPath
  varDateien = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , , , True)
  ChDrive strCurPath
  ChDir strCurPath
  If IsArray(varDateien) Then
    ' Wenn das Makro in der Zieldatei steht, kann die Datei ThisWorkbook genannt werden.
    Set wsZiel = ThisWorkbook.Sheets("Alle_Einsätze")
    lngZ = wsZiel.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To UBound(varDateien)
      With Workbooks.Open(varDateien(i), , True).Worksheets("Bericht1")
        ' Cells wird wie folgt verwendet Cells(Zeilennummer, Spaltennummer)
        ' Die erste Zahl in der Klammer zeigt die Zeile, die zweite die Spalte
        wsZiel.Cells(lngZ + i, 1) = .Cells(5, 45)
        wsZiel.Cells(lngZ + i, 2) = .Cells(5, 36)
        wsZiel.Cells(lngZ + i, 3) = .Cells(27, 34)
        wsZiel.Cells(lngZ + i, 4) = .Cells(12, 39)
        wsZiel.Cells(lngZ + i, 6) = .Cells(12, 44)
        wsZiel.Cells(lngZ + i, 7) = .Cells(17, 44)
        wsZiel.Cells(lngZ + i, 9) = .Cells(30, 20)
        wsZiel.Cells(lngZ + i, 10) = .Cells(56, 12)
        wsZiel.Cells(lngZ + i, 11) = .Cells(56, 14)
        wsZiel.Cells(lngZ + i, 12) = .Cells(56, 16)
        wsZiel.Cells(lngZ + i, 13) = .Cells(57, 12)
        wsZiel.Cells(lngZ + i, 14) = .Cells(10, 7)
        wsZiel.Cells(lngZ + i, 15) = .Cells(10, 35)
        ' Datei schließen, ohne Änderungen zu speichern
        .Parent.Close False
      End With
    Next i
  End If
End Sub