Thema Datum  Von Nutzer Rating
Antwort
Rot Auswahl der Listbox kopieren
23.08.2016 11:48:10 max26
NotSolved
23.08.2016 19:22:33 Gast77170
NotSolved
24.08.2016 10:23:25 max26
NotSolved

Ansicht des Beitrags:
Von:
max26
Datum:
23.08.2016 11:48:10
Views:
1071
Rating: Antwort:
  Ja
Thema:
Auswahl der Listbox kopieren

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

 


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 Auswahl der Listbox kopieren
23.08.2016 11:48:10 max26
NotSolved
23.08.2016 19:22:33 Gast77170
NotSolved
24.08.2016 10:23:25 max26
NotSolved