Private Sub UserForm_Click()
Dim Lkw As String
Lkw = Me.ComboBox1
With Me.ListBox1
Cells.Find(What:=Lkw, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:= _
xlByRows _
, SearchDirection:=xlDown, MatchCase:=False _
, SearchFormat:=True).Activate
ActiveCell.Offset(rowoffset:=0, columnoffset:=-1).Activate
ListBox1.AddItem ActiveCell
ActiveCell.Offset(rowoffset:=0, columnoffset:=2).Activate
ListBox2.AddItem ActiveCell
ActiveCell.Offset(rowoffset:=0, columnoffset:=-1).Activate
End With
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen