Re: Einlesen von Spalten in ComboBox
02.05.2003 16:31:42
Tobias
Hallo Nepumuk,vielen Dank es funktioniert. :) Ist es jetzt noch möglich die Sachen auf Blatt1 auszugeben, nach Auswahl aus der ComboBox? Hier soll er aber wieder trennen. Die Nummern in Spalte A und den Text in Spalte B, fortlaufend. Gleichzeitig soll auf der Userform ein Label angezeigt werden. Also in diesem Textfeld soll der Text nochmal vollständig angezeigt werden (aus Blatt 2 Spalte D). Im Dropdown ist er ja nicht ganz zu sehen und ich will das Dropdown nicht noch größer ziehen. Das Label und so habe ich bereits. Hast Du dafür auch noch 'n Tipp?
Diesen Code hatte ich dafür vorgesehen aber es funzt leider nicht:
Private Sub ComboBox2_Click()
Set rng2 = Worksheets("ZMT_Info").Columns(4).Find(ComboBox2.Value, lookat:=xlWhole, LookIn:=xlValues)
ComboBox1.ListIndex = -1
Label1.Caption = ""
If Not rng2 Is Nothing Then
Label1.Caption = Worksheets("ZMT_Info").Range("D" & rng2.Row).Value
Else
MsgBox "Suchbegriff wurde nicht gefunden!"
End If
End Sub
Grüße
Tobias