Hallo,
habe folgendes Problem: Ich habe eine Userform mit verschiedenen Eingabefeldern, Comboboxen & Listboxen. Wenn ich nun eine bestimmte Zahl in das eine Eingabefeld eingebe, füllen sich die anderen Felder automatisch mit den entsprechenden Eingaben und bei den Listboxen wird auch die entsprechende Auswahl automatisch getroffen.
Nun habe ich einen Command Button der die getroffene Auswahl in ein Tabellenblatt kopiert. Bei zwei Listboxen funktioniert dieses kopieren aber irgendwie nicht..
Sitze jetzt schon Stunden daran, finde aber keinen Fehler :(
Private Sub EingabeWeinNr_Change()
If EingabeWeinNr.Value = "2189" Then
EingabeSorte.Text = "Riesling"
EingabeLage.Text = "Pfalz"
Me!ListeQualitätsstufe.Selected(1) = True
Me!ListeGeschmack.Selected(0) = True
Me!ListeWeinart.Selected(1) = True
ListeFlaschengröße.Value = "1,0"
ComboBoxFlaschenform.Text = "Schlegel grün"
ComboBoxVerschluss.Text = "LCW gold"
Private Sub CommandButton1_Click()
Dim intErsteLeereZeile As Long
intErsteLeereZeile = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets("Tabelle1").Cells(intErsteLeereZeile, 1).Value = EingabeWeinNr.Value
Worksheets("Tabelle1").Cells(intErsteLeereZeile, 2).Value = EingabeSorte.Text
Worksheets("Tabelle1").Cells(intErsteLeereZeile, 3).Value = EingabeJahrgang.Value
Worksheets("Tabelle1").Cells(intErsteLeereZeile, 4).Value = EingabeLage.Text
Worksheets("Tabelle1").Cells(intErsteLeereZeile, 5).Value = Me!ListeQualitätsstufe.Value
Worksheets("Tabelle1").Cells(intErsteLeereZeile, 6).Value = Me!ListeGeschmack.Value
Worksheets("Tabelle1").Cells(intErsteLeereZeile, 7).Value = Me!ListeWeinart.Value
Worksheets("Tabelle1").Cells(intErsteLeereZeile, 8).Value = EingabeAPNr.Value
Worksheets("Tabelle1").Cells(intErsteLeereZeile, 9).Value = EingabeLitermenge.Value
Worksheets("Tabelle1").Cells(intErsteLeereZeile, 10).Value = ListeFlaschengröße.Value
Worksheets("Tabelle1").Cells(intErsteLeereZeile, 11).Value = ComboBoxFlaschenform.Text
Worksheets("Tabelle1").Cells(intErsteLeereZeile, 12).Value = ComboBoxVerschluss.Text
Worksheets("Tabelle1").Cells(intErsteLeereZeile, 13).Value = Stückzahl.Caption
Worksheets("Tabelle1").Cells(intErsteLeereZeile, 14).Value = TextBoxHolzsteige.Value
Worksheets("Tabelle1").Cells(intErsteLeereZeile, 15).Value = TextBoxKuki.Value
Worksheets("Tabelle1").Cells(intErsteLeereZeile, 16).Value = TextBox6erKarton.Value
Worksheets("Tabelle1").Cells(intErsteLeereZeile, 17).Value = TextBoxBox360.Value
|