Ich muss jede zelle anklicken VBA
26.04.2015 08:12:19
Werner
wie kann man es automatisieren, dass ich jede Zelle einzelt anfassen muss, damit es sich einfärbt?
Sorry ich bin totaler Laie was VBA angeht.grüße Werner
hier der Code
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errExit
'Für den Bereich A1 bis D20. Ansonsten kann dieser in der Folgezeile angepasst werden.
If Intersect(Target, ActiveSheet.Range("A1:BF375")) Is Nothing Then Exit Sub 'Bitte den Bereich _
_
anpassen
'Web bei Klaus-Dieter'
'http://excelwelt.de/excelallg/farb.html = farben'
Select Case Target.Value
Case "S": Target.Interior.ColorIndex = 23 '