Thema Datum  Von Nutzer Rating
Antwort
Rot Abfrage über Inputbox mit mehreren Eingabemöglichkeiten
 12.03.2014 15:05:00 Stefanie
NotSolved
12.03.2014 17:58:59 frau
*****
Solved
13.03.2014 08:13:01 Stefanie
NotSolved

Ansicht des Beitrags:
Von:
Stefanie		 Datum:
12.03.2014 15:05:00		 Views:
2383		 Rating:
     
Antwort:
  Ja
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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    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

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Abfrage über Inputbox mit mehreren Eingabemöglichkeiten
 12.03.2014 15:05:00 Stefanie
NotSolved
12.03.2014 17:58:59 frau
*****
Solved
13.03.2014 08:13:01 Stefanie
NotSolved