Hi Max, Hi Holger,
danke fuer eure Antworten. Habe jetzt mal eine Loesung bekommen:
Sub sammel()
Dim i, zeile
For i = 1 To 3
Workbooks("quelle.xls").Sheets("q" & i).UsedRange.Copy Sheets("z1").Range("A" & Sheets("z1").Cells(Rows.Count, 1).End(xlUp).Row + 1)
Next
For Each zeile In Sheets("z1").UsedRange.Rows
If Sheets("z1").Range("B" & zeile.Row) = "aa" Then zeile.Copy Sheets("z2").Range("A" & Sheets("z2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
If Sheets("z1").Range("B" & zeile.Row) = "bb" Then zeile.Copy Sheets("z3").Range("A" & Sheets("z3").Cells(Rows.Count, 1).End(xlUp).Row + 1)
If Sheets("z1").Range("B" & zeile.Row) = "cc" Then zeile.Copy Sheets("z4").Range("A" & Sheets("z4").Cells(Rows.Count, 1).End(xlUp).Row + 1)
If Sheets("z1").Range("B" & zeile.Row) = "dd" Then zeile.Copy Sheets("z5").Range("A" & Sheets("z5").Cells(Rows.Count, 1).End(xlUp).Row + 1)
If Sheets("z1").Range("B" & zeile.Row) = "ee" Then zeile.Copy Sheets("z6").Range("A" & Sheets("z6").Cells(Rows.Count, 1).End(xlUp).Row + 1)
Next
End Sub
Aber wie muesste ich den Code modifizieren, wenn ich nur besimmte spalten importieren will?
Beispiel:
-In Tabellenblatt z2 der Datei Ziel.xls sollen nur die Spalten A, B, und D von q1, q2 und q3 eingefuegt werden, die in der jeweiligen Spalte B die Werte aa enthalten.
|