ActiveCell finden und rüberspringen
26.08.2020 11:13:13
Nilo
ich suche die selektierte Zelle in einem anderen Blatt und möchte wenn gefunden zum ersten Treffer im anderen Blatt springen
Beispiel statt:
MsgBox Finden.Row
dann etwas wie
Finden.Select.Row
Wie bau ich das hier ein?
Sub Finden()
Dim Finden As Range
Dim Suchen As Variant
Suchen = ActiveCell.Value
MsgBox (Suchen)
Set Finden = Worksheets("Finden").Columns(6).Find(What:=Suchen, lookat:=xlPart, LookIn:= _
xlValues, MatchCase:=True)
If Finden Is Nothing Then
MsgBox "Nix gefunden"
Else
MsgBox Finden.Row
End If
End Sub
Danke und Gruß
Nilo
Anzeige