Hallo!
Bin mit VBA noch relativ am Anfang und habe ein Problem.
Ich möchte eine Abfrage nach einem oder mehreren Sortierkriterien machen, mit denen dann weitergearbeitet wird.
Schaut momentan noch so aus, funktioniert aber nicht:
Dim number
Dim number2
Dim number3
Dim number4
number = InputBox("Bitte Org.Nr. eingeben")
a = MsgBox("Weitere Organisationen?", vbYesNo)
If a = vbNo Then
ActiveSheet.Range("$A$1:$Q$1000000").AutoFilter Field:=6, Criteria1:=number
Else:
number2 = InputBox("Bitte 2. Org.Nr. eingeben")
b = MsgBox("Weitere Organisationen?", vbYesNo)
If b = vbNo Then
ActiveSheet.Range("$A$1:$Q$1000000").AutoFilter Field:=6, Criteria2:=number2
Else:
number3 = InputBox("Bitte 3. Org.Nr. eingeben")
c = MsgBox("Weitere Organisationen?", vbYesNo)
If c = vbNo Then
ActiveSheet.Range("$A$1:$Q$1000000").AutoFilter Field:=6, Criteria3:=number3
Else:
number4 = InputBox("Bitte 4. Org.Nr. eingeben")
d = MsgBox("Sie können nur 4 Organisationsnummern eingeben")
ActiveSheet.Range("$A$1:$Q$1000000").AutoFilter Field:=6, Criteria4:=number4
End if
Kann man das so irgendwie umsetzen oder muss ich da ganz anders denken? Stehe momentan total auf der Leitung...
Vielen Dank im Voraus!
Liebe Grüße
Stefanie
|