mit dem folgenden Skript möchte ich in Spalte Z1 bis Z200 den Wert 1 finden. Wenn Excel den Wert gefunden hat und die Zeilennummer in die Zelle G9 einträgt/ausgiebt.
Bei der folgenden Version erhalte ich aber immer eine Fehlermeldung ("Laufzeitfehler 1004, objektdefinierter Fehler") und weiß absolut nicht woran es liegt.
Dim ZeileAngabe As Long
ZeileAngabe = Columns("Z1:Z200").Find(what:=1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SerchFormat:=False).Row
Range("G9").Value = ZeileAngabe