letzte Woche wurd e ich schon Erfolreich Unterstützt, jetzt
brächte ich nur eine Erweiterung das die Aktion für einen bestimmten Bereich durchgeführt wird.
Hier mein Makro:
Mein Bereich für alles soll sein D14:AN53
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
'-- hiermit werden die eingegebenen Buchstaben GROß geschrieben ------
On Error GoTo fehler
If Target.Count = 1 Then
Target = Application.Proper(Target)
End If
fehler:
Application.EnableEvents = True
'Wenn mehr als eine Zelle markiert wurde dann Makro beenden
If Target.Count > 1 Then Exit Sub
Select Case Target.Value
Case "U"
Target.Interior.ColorIndex = 35
Case "F"
Target.Interior.ColorIndex = 35 '43
'bei Buchstabe "G" Hintergrundfarbe
End Select
End Sub
gruß Kurt aus K