Verweis in ComboBox
03.12.2007 07:40:05
Oliver
ich habe ein Excel Sheet mit 2 Tabellenblättern. Tabelle1 und Tabelle2. In Tabelle1 habe ich ein UserForm mit einer ComboBox. Hier sollen aber Daten aus den Zellen A2:Axx aus dem Tabellenblatt Tabelle2 angezeigt werden. Macht er aber nicht. Er zeigt mir immer die Zelleninhalte des Tabellenblattes Tabelle1 der Zellen A2:Axx an.
Private Sub ComboBox1_Change()
If ComboBox1.Value "" Then
Dim Bereich As Range
Set Bereich = ActiveSheet.Range("A2:A" & Letzte).Find(ComboBox1.Value, lookat:=xlWhole)
Zeile = Bereich.Row
TextBox2 = Cells(Zeile, 2)
TextBox3 = Cells(Zeile, 3)
TextBox4 = Cells(Zeile, 4)
End If
End Sub
auch mit dem Eintrag Sheets ("Tabelle2") statt ActiveSheet klappt nicht.
Gruß Oliver
Anzeige