AW: Daten aus 4 Excel-Dateien importieren
02.07.2007 18:58:11
Chaos
Servus,
Sub aktuell()
Dim n As String
n = ActiveWorkbook.Name
Dim zeile As Integer, reihe As Integer
Workbooks.Open Filename:= C:\keine Ahnung, welcher Pfad\datei1.xls
With ActiveWorkbook.Sheets("Tabelle1")' z.B. oder anderer Tabellenname
reihe = ActiveWorkbook.Sheets("Tabelle1").Range("A65536").End(xlUp).Offset(0, 0).Row
For zeile = 2 To reihe Step 1 ' gheh mal davon aus in Zeile1 steht eine Überschrift
If ActiveWorkbook.Cells(zeile, 1).Value = "Schmidt" Then
ActiveWorkbook.Cells(zeile, 1).EntireRow.Copy Destination:= Workbooks(n). _
Sheets("Tabelle1").Range("A65536").End(xlUp).Offset(1, 0) ' kopiert nach erster freier Zelle in Spalte A
Next zeile
ActiveWorkbook.Close
End with
' ... und das Ganze 4Mal insgesamt mit den jeweiligen Dateien und Pfaden, wenn du es genauer _
brauchst, weil du kaum Kenntnisse hast, brauch ich mehr Angaben, z.B. Tabellennamen, Dateinamen, Pfade, bzw. am besten auch eine Beispielmappe.
End Sub
Gruß
Chaos