'Wartungskarten für E, M und M/E erstellen
Dim lngCriteriaCount As Long
Dim arrCriteria() As String
'Anzahl der Kriterien festlegen
lngCriteriaCount = 3
' Filterkriterien festlegen
arrCriteria(0) = "E"
arrCriteria(1) = "M"
arrCriteria(2) = "E/M"
Worksheets("Wartungskarte").ListObjects("Tabelle4").Range.AutoFilter Field:=1, Criteria1:= _
arrCriteria()
'Sortieren
With Tabelle4
Range("A29:K999").Sort _
Key1:=Range("E" & "1"), Order1:=xlAscending, _
Header:=xlYes
End With
Worksheets("Wartungskarte").Copy
ActiveWindow.Caption = InputBox("Nummernkreis eingeben", "Blattname")
Ich versuche mich gerade an einer Schleife. Ich habe eine Tabelle ("Wartungskarten"), die drei Kategorien hat (E, M und E/M). Ich möchte diese nun nach der Kategorie filtern, nach Intervall ("E") sortieren, als neue Mappe (nur mit E, M oder E/M) öffnen und umbenennen. Den Filter setzen, Sortieren, Kopieren und Umbenennen habe ich in einzelnen Schritten hinbekommen. Wie kann ich das jetzt aber als Schleife gestalten? Ich scheitere daran den Filter mit den Kriterien zu füttern.
Ist das überhaupt möglich? Oder seht ihr hier noch ein "besseren" Weg?
Danke für eure Zeit/Hilfe!
Gruß lars