ich benötige einen Makrobefehl, der in den Spalten A,D,G,J,M den Zellinhalt 00:00 findet und diesen mit weißer Schrift einfärbt.
Danke für eure Hilfe.
Gruß
Karsten
Public Sub FindenFaerben()
Dim WkSh As Worksheet
Dim rBereich As Range
Dim rZelle As Range
Dim sFundst As String
Set WkSh = ThisWorkbook.Worksheets("Tabelle3")
With WkSh.Range("A:A, D:D, G:G, J:J, M:M")
Set rZelle = .Find(What:="00:00", LookAt:=xlPart, LookIn:=xlFormulas)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
.Cells(rZelle.Row, rZelle.Column).Font.ColorIndex = 2
Set rZelle = .FindNext(rZelle)
Loop While Not rZelle Is Nothing And rZelle.Address sFundst
Else
MsgBox "Der Begriff ""00:00"" wurde nicht gefunden.", _
48, " Hinweis für " & Application.UserName
End If
End With
End Sub
Gruß Peter
Public Sub FindenFaerben()
Dim WkSh As Worksheet
Dim rBereich As Range
Dim rZelle As Range
Dim sFundst As String
Set WkSh = ThisWorkbook.Worksheets("Tabelle1")
With WkSh.Range("F:F") ', D:D, G:G, J:J, M:M")
Set rZelle = .Find(What:="00:00", LookAt:=xlPart, LookIn:=xlFormulas)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
If rZelle.Value = 0 Then
.Cells(rZelle.Row, rZelle.Column).Font.ColorIndex = 2
End If
Set rZelle = .FindNext(rZelle)
Loop While Not rZelle Is Nothing And rZelle.Address sFundst
Else
MsgBox "Der Begriff ""00:00"" wurde nicht gefunden.", _
48, " Hinweis für " & Application.UserName
End If
End With
End Sub