Hallo.
Ich bringe es nicht fertig, über VBA einen Wert in Tabelle 1 suchen zu lassen, (Inputbox) und dann eine Zelle neben der Zelle mit dem gefundenen Wert zu markieren.
Wenn der gefundene Wert in Zelle B30 steht, soll C30 markiert werden.
Wie könnte ich dies bewerkstelligen?
Danke
Ich bringe es nicht fertig, über VBA einen Wert in Tabelle 1
suchen zu lassen, (Inputbox) und dann eine Zelle neben der
Zelle mit dem gefundenen Wert zu markieren.
Wenn der gefundene Wert in Zelle B30 steht, soll C30 markiert
werden.
Hallo Krisam,
zeige mal deinen vorhandenen Code.
Gruß
Reinhard
Hallo.
Hiermit markiere ich mir aber nur die Spalten, aber ich benötige zb. die Zelle C in der gefundenen Zeile
Sub suchenundmarkieren()
Suchbegriff = Range („A1“).Value
Dim rng As Range
Dim sFind As String
sFind = Suchbegriff
If sFind = „“ Then Exit Sub
Set rng = Columns(1).Find( _
what:=sFind, lookat:=xlWhole, LookIn:=xlValues)
If rng Is Nothing Then
Beep
MsgBox „Suchbegriff wurde nicht gefunden!“
Exit Sub
End If
Rows(rng.Row).Select
End Sub
Danke