HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
UserForm um Listbox ergänzen
Rainer

Hallo,
bin mit der Verwendung von UserFormen noch ganz am Anfang und habe Teile aus bestehenden Anwendungen (hier: https://www.herber.de/forum/archiv/944to948/t944422.htm ) übernommen.
Habe es aber leider nicht ganz geschafft, dass bei Klick auf [neu anlegen] die Daten (TextBoxen) als neuer Datensatz korrekt übernommen werden.
Könnte mir jemand bei meiner Testtabelle helfen?
Gruß Rainer
Meine Tabelle: https://www.herber.de/bbs/user/65862.xls

AW: UserForm um Listbox ergänzen
Jens

Hallo Rainer
Dein Code:
IIf(.Range("A65536") <> "", 65536, .Range("A65536").End(xlUp).Row) + 1
bezieht sich auf die erste nicht gefüllte Zelle in Spalte A
Deshalb wird für lLetzte immer die 2 gesetzt und damit die Zeile 2 überschrieben.
Gruß aus dem Sauerland
Jens
AW: UserForm um Listbox ergänzen
Luschi

Hallo Rainer,
wie Jens schon richtig sagte, ermittelst Du die letzte beschriebene Zelle in der Spalte 'A' Statt in Spalte 'E' oder 'F' oder...
Deshalbe ändere die Vba-Zeile so ab:
lLetzte = IIf(.Range("E65536") <> "", 65536, .Range("E65536").End(xlUp).Row) + 1
Gruß von Luschi
aus klein-Paris
AW: UserForm um Listbox ergänzen
Rainer

Hallo,
danke für Eure Mithilfe, hat geklappt.
Eigentlich logisch; dachte nur, da mir die Zeilen bis 65536 egal sind, lass ich diesen Bereich mal stehen.
Tja ..
zu schnell überflogen
Gruß Rainer
AW: UserForm um Listbox ergänzen
Rainer

Hallo,
nun habe ich noch ein Problem, das ich mit meinen Laien-Kenntnissen sicher nicht gelöst bekomme.
Wenn ich auf den Button [Änderungen speichern] klicke werden die Daten in Zeile 2 geschrieben.
Übernahm ich aus der Listbox jedoch den Wert aus Zeile 3 habe ich zwangsläufig ungewollt den Datensatz in Zeile 2 überschrieben.
Wie kann man das lösen?
Gruß Rainer
AW: UserForm um Listbox ergänzen
Rainer

Hallo,
stop, habe ja die Beispieltabelle von Peter Feustel.
Probiere ich grad nochmal selbst.
Gruß
AW: UserForm um Listbox ergänzen
Rainer

Hallo,
klappt doch nicht ganz so einfach.
Irgend eine Funktion muss ich wohl übersehen haben.
Ablauf [Änderung speichern] bleibt bei
  • With Worksheets("Tabelle1")
    .Range("E...")
    • stehen.
    Beigefügt nochmal neue Tabelle: https://www.herber.de/bbs/user/65864.xls
    AW: UserForm um Listbox ergänzen
    Jens

    Hallo Rainer
    Dafür kannst Du den ListIndex der Listbox verwenden.
    https://www.herber.de/bbs/user/65865.xls
    Gruß aus dem Sauerland
    JEns
    AW: UserForm um Listbox ergänzen
    Rainer

    Hallo Jens,
    danke.
    Hoffe nun, dass die Übernahme in die Anwendung noch klappt.
    Gruß
    Rainer