Hallo,
ich würde gerne ein Worksheet nach dem Wort „Ende“ durchsuchen. Jedes mal, wenn „Ende“ vorkommt, soll die komplette Zeile mit, z.B. grau, eingefärbt werden. Des Weiteren soll diese Zeile dann gesperrt werden. Soweit so gut. Hab schon ein paar Sachen ausprobiert, kriegs aber einfach nicht gebacken. Kann mir da bitte jemand weiterhelfen?!
Danke und viele Grüße,
Tobias
Hallo,
Hi,
mit Makro:
Public Sub test()
Dim ws As Worksheet
Dim zelle As Range
Dim ok As Boolean
Dim erste
Const passwort = "test123"
Const suchbegriff = "Ende"
Set ws = ThisWorkbook.Worksheets("Tabelle1")
ws.Unprotect passwort
ws.Cells.Locked = False
Set zelle = ws.Cells.Find(suchbegriff, LookIn:=xlValues, lookat:=xlPart)
If Not zelle Is Nothing Then
erste = zelle.Address
Do
zelle.Locked = True
zelle.Interior.Color = RGB(100, 100, 100)
Set zelle = ws.Cells.FindNext(zelle)
Loop Until (zelle.Address = erste)
End If
ws.Protect passwort
End Sub
Gruß. Timo