Listbox befüllen
01.11.2020 04:13:18
Demech
Ich verzweifle fast. Sitze jetzt schon 6 Stunden an dem Problem und komme nicht weiter.
Ich habe eine UserForm welche folgende Objekte enthält:
1 X ComboBox1
1 X ComboBox2
1 X ListBox
1 X CommandButton1
ComboBox1: Diese wird aus einem Sheet (Tabelle1) befüllt.
TextBox1: Hier wird eine Zahl manuell eingegeben oder Ausgewählt (Befüllt aus Tabelle2)
Mittels CommandButton1 möchte ich nun die Listbox folgender massen befüllen.
Spalte eins in ListBox = Auswahl aus ComboBox1
Spalte zwei in ListBox = Eingabe aus ComboBox2
Spalte drei in ListBox = *Preis * Formel in Tabelle6 Spalte 3
Diese ganze Abfrage möchte ich dann endlos wiederholen können. Jede Eingabe soll in der Listbox eine weitere Zeile generieren.
Am Ende sollte ich dann eine Liste erhalten mit allen eingegebenen werten.
Ich habe nun eine Sheet mit Namen ListBoxDaten erstellt und darin die Tabelle6 gemacht welche leer ist.
Überschriften: Produkt | Menge | Preis
Nun möchte ich mittels ComandBatton1 die Werte aus ComboBox1 + 2 in die Tabelle6 schreiben.
Mit jedem klick soll eine neue Zeile in der Tabelle generiert werden.
Am Ende des Codes gebe ich den Befehl mit, dass die Tabelle in der ListBox1 angezeigt werden soll.
Am Anfang hat mein Code noch funktioniert. Jetzt erzeugt er jedoch einen Überlauf und ich weis nicht wieso.
Private Sub CommandButton1_Click()
Dim z As Integer
z = ThisWorkbook.Sheets("ListBoxDaten").Range("Tabelle6").End(xlDown).Row + 1
If z Ich Danke euch für konstruktive Ratschläge. Bin wirklich ein Anfänger in VBA
Gruss
Demech