das Wort "Start" kommt in meinem Tabellenblat genau 1x vor. Würde gerne die Zeile, die das Wort "Start" enthält und zusätzlich 19 Zeilen unterhalb markieren.
Kann mir jemand helfen? Würd mich freuen!
LG Basti
Public Sub Suchen_Färben()
Dim rngFund As Range
With Worksheets("Tabelle1").UsedRange 'Tabellenblattname anpassen
Set rngFund = .Cells.Find(what:="Start", LookIn:=xlValues, LookAt:=xlWhole)
If Not rngFund Is Nothing Then
rngFund.EntireRow.Resize(19).Interior.Color = vbYellow
Else
MsgBox """Start"" konnte im Tabellenblatt nicht gefunden werden."
End If
End With
End Sub
Gruß WernerSub dgdg()
Dim c As Range
With Sheets("Tabelle1")
Set c = .UsedRange.Find("Start", LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
c.EntireRow.Resize(20).Select
Else
MsgBox "nichts gefunden"
End If
End With
End Sub
LG UweD