Makro (Change) auf bestimmte Bereiche einschränke
Marco
ich habe mir vor Ewigkeiten ein VBA-Projekt zusammengebastelt, welches die Schriftfarbe bzw. die Zellfarbe in Abhängigkeit von bestimmten Eingaben (bei mir als Auswahlfelder) ändert. Dies funktioniert soweit auch alles super.
Da ich die Tabelle nun erweitern muss, kommt es zu Problemen. Egal, wo ich nämlich das Wort für die Bedingung (z.B. "Absage" oder "kein Angebot machen") eingebe, wird die gewünschte Formatierung ausgeführt.
Wie lässt sich dies einschränken?
Die Bedingungen für die Hintergrundfarbe befinden sich in der Spalte AK und die Bedingungen für die Schriftfarbe in der Spalte W.
Ich habe der Übersicht halber nur jeweils eine Bedingung im folgenden Code gelassen:
___________________________________
Private Sub Worksheet_Activate()
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Wenn mehr als eine Zelle markiert wurde dann Makro beenden
If Target.Cells.Count > 1 Then Exit Sub
Select Case Target.Value
'bei "Absage" Hintergrundfarbe grau
Case "Absage"
Range("B" & Target.Row & ":AX" & Target.Row).Interior.ColorIndex = 16
'bei "kein Angebot machen" Schriftfarbe schwarz
Case "kein Angebot machen"
Range("B" & Target.Row & ":AX" & Target.Row).Font.ColorIndex = 0
End Select
End Sub
___________________________________
Vielen Dank schon mal im vorraus für Eure Hilfe!!!!!!
Viele Grüße
Marco