LG
Set Posunten = Range("A1:A1000").Find("2")
Posunten.Select
Z4 = ActiveCell.Row
Set Posunten = Range("A1:A1000").Find("2")
Posunten.Select
Z4 = ActiveCell.Row
Set Posunten = Range("A1:A1000").Find(What:=2, LookAt:=xlWhole)
Gruß
Dim Z4 as Variant
Z4 = Application.Match(2, Columns(1), 0)
Gruß Gerd