abhängige Combobox in der Userform

Private Sub UserForm_Activate() 'combo befüllen ComboBox1.List = A_Datenbank.ListObjects("tbl1").DataBodyRange.Value ComboBox2.List = A_Datenbank.ListObjects("tbl2").DataBodyRange.Value 'Daten befüllen With B_Laufender_Posten TextBoxID.Value = .Cells(p_aktuelleZeile, 16).Value ComboBox1.Value = .Cells(p_aktuelleZeile, 9).Value TextBox1.Value = .Cells(p_aktuelleZeile, 15).Value TextBox2.Value = .Cells(p_aktuelleZeile, 13).Value TextBox3.Value = .Cells(p_aktuelleZeile, 14).Value ComboBox2.Value = .Cells(p_aktuelleZeile, 10).Value End With End Sub

Private Sub UserForm_Initialize() ' id befüllen TextBoxID.Value = WorksheetFunction.Max(B_Laufender_Posten.Columns(1)) + 1 'combo befüllen ComboBox1.List = A_Datenbank.ListObjects("tbl1").DataBodyRange.Value ComboBox1.ListIndex = 0 ComboBox2.List = A_Datenbank.ListObjects("tbl2").DataBodyRange.Value ComboBox2.ListIndex = 0 End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Du schreibst: "Das war jetzt das einfachste für mich"
ja, hab ich gemerkt, aber..ähh, sorry...wenn du möchtest, dass wir nicht zu faul sind, dir zu helfen, dann sei auch du bitte nicht zu faul, gescheite Daten zu liefern.
Danke für die neue Bsp-Datei - damit konnte ich nicht nur viel besser arbeiten, sondern nur damit konnte ich arbeiten. Ich wollt dich mit Hinweis "nur A,B,C als Einträge reichen nicht" nicht ärgern, es war schlicht nicht möglich, mit solchen Daten etwas zu programmieren.
...guckst du hier...
https://www.herber.de/bbs/user/155740.xlsm
Nach Klick auf den Button in Tabelle1 öffnet sich das Userform, und alle Controls werden so gefüllt, wie du es schon kennst.
Wenn du nun im Userform auf den Button "Bearbeiten" klickst, öffnet sich das andere Userform - und erst mal sieht auch hier nix anders aus.
Aber öffne jetzt mal die ComboBox "Bezirk"...
Es werden - wie gewünscht - nur die Bezirke oder Bundesländer oder wie man es nennen mag von dem Land angezeigt, welches in der anderen ComboBox ausgewählt ist.
So, noch nicht Userform schließen...wähl in der ComboBox "Land" erst mal ein anderes Land aus.
Und öffne nun wieder die ComboBox "Bezirk" - und wieder werden nur die zum gerade geänderten Land gültigen Bezirke zur Auswahl angeboten :-)
Konnte ich helfen?

With Sheets("Tabelle2") 'wenn im Original anderer Blattname, dann hier anpassen For Each lliobLand In .ListObjects If InStr(lliobLand.Name, landname) Then fcFillComboBezirk = .ListObjects(lliobLand.Name).DataBodyRange.Value Exit For End If Next End With

Hi Maurice,
ok, ich versuch mal zu erklären - würden wir zusammen vorm PC sitzen, wär das kein Problem :-), aber mit Schreiben zu erklären = ?...mal schauen, ob ich das hinbekomme :-)
1. jede Codezeile, die zwischen...


With Sheets("Tabelle2")
End With

...steht und mit einem . beginnt, bezieht sich nur auf das Blatt "Tabelle2"
2. mit...


For Each lliobLand In .ListObjects

...werden alle intelligenten Tabellen (und nur die) im Blatt "Tabelle2" überprüft
Innerhalb For Each / Next kann man jetzt alles abfragen, was diese intelligenten Tabellen betrifft.
Mich interessiert aber nur der Name jeder intelligenten Tabelle.
lliobLand.Name ist immer der jeweilige Name der gerade geprüften intelligenten Tabelle
Du hattest im Blatt "Tabelle2" allen intelligenten Tabellen diese Namen gegeben:

tblLand in Spalte A
tblSpanien in Spalte D
tblDeutschland in Spalte G
tblOesterreich in Spalte J
tblPolen in Spalte M

3. mit...


If InStr(lliobLand.Name, landname) Then

...prüfe ich, ob in einem der Namen der intelligenten Tabelle der Inhalt von landname enthalten ist.
landname ist der Eintrag, den du zuvor in der ComboBox "Land" ausgewählt hattest; ja, z Bsp "Deutschland"
Und weil "Deutschland" nur in "tblDeutschland" enthalten ist, wird auch genau nur bei Kontrolle von "tblDeutschland" vom Code ein Treffer gemeldet - sozusagen.
4. weil Treffer = JA, werden mit...


fcFillComboBezirk = .ListObjects(lliobLand.Name).DataBodyRange.Value

...alle Einträge aus der intelligenten Tabelle "tblDeutschland" an die Funktion fcFillComboBezirk übergeben, die damit wiederum die ComboBox Bezirk füllt.
Und wenn du nun in ComboBox Land z Bsp "Polen" auswählst, würde mein Code die intelligente Tabelle mit dem Namen "tblPolen" finden und nur ihre Einträge in ComboBox Bezirk als Auswahl zur Verfügung stellen.
---
Der Grund, wieso in "Tabelle2" nicht 2x Deutschland gefunden und (falsch) angezeigt wird, ist, weil die intelligente Tabelle tblLand (in der steht "Deutschland" ja auch drin) nie von meinem Code (Funktion) beachtet wird.
Konnte ich auch mit diesen Erklärungen helfen?
Wie gesagt, würd ich neben dir sitzen, und dir alles am Monitor erklären können - dann hättest du schon längst "ach sooo!! ja, ist klar! ich hab alles verstanden!" gesagt :-)
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

abhängige Combobox in der Userform

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

abhängige Combobox in der Userform

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread