Microsoft Excel

Herbers Excel/VBA-Archiv

Farbe_erstes_Zeichen

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

  

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


  

Betrifft: AW: Farbe_erstes_Zeichen von: Gunnar
Geschrieben am: 29.04.2015 11:42:46

Ach, da war zu viel des Guten.
Danke!