Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Listenfeld

Listenfeld
Nikolas
Moin,
Habe in meiner Userform eine Listbox und bei Klick auf einen Eintrag soll der entsprechende Datensatz im Formular geldane werden!
Kann ich, anstatt immer wieder Textbox 1 - ~ zu schreiben, es auch globaler und einfacher schreiben mit einer Schleife?
thx
Nikolas


Private Sub lstDS_Click()
    i = lstDS.ListIndex + 2
    Beep
    ' Seite 1
    OptionButton1.Value = Cells(i, 2).Value
    OptionButton2.Value = Cells(i, 3).Value
    OptionButton3.Value = Cells(i, 4).Value
    TextBox1.Text = Cells(i, 1).Value
    TextBox2.Text = Cells(i, 2).Value
    TextBox3.Text = Cells(i, 3).Value
    TextBox4.Text = Cells(i, 4).Value
    TextBox5.Text = Cells(i, 5).Value
    TextBox6.Text = Cells(i, 6).Value
    TextBox7.Text = Cells(i, 7).Value
    TextBox8.Text = Cells(i, 8).Value
    TextBox9.Text = Cells(i, 9).Value
       
    'Seite 2
    TextBox10.Text = Cells(i, 10).Value
    TextBox11.Text = Cells(i, 11).Value
    TextBox12.Text = Cells(i, 12).Value
    TextBox13.Text = Cells(i, 13).Value
    
   
    
    ' In Zeile N4 den Listindex anzeigen
    Range("AA4").Value = lstDS.ListIndex
End Sub


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Listenfeld
Bert
.Text und .Value kannst du sparen. das sind defaults und müssen
somit nicht extra angegeben werden.
Bert
AW: Listenfeld
Nikolas
Hi Bert,
vielen Dank dafür...
Niko
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige