Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Abfrage über Inputbox mit mehreren Eingabemöglichkeiten |
12.03.2014 15:05:00 |
Stefanie |
|
|
|
12.03.2014 17:58:59 |
frau |
|
|
|
13.03.2014 08:13:01 |
Stefanie |
|
|
Von:
Stefanie |
Datum:
12.03.2014 15:05:00 |
Views:
2003 |
Rating:
|
Antwort:
|
Thema:
Abfrage über Inputbox mit mehreren Eingabemöglichkeiten |
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Abfrage über Inputbox mit mehreren Eingabemöglichkeiten |
12.03.2014 15:05:00 |
Stefanie |
|
|
|
12.03.2014 17:58:59 |
frau |
|
|
|
13.03.2014 08:13:01 |
Stefanie |
|
|