Sub kopieren()
Dim i As Double
Dim j As Integer
Dim Book As String
Book = active.Workbook.Name
For j = 1 To ActiveWorkbook.Sheets.Count
Workbook(Book).Activate
Sheets(j).Activate
If ActiveSheet.AutoFilterMode = True Then
Selection.AutoFilter
End If
Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=""
Cells.Select
Selection.Copy
Workbook("Name deiner anderen Mappe").Activate
Sheets("Name des Blattes").Activate
Range("A1").Select
ActiveSheet.Paste
Next j
End Sub
Dieses Makro sollte in die Datei eingefuegt werden in der die zu kopierenden Blaetter sind.
ACHTUNG !!! Sicherheitkopie vorher erstellen.
Das Makro muss an einigen stellen durch die Namen deiner Excel Dateien und Blaetter ergaenzt werden.
Gruß
Yusuf
Sub kopieren()
Dim i As Double
Dim j As Integer
Dim Book As String
Book = ActiveWorkbook.Name
For j = 1 To ActiveWorkbook.Sheets.Count
Workbooks(Book).Activate
Sheets(j).Activate
If ActiveSheet.AutoFilterMode = True Then
Selection.AutoFilter
End If
Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=""
Cells.Select
Selection.Copy
Workbook("Name deiner anderen Mappe").Activate
Sheets("Name des Blattes").Activate
Range("A1").Select
ActiveSheet.Paste
Next j
End Sub
Es war ein Punkt zuviel und es fehlte ein s.
Die fehlerhaften Stellen sind korrigiert und fett.
Gruß
Yusuf