User Form
13.06.2017 07:39:20
jochen
ich habe eine User Form.
die Combobox1 greift auf Tabellenblatt Lager Bereich K2:K33
Ich möchte gerne das Listbox1 die SpalteL und Listbox2 die SpalteJ ausliest.
So eine Art Sverweis .
Das heist Wähle ich nummer 10 ( wäre Zelle K8 ) kommen die Listbox1 (Zelle L8) und in Listbox2 die ZelleJ8.
Anbei mein Code:
Sub CommandButton1_Click()
Dim Bereich As Range
Dim zelle As Range
Set Bereich = Sheets("Lager").Range("Ersatzware")
ActiveCell.Value = ComboBox1.Text
ActiveCell.Offset(0, 1).Value = ComboBox1.Column(1)
For Each zelle In Bereich
If zelle.Value = ComboBox1.Text Then
zelle.Offset(0, -1).Value = Label2.Caption
zelle.Offset(0, -1).Font.ColorIndex = 3
End If
Next
Unload Me
End Sub
Wäre nett, wenn mir jemand helfen würde.
Danke :-)
Anzeige