Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm um Listbox ergänzen

Forumthread: UserForm um Listbox ergänzen

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
Anzeige
AW: UserForm um Listbox ergänzen
13.11.2009 12:13:59
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
Anzeige
AW: UserForm um Listbox ergänzen
13.11.2009 12:18:36
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
Anzeige
AW: UserForm um Listbox ergänzen
13.11.2009 12:27:14
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
13.11.2009 12:58:14
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
Anzeige
AW: UserForm um Listbox ergänzen
13.11.2009 13:02:27
Rainer
Hallo,
stop, habe ja die Beispieltabelle von Peter Feustel.
Probiere ich grad nochmal selbst.
Gruß
AW: UserForm um Listbox ergänzen
13.11.2009 13:23:27
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
    Anzeige
    AW: UserForm um Listbox ergänzen
    13.11.2009 13:37:22
    Rainer
    Hallo Jens,
    danke.
    Hoffe nun, dass die Übernahme in die Anwendung noch klappt.
    Gruß
    Rainer
    Anzeige
    ;

    Forumthreads zu verwandten Themen

    Listbox
    Klaus

    Hallo,
    wie kann ich dafür sorgen, dass der Fokus einer Listbox beim öffnen auf dem gleichen Index liegt, wie beim Verlassen?
    MfG. Klaus
    08.08.2008 19:25:00
    Thread-ID: 1000396
    5 Beiträge
    Komplette ListBox an Tabelle
    Chris

    Hallo Zusammen,
    Ich habe eine Mehrspaltige ListBox in einer UserForm ( 6Spalten) Wie kann ich die komplette ListBox mit allen Spalten an eine Tabelle übergeben?
    Gruß
    Christian
    13.08.2008 07:33:00
    Thread-ID: 1001355
    4 Beiträge
    Mit Multiselect in ListBox Auswahl treffen u......
    Josef

    Hallo!
    mit folgendem Code werden die Einträge in der ListBox9 in eine neue Arbeitsmappe in die Tabelle1 eingetragen.
    Private Sub CommandButton39_Click() Dim arrList As Variant, lngR As Long, intC As Integer Dim wb As Workbook arrList = ListBox9.List lngR = ListBox9.ListCount intC = Li...
    26.08.2008 13:43:00
    Thread-ID: 1004791
    5 Beiträge
    Daten in Listbox
    Henner

    Hi,
    ich öffne aus einer UF heraus per CommandButton eine zweite UF (UF_CLRMemo), in der sich eine Listbox befindet mit dem Code:
    Private Sub CBCLRMemo_Click() For i = 84 To 93 UF_CLRMemo.ListBox1.AddItem Sheets("UF_NeuesProjekt").Cells(i, 1).Value Next UF_CLRMemo.Show End Sub
    Wie...
    08.09.2008 15:35:00
    Thread-ID: 1008180
    3 Beiträge
    Bestimmte Fonts in ListBox übernehmen
    Larsinator

    Hallo zusammen,
    ich möchte alle mit "C" beginnenden Fonts in eine ListBox schreiben.
    Mit der getroffenen Auswahl soll dann Zelle C5 formatiert werden.
    Kann mir jemand einen Tipp geben, wie ich mit den Fonts entsprechend umgehen kann?
    Danke schon mal...
    09.09.2008 18:02:55
    Thread-ID: 1008558
    2 Beiträge
    Anzeige
    offset? mit Combo oder Listbox aber wie?
    Thomas

    Hallo und einen schönen guten Tag
    Bitte um Hilfe.
    Offset aber wie?
    Ich möchte 2 List- oder Combofelder aus einer UserForm mit Werten der aktiven Zeile füllen, die ich dann mit Hilfe der List oder Combobox ändere.
    z.B.
    A5 oder A6 oder A150 u.s.w.
    B5 oder B6 oder B150 u....
    16.09.2008 11:37:00
    Thread-ID: 1010027
    6 Beiträge
    Daten in Listbox und in Tabelle
    otto

    Hi, mit folgendem code suche ich Daten in einem Tabellenblatt und lese die Funstellen in eine Listbox ein, gleichzeitig werden die Daten in ein anderes Tabellenblatt geschrieben, dass ich sie für weitere Aktionen (z. B. filtern) zur Verfügung habe.
    With Worksheets("Auftrag").Range("a10:af30...
    18.09.2008 10:45:00
    Thread-ID: 1010647
    3 Beiträge
    Listbox
    Beat

    hallo zusammen
    das Einlesen eines Tabellenbereichs in eine Listbox klappt problemlos.
    Jetzt möchte ich einzelne Zeilen der Listbox editieren.
    Ist das möglich?
    Wenn nicht, möchte ich einzelne Zeilen in Textboxen ausgeben. Wie kann ich
    die einzelne Zeilen übertragen?
    Grus...
    29.09.2008 15:32:00
    Thread-ID: 1013140
    10 Beiträge
    Datein aus Ordner in Listbox
    Markus

    Hallo,
    brauch wieder mal eure Hilfe.
    Möchte über ein UserForm nach bestimmte Dateien eines Ordners inkl. Unterordner suchen.
    Button: Ordner wählen öffnet Msg Box such dort mein Ordner aus klappt schon.
    Public Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDispla...
    30.09.2008 12:45:47
    Thread-ID: 1013354
    2 Beiträge
    ListBox - Multiselect 1
    Josef

    Hallo!
    In einer UF werden in eine Listbox Daten eingelesen. In der Listbox ist die Eigenschaft MultiSelect auf 1 eingestellt.
    1.) Gibt es bitte eine Möglichkeit, mittels eines Befehls in alle Kästchen (CheckBoxen?) gleichzeitig ein Hakerl zu setzen?
    2.) Wird ein Hakerl am Anfang des...
    02.10.2008 10:39:00
    Thread-ID: 1013807
    3 Beiträge
    Listboxeintrag korrigieren
    beat

    Hallo
    ich möchte in einer listbox eingetragene Werte anpassen. Dazu markiere ich eine Listbox-Zeile und
    schreibe die Werte in zwei Textboxen. In diesen Textboxen können die Werte korrigiert werden. Anschliessend möchte ich die korrigierten Werte wieder in die Listobox eintragen, und z...
    03.10.2008 11:25:00
    Thread-ID: 1013998
    7 Beiträge
    Anzeige
    Listbox / Tabelle Eintrag ändern
    Volker

    Hallo zusammen,
    ich habe folgendes Problem:
    Ich versuche mittels folgendem Code Daten aus einer UF-Listbox in die dazugehörenden Textboxes zurückzuschreiben, hier zu ändern und dann in die Tabelle zurückzugeben.
    Bei den ersten 4 Zeilen der Tabelle funktioniert das auch. Ab dem 5. E...
    06.10.2008 14:20:00
    Thread-ID: 1014441
    2 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Anzeige