Microsoft Excel

Herbers Excel/VBA-Archiv

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

Listenfeld

Betrifft: Listenfeld von: Nikolas
Geschrieben am: 19.03.2004 08:22:58

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



  


Betrifft: AW: Listenfeld von: Bert
Geschrieben am: 19.03.2004 08:35:23


Dim c as byte
For c = 1 to 13
controls("Textbox" & c)=Cells(i, c)
next

.Text und .Value kannst du sparen. das sind defaults und müssen
somit nicht extra angegeben werden.

Bert


  


Betrifft: AW: Listenfeld von: Nikolas
Geschrieben am: 19.03.2004 09:35:06

Hi Bert,

vielen Dank dafür...

Niko


Beiträge aus den Excel-Beispielen zum Thema " Listenfeld"