Wie kann ich Zellen mit Kommawerten markieren?
Dim C As Range
Dim fAddr As String
With Cells
Set C = .Find(what:="aa", lookat:=xlPart) 'xlPart = enthält, ansonsten xlWhole
If Not C Is Nothing Then
fAddr = C.Address
Do
C.Interior.ColorIndex = 40
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address fAddr
End If
End With
Das Makro funktioniert nur mit Text
Wenn ich statt aa , schreibe funktioniert nicht mit Zahlen z.B 1,5 3,7 usw.
Vielleicht gibt es eine einfachere Lösung
Danke Stan