habe folgendes makro zum filtern/kopieren von daten:
Sub FilternKopieren()
ActiveWorkbook.Worksheets.Add _
after:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)
ActiveSheet.Name = ("SAKW" & ActiveWorkbook.Worksheets.Count - 2)
Dim strCriteria1
Dim strCriteria2
strCriteria1 = (CDate(InputBox("Bitte Startdatum eingeben", "Suchkritierium", Format(Now(), "DD.MM.YYYY"))))
strCriteria2 = (CDate(InputBox("Bitte Enddatum eingeben", "Suchkritierium", Format(Now(), "DD.MM.YYYY"))))
With Worksheets("allestoe").Range("A1").CurrentRegion
.AutoFilter Field:=6, Criteria1:=">=" & _
CDbl(DateValue(strCriteria1)), Operator:=xlAnd, _
Criteria2:="<=" & CDbl(DateValue(strCriteria2))
.SpecialCells(xlCellTypeVisible).Copy _
ActiveSheet.Range("A1")
Worksheets("allestoe").AutoFilterMode = False
End With
Sheets("uebersicht").Select
Range("B1").Select
End Sub
ich kopiere damit daten aus einem blatt in die blätter nach kalenderwochen.
besteht eine chance dass das makro in einer schleife läuft, bis alle blätter entspr. der kw´s angelegt sind?