ich bekomme den zweiten CountIf einfach nicht zum Laufen. Der erste Sucht Buchstaben und der Zweite dann Zahlen.
Mit den Buchstaben durchläuft er meine Schleife wunderbar, bei den Zahlen durchläuft er sie einfach immer.
Hab jetzt schon einiges ausprobiert Zelle1 als Value1 und als Value2, vor das "Zelle2.Value2" ein ">=" gesetzt, aber irgendwie will nichts so recht funktionieren und was anderes ergibt die Google Suche auch nicht mehr.
Dim Zelle1 As Range 'Für die Filterung
Dim Zelle2 As Range
Dim Test1 As Double
Dim Nummernkreis As String
'** Nach Verantwortung filtern (E, M und E/M)
For Each Zelle1 In Range("Kriterien")
Sheets("Wartungskarte").Range("B30").AutoFilter Field:=2, Criteria1:=Zelle1.Value
If WorksheetFunction.CountIf(Sheets("Wartungskarte").Columns(2), Zelle1.Value) > 0 Then
'*** Nach Intervall filtern
For Each Zelle2 In Range("Intervall")
Sheets("Wartungskarte").Range("E30").AutoFilter Field:=5, Criteria1:=Zelle2.Value2
Test1 = WorksheetFunction.CountIf(Sheets("Wartungskarte").Columns(5), Zelle2.Value2)
If Test1 > 0 Then
Worksheets("Wartungskarte").Copy
Nummernkreis = InputBox("Bitte Nummernkreis eingeben für:" & Chr(13) & " _
Verantwortlich: " & Zelle1.Value & " (M: Mechaniker; E: Elektriker)" & Chr(13) & "Intervall: " & Zelle2.Value & " Wochen")
Range("B7").Value = Nummernkreis
Danke für eure HilfeGruß Lars