Farbmodul Update
18.04.2018 16:14:42
Steve
ich habe mal wieder an meinem urlaubsplan gearbeitet. Einige werden sich vielleicht noch daran erinnern.
Ich möchte nun mein Farbmodul etwas aufwerten.
1.)
Ist es möglich, dass nur die letzten Buchstaben in einem String eingefärbt werden?
Wenn ja, wie?
2.)
Ich würde das Formatieren der Zellen unterbinden durch Blattschutz, dann funktioniert allerdings ja das Farbmodul nicht mehr. Kann man den Blattschutz im Farbmodul aus und wieder anschalten?
Wenn ja, wie?
hier mein Farbmodul
Sub mdl_Farbe
Option Explicit ' Variablendefinition erforderlich
Option Private Module ' damit Makros nich von Hand gestartet _
werden können
Public i As Integer
Sub Farbmakro() ' Einfärben der Vertretungsart
'm = BL ' für jeden Buchstaben eine andere Farbe
'o = OM
'q = LSQ
'r = LSR
'l = Läufer
'h = WH
Dim rngC As Range, s As String
Application.ScreenUpdating = False
For Each rngC In Range("K12:AO99")
s = rngC.Value
If Len(s) Then
For i = 1 To Len(s)
Select Case LCase(Mid(s, i, 1))
Case "m": rngC.Characters(i, 1).Font.Color = RGB(110, 180, 255)
Case "o": rngC.Characters(i, 1).Font.Color = RGB(200, 255, 255)
Case "q": rngC.Characters(i, 1).Font.Color = RGB(200, 100, 0)
Case "r": rngC.Characters(i, 1).Font.Color = RGB(200, 100, 0)
Case "l": rngC.Characters(i, 1).Font.Color = RGB(190, 190, 190)
Case "h": rngC.Characters(i, 1).Font.Color = RGB(190, 190, 0)
End Select
Next i
End If
Next rngC
Application.ScreenUpdating = True
End Sub
End Sub
Hier noch die Beispieldatei https://www.herber.de/bbs/user/121130.xlsm
Vielen Danke schonmal im Vorraus