Hallo liebe Community,
Leider konnte ich bis jetzt nicht wirklich eine Antwort auf meine Probleme finden, deshalb versuche ich es jetzt hier..
In meinem Projekt bin ich gerade dran, ComboBoxes, je nach Bedarf, während der Laufzeit einzufügen. Das klappt bis jetzt auch ganz gut:
Ich habe jetzt nur 2 Probleme:
1. Wie bekomme ich die "benannt", sprich, ich möchte sie ja befüllen und dann später die Auswahl auslesen? Daten dafür liegen in einem Tabellenblatt..
Damit bin ich dann auch schon beim 2. Problem: Die Auswahl in der ersten Box entscheidet über die Werte in der zweiten. Wenn in der ersten Box also ausgewählt wird, dass nach Lieferanten gefiltet werden soll, sollen in der zweiten nur die Namen der Lieferanten auswählbar sein.
Private Sub CommandButton1_Click()
Dim counter As Integer
counter = Sheets("Daten").Range("F1").Value
Dim combo1 As MSForms.ComboBox
Dim combo2 As MSForms.ComboBox
Dim anzahl As Integer
anzahl = Sheets("Daten").Range("F2").Value
Set combo1 = Me.MultiPage1.Pages("Page1").Controls.Add("Forms.ComboBox.1")
.Left = 20 ' ... Position linke Seite
.Top = counter ' ... Oberkante
.Width = 210 ' ... Breite
End With
Set combo2 = Me.MultiPage1.Pages("Page1").Controls.Add("Forms.ComboBox.1")
.Left = 260 ' ... Position linke Seite
.Top = counter ' ... Oberkante
.Width = 210 ' ... Breite
End With
Sheets("Daten").Range("F1").Value = counter + 30
Sheets("Daten").Range("F2").Value = anzahl + 1
End Sub
Das ist der Code meines Buttons, wobei der Counter dafür genutzt wird, dass die Boxes schön untereinander liegen und anzahl für die Anzahl der Reihen der Comboboxes, dachte, wenn man die irgendwie in einer Schleife befüllt, könnte das sinnvoll sein. Ich bin noch Anfänger und stehe jetzt komplett auf dem Schlauch, ich hoffe, ihr könnt mir helfen!
Liebe Grüße,
weserblümchen
|