2 Zeilen runter
20.11.2003 09:36:59
Erwin
besteht die Möglichkeit, die aktive Zelle 2 Zeilen nach unten zu bewegen, wenn ich meinen Suchbegriff gefunden habe?
Irgendwie landet er überall, nur nicht 2 Zeilen drunter.
Schönen Gruß
Erwin
Sub Such()
Dim C As Range
Set C = Range("3:3").Find(What:="Gruppen", Lookat:=xlWhole)
C.Select
On Error Resume Next
With ActiveCell
Range(.Offset(0, 1), .Offset(0, 1)).Select
End With
End Sub
Anzeige