Farbe_erstes_Zeichen

Bild

Betrifft: Farbe_erstes_Zeichen
von: Gunnar
Geschrieben am: 29.04.2015 11:23:05

Hallo,
mit u.st. Code versuche ich eine "Weiche" zu schalten. Allerdings stimmt der Befehl so nicht. Kann mir jemand weiterhelfen? Danke.

Sub Farbe_erstes_Zeichen()
If Range("A1").Font.Characters(Start:=1, Length:=1).Font = 44 Then
Makro1
Else
Exit Sub
End If
End Sub

Gruß
Gunnar

Bild

Betrifft: AW: Farbe_erstes_Zeichen
von: Rudi Maintaire
Geschrieben am: 29.04.2015 11:26:38
Hallo,
If Range("A1").Characters(Start:=1, Length:=1).Font.ColorIndex = 44 Then
Gruß
Rudi

Bild

Betrifft: AW: Farbe_erstes_Zeichen
von: Gunnar
Geschrieben am: 29.04.2015 11:42:46
Ach, da war zu viel des Guten.
Danke!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Nach Datum filtern (VBA)"