Thema Datum  Von Nutzer Rating
Antwort
15.05.2017 11:22:52 Stefanie
NotSolved
15.05.2017 12:26:21 Crazy Tom
*****
NotSolved
15.05.2017 12:48:24 Gast40008
NotSolved
15.05.2017 12:54:27 Stefanie
NotSolved
Rot Combobox If...Then...
 15.05.2017 13:15:19 Crazy Tom
*****
NotSolved
15.05.2017 13:44:15 Stefanie
NotSolved
15.05.2017 13:53:15 Crazy Tom
*****
NotSolved
15.05.2017 14:18:00 Stefanie
NotSolved
15.05.2017 14:25:53 Crazy Tom
*****
NotSolved
15.05.2017 14:30:05 Gast44044
NotSolved
23.06.2017 15:19:32 Ranger12
NotSolved
15.05.2017 14:30:55 Stefanie
*****
NotSolved
15.05.2017 18:49:34 Crazy Tom
NotSolved
15.05.2017 19:01:42 Gast78578
NotSolved
15.05.2017 19:05:51 Stefanie
NotSolved
15.05.2017 19:47:38 Crazy Tom
NotSolved
15.05.2017 20:03:34 Stefanie
NotSolved
15.05.2017 20:31:27 Crazy Tom
NotSolved
15.05.2017 21:37:45 Stefanie
NotSolved

Ansicht des Beitrags:
Von:
Crazy Tom		 Datum:
15.05.2017 13:15:19		 Views:
634		 Rating:
     
Antwort:
  Ja
Thema:
Combobox If...Then...

Hallo

 

in meinem Test steht in Tabelle2 in Zelle A1 = Obst in Zelle A2 = Gemüse

in der Combobox1 gibst du dann als ListFillRange = "Tabelle2!$A$1:$A$2"

in Tabelle2 in den Spalten B1 bis B3 die Obstsorten und in den Zellen C1 bis C4 schreibst du vier Gemüsesorten

in dem Tabellenmodul wo die Comboboxen sind dann folgenden Code

und nicht vergessen den Entwurfsmodus zu beenden

 

Private Sub ComboBox1_Change()
    Select Case ComboBox1.ListIndex
        Case 0
            ComboBox2.ListFillRange = "Tabelle2!$B$1:$B$3"
        Case 1
            ComboBox2.ListFillRange = "Tabelle2!$C$1:$C$4"
        Case Else
    End Select
End Sub

 

MfG Tom

 

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:



  • 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
15.05.2017 11:22:52 Stefanie
NotSolved
15.05.2017 12:26:21 Crazy Tom
*****
NotSolved
15.05.2017 12:48:24 Gast40008
NotSolved
15.05.2017 12:54:27 Stefanie
NotSolved
Rot Combobox If...Then...
 15.05.2017 13:15:19 Crazy Tom
*****
NotSolved
15.05.2017 13:44:15 Stefanie
NotSolved
15.05.2017 13:53:15 Crazy Tom
*****
NotSolved
15.05.2017 14:18:00 Stefanie
NotSolved
15.05.2017 14:25:53 Crazy Tom
*****
NotSolved
15.05.2017 14:30:05 Gast44044
NotSolved
23.06.2017 15:19:32 Ranger12
NotSolved
15.05.2017 14:30:55 Stefanie
*****
NotSolved
15.05.2017 18:49:34 Crazy Tom
NotSolved
15.05.2017 19:01:42 Gast78578
NotSolved
15.05.2017 19:05:51 Stefanie
NotSolved
15.05.2017 19:47:38 Crazy Tom
NotSolved
15.05.2017 20:03:34 Stefanie
NotSolved
15.05.2017 20:31:27 Crazy Tom
NotSolved
15.05.2017 21:37:45 Stefanie
NotSolved