Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Code gesucht

Betrifft: Code gesucht
von: Jens
Geschrieben am: 14.04.2003 - 20:01:54

guten Abend
ich würde mich freuen wenn mir jemand helfen könnte, um einen Code zu schreiben der bei Click in UF-Listbox (2-spaltig) den Wert aus Spalte 1 in UF-Textbox1 kopiert und den Wert der spalte2 in UF-Textbox 2. Wer kann helfen?
Danke im Voraus Jens


  

Re: Code gesucht
von: Forum
Geschrieben am: 14.04.2003 - 20:05:46

Hallo Jens

mal ein Code aus meinen Beispielen


Private Sub ListBox1_Change()
    If ListBox1.Tag <> "" Then Exit Sub
    TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
    TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
    TextBox3 = ListBox1.List(ListBox1.ListIndex, 2)
    TextBox4 = ListBox1.List(ListBox1.ListIndex, 3)
    TextBox5 = ListBox1.List(ListBox1.ListIndex, 4)
    TextBox6 = ListBox1.List(ListBox1.ListIndex, 5)
    TextBox7 = ListBox1.List(ListBox1.ListIndex, 6)
End Sub

Gruß Hajo
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

  

Re: Code gesucht
von: Jens
Geschrieben am: 14.04.2003 - 20:48:35

Danke Hajo, funktioniert super. Eine Frage noch zu deiner Antwort auf meine Frage wie ich Textbox Werte in Listbox auswechseln kann. Ich habe den Code so eingesetzt, aber in der2. Spalte der Listbox wird kein Wert geschrieben. Was habe ich da falsch gemacht? Kannst du bitte nochmal helfen?

Private Sub CommandButton1_Click()
Listbox1.List(Listbox1.Listindex, 0) = TextBox1
Listbox1.List(Listbox1.Listindex, 1) = TextBox2
End Sub

Danke Jens

  

Re: Code gesucht
von: Forum
Geschrieben am: 14.04.2003 - 20:54:16

Hallo Jens

der Code ist korrekt, wenn Du die ListBox mit AddItem gefüllt hast. Das hatte ich auch schon mal geschrieben. Zu diesem Sachverhalt hast Du noch keine Aussage gemacht.

Gruß Hajo
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

  

Re: Code gesucht
von: Jens
Geschrieben am: 14.04.2003 - 21:01:36

die Listbox wird mit folgendem Code gefüllt, leider nicht mit Aditem. Siehst du trotzdem eine Möglichkeit?

Private Sub UserForm_Initialize()
Dim i As Long
Dim j As Byte, k As Byte
Dim strTmp As String
'pos = 1
j = 0
strTmp = Worksheets("Produktiver Lohn").Cells(ActiveCell.Row, 7)
ListBox1.Clear
Do While InStr(strTmp, ";") > 0
ListBox1.AddItem
For k = 1 To 2
If InStr(strTmp, ";") > 0 Then
ListBox1.Column(j, ListBox1.ListCount - 1) = Left(strTmp, InStr(strTmp, ";") - 1)
Else
ListBox1.Column(j, ListBox1.ListCount - 1) = strTmp
End If
j = j + 1
strTmp = Mid(strTmp, InStr(strTmp, ";") + 2, Len(strTmp))
Next
j = 0
Loop
End Sub

  

Re: Code gesucht
von: Forum
Geschrieben am: 14.04.2003 - 21:10:24

Hallo Jens

Sie wird doch mit AddItem gefüllt.

Irgendwie ist es mir aber zu Aufwendig Deinen Code nachzuvollziehen um danach die Tabelle zu erstellen.

Gruß Hajo
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel