wie kann ich per Makro den Wert aus Tabelle2 in ZelleC5
in Tabelle1 im Bereich B5:B35 suchen und wenn dieser gefunden wurde, die Zelle anspringen?
Vielen Dank für Euerer Hilfe
Gruß Dieter
Sub test()
Dim f
Set f = Sheets("Tabelle1").Range("B5:B35").Find(what:=Sheets("Tabelle2").Range("C5"), lookat:=xlWhole)
If Not f Is Nothing Then
f.Select
Else
MsgBox "nicht gefunden!"
End If
End Sub
Sub Suchen_und_Selectieren()
Dim rng As Range
Set rng = Sheets("Tabelle1").Range("B5:B35").Find(What:=Sheets("Tabelle2").[C5], _
LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then Application.Goto rng, True
End Sub
Sub Suchen_und_Selectieren()
Dim rng As Range
Set rng = Sheets("Tabelle1").Range("B5:B35").Find(What:=Sheets("Tabelle2").[C5], _
LookIn:=xlValues, LookAt:=xlWhole)
If rng Is Nothing Then
MsgBox "Wert wurde nicht gefunden."
Else
Application.Goto rng, True
End If
End Sub