Hallo,
verstanden. Mach es so, wie gesagt. Mach die Combobox2 mit 2 Spalten. im Entwurfsmodus Rechtsklick auf die Combobox, Eigenschaften. Dort unter ColumnCount 2, unter ColumnWidths 15 pt;0 pt
Dann im Code fuer das Tabellenblatt 1 folgenden Code:
Private Sub ComboBox2_Change()
If ComboBox2.ListIndex < 0 Then Exit Sub
Label2.Caption = ComboBox2.List(ComboBox2.ListIndex, 1)
End Sub
Private Sub Worksheet_Activate()
Dim a As Long, c As Long
a = Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row
With ComboBox2
.Clear
For c = 1 To a
.AddItem
.List(.ListCount - 1, 0) = Sheets("Tabelle2").Cells(c, 2)
.List(.ListCount - 1, 1) = Sheets("Tabelle2").Cells(c, 6)
Next c
End With
End Sub
Damit wird die Combobox immer aktualisiert (neu gefuellt), wenn man auf die Tabelle 1 wechselt. Bei Auswahl eines Items in der Combobox (sprich aus Spalte B Tabelle 2) wird im Label 2 der zugehoerige Wert aus Spalte F angezeigt.
|