Thema Datum  Von Nutzer Rating
Antwort
Rot dropdown
 16.04.2017 23:05:00 cemil
NotSolved
17.04.2017 01:21:17 Gast32076
NotSolved
17.04.2017 09:48:18 Crazy Tom
NotSolved

Ansicht des Beitrags:
Von:
cemil		 Datum:
16.04.2017 23:05:00		 Views:
1151		 Rating:
     
Antwort:
  Ja
Thema:
dropdown
Hallo an alle ich bin Anfänger bei VBA und habe eine Frage bezüglich des Dropdown Menu. Ich will keine Userinput haben. Ich habe meine Drop down menus in Excel eingefügt. In VBA ein Sub start erstellt und habe meine Strings eingelesen.( Das funktioniert super gut). Sieht es so aus. Worksheets("Tabelle2").Activate lastrow = ThisWorkbook.Sheets("Tabelle2").Cells(Rows.Count, 3).End(xlUp).Row lastcolumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column Worksheets("Tabelle2").Activate xi = lastcolumn - 1 For x = 1 To lastcolumn With Columns(x) rw1 = Cells(Rows.Count, x).End(xlUp).Row With Range(Cells(1, x), Cells(rw1, x)) Range(Cells(1, x), Cells(rw1, x)).Select Selection.CreateNames Top:=True End With End With Next x xi = lastcolumn + 1 Worksheets("Tabelle1").Activate Set wks = ThisWorkbook.Worksheets("Tabelle1") Set Combo1 = wks.OLEObjects("ComboBox1") Set Combo2 = wks.OLEObjects("ComboBox2") Set Combo3 = wks.OLEObjects("ComboBox3") Combo1.ListFillRange = "ABGASNORM" Combo2.ListFillRange = "Grenzwertart" End Sub Wie ich oben erwähnt habe, wollte ich dependent Dropdowns erstellen. Das heisst wenn ich bei erste Dropdown etwas auswähle würde ich bei Dropdown menu 3 dazugehörige strings sehen. Dafür habe ich was programmiert. Aber es funktioniert nicht. Private Sub ComboBox1_Change() Set wks = ThisWorkbook.Worksheets("Tabelle1") Set Combo1 = wks.OLEObjects("ComboBox1") Set Combo2 = wks.OLEObjects("ComboBox2") Set Combo3 = wks.OLEObjects("ComboBox3") Combo1.ListFillRange = "ABGASNORM" Combo2.ListFillRange = "Grenzwertart" Select Case Combo1.ListFillRange Case "Europa" Combo3.ListFillRange = "Europa" Case "US Federal TIERII" Combo3.ListFillRange = "US_Federal_TIERII" Case "US Federal TIERIII" Combo3.ListFillRange = "US_Federal_TIERIII" Case "US CARB LEVII 120k" Combo3.ListFillRange = "US_CARB_LEVII_120k" Case "US CARB LEVII 150k" Combo3.ListFillRange = "US_CARB_LEVII_150k" Case "CHINA" Combo3.ListFillRange = "CHINA" Case "KOREA LEVII" Combo3.ListFillRange = "KOREA_LEVII" Case "KOREA LEVIII" Combo3.ListFillRange = "KOREA_LEVIII" Case "US CARB LEVIII" Combo3.ListFillRange = "US_CARB_LEVIII" End Select End Sub Weiss nicht wieso es nicht funktioniert. Kann jemand mir bitte helfen?

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
Rot dropdown
 16.04.2017 23:05:00 cemil
NotSolved
17.04.2017 01:21:17 Gast32076
NotSolved
17.04.2017 09:48:18 Crazy Tom
NotSolved