gibt es die Möglichkeit,wie im Betreff angegeben bedingt zu formatieren,wenn ja,welchen Zellwert bzw.welche Formel müßte ich eingeben?
Gruß Rosi
Sub format()
Dim ws As Worksheet
Dim zelle As Range
For Each ws In ThisWorkbook.Worksheets
For Each zelle In ws.UsedRange
If WorksheetFunction.IsText(zelle) = True Then
With zelle.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
With zelle.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next zelle
Next ws
End Sub
Gruß