Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

UserForm um Listbox ergänzen | Herbers Excel-Forum


Betrifft: UserForm um Listbox ergänzen von: Rainer
Geschrieben am: 13.11.2009 11:54:22

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

  

Betrifft: AW: UserForm um Listbox ergänzen von: Jens
Geschrieben am: 13.11.2009 12:13:59

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


  

Betrifft: AW: UserForm um Listbox ergänzen von: Luschi
Geschrieben am: 13.11.2009 12:18:36

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


  

Betrifft: AW: UserForm um Listbox ergänzen von: Rainer
Geschrieben am: 13.11.2009 12:27:14

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


  

Betrifft: AW: UserForm um Listbox ergänzen von: Rainer
Geschrieben am: 13.11.2009 12:58:14

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


  

Betrifft: AW: UserForm um Listbox ergänzen von: Rainer
Geschrieben am: 13.11.2009 13:02:27

Hallo,

stop, habe ja die Beispieltabelle von Peter Feustel.

Probiere ich grad nochmal selbst.

Gruß


  

Betrifft: AW: UserForm um Listbox ergänzen von: Rainer
Geschrieben am: 13.11.2009 13:23:27

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


      

    Betrifft: AW: UserForm um Listbox ergänzen von: Jens
    Geschrieben am: 13.11.2009 13:30:10

    Hallo Rainer

    Dafür kannst Du den ListIndex der Listbox verwenden.

    https://www.herber.de/bbs/user/65865.xls

    Gruß aus dem Sauerland

    JEns


      

    Betrifft: AW: UserForm um Listbox ergänzen von: Rainer
    Geschrieben am: 13.11.2009 13:37:22

    Hallo Jens,

    danke.

    Hoffe nun, dass die Übernahme in die Anwendung noch klappt.

    Gruß
    Rainer


    Beiträge aus den Excel-Beispielen zum Thema "UserForm um Listbox ergänzen"