AW: Find
25.11.2010 19:15:11
Ulf_MS
Hallo bisher ist es wie folgt
die Liste wird nach Suchkriterium durchlaufen und addet die jeweiligen Zelle in eine Listbox.
Allerdings geht es nach dem letzten Wert oben wie von vorne weiter.
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
thx for Help
Ulf_MS