VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

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

Ansicht des Beitrags:

Von:
max26

Datum:
23.08.2016 11:48:10

Views:
1339

Rating:

Antwort:

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:
WYSIWYG-Editor, ctl00_Content_editor1 Editor WerkzeugleistenDokument Quellcode VorschauZwischenablage/Rückgängig AusschneidenTastaturkürzel Strg+X KopierenTastaturkürzel Strg+C EinfügenTastaturkürzel Strg+V Als Klartext einfügenTastaturkürzel Strg+Alt+Umschalt+V Aus Word einfügen RückgängigTastaturkürzel Strg+Z WiederherstellenTastaturkürzel Strg+YEditieren Suchen Ersetzen Alles auswählenGrundstile FettTastaturkürzel Strg+B KursivTastaturkürzel Strg+I UnterstrichenTastaturkürzel Strg+U Durchgestrichen Formatierung entfernenAbsatz Nummerierte Liste einfügen/entfernen Liste Einzug verringern Einzug erhöhen Zitatblock Linksbündig Zentriert Rechtsbündig BlocksatzLinks Link einfügen/editierenTastaturkürzel Strg+K Link entfernen AnkerEinfügen Bild Tabelle Horizontale Linie einfügen Smiley Sonderzeichen einfügen Einen Quelltextabschnitt einfügen oder aktualisierenStileFormatFormatSchriftartSchriftartGrößeGrößeFarben Textfarbe HintergrundfarbeWerkzeuge Maximieren Blöcke anzeigenabout Über CKEditor 4 Drücken Sie ALT 0 für Hilfe

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