Daten kopieren

Private Sub cmb_import_Click()
Dim wbQuelldatei    As Workbook
Dim wbZieldatei     As Workbook
Dim strPfadQuelle   As String
Dim i               As Integer
Dim intLastQuelle   As Integer
Dim intLastZiel     As Integer
Dim intAuswahl      As Integer
'strPfadQuelle = "C:\Test\Daten.xlsx" 'Pfad
With Application.FileDialog(msoFileDialogOpen)
'        .AllowMultiSelect = True
.InitialFileName = "C:\Test\"
.Show
For intAuswahl = 1 To .SelectedItems.Count
Set wbQuelldatei = GetObject(.SelectedItems(intAuswahl))
Set wbZieldatei = ActiveWorkbook
'Set wbQuelldatei = Workbooks.Open(strPfadQuelle)
intLastQuelle = wbQuelldatei.Sheets(1).UsedRange.Rows.Count 'Ermittlung der letzten  _
beschriebenen Zeile (Quelldatei)
intLastZiel = wbZieldatei.Sheets(2).UsedRange.Rows.Count 'Ermittlung der letzten beschriebenen  _
Zeile (Zieldatei)
With wbQuelldatei.Sheets(1)
For i = 2 To intLastQuelle
If .Cells(i, 1).Value = 1 Then
.Cells(i, 1).EntireRow.Copy
wbZieldatei.Sheets(2).Cells(intLastZiel + 1, 1).EntireRow.Insert
intLastZiel = intLastZiel + 1
End If
Next i
End With
End Sub