UserForm / TextBox füllen
18.08.2003 07:49:10
Erich M.
ich möchte bei einer UserForm folgendes erreichen:
1. Fülle ComboBox1 mit Zeile1, Spalte A-C (funktioniert bereits)
2. Wenn in ComboBox1 der Wert von A1 gewählt wird, fülle TextBox mit A2:A10), wenn B1, dann B2:B10 usw à hier ist dasProblem ??
Das nachfolgende Makro zeigt meine fehlerhaften Versuche (scheitere bereits bei A1):
Private Sub UserForm_Initialize()
Dim LoLetzte As Long
Dim LoI As Long
With Worksheets("Tabelle2")
For LoI = 1 To 3 'LoLetzte
ComboBox1.AddItem Format(.Cells(LoI, 1))
ComboBox1.List(LoI - 1, 1) = .Cells(1, LoI)
Next LoI
End With
End Sub
Private Sub ComboBox1_Change()
Dim Blatt As Object
Worksheets("Tabelle2").Activate
TextBox1.AddItem.Range ("A2:A10")
' With TextBox1
' .AddItem Worksheets("Tabelle2").Range("A2:A10").Value
' End With
End Sub
Code eingefügt mit: Excel Code Jeanie
Besten Dank für eine Hilfe!,
mfg
Erich