Per VBA Zeilen färben
Squishy
Hallo zusammen
wie kann ich diese beiden Schnippsel zusammenführen so dass sie funktionieren?
1. die mit der maus markierte zelle soll die ganze jeweilige Spalte/Zeile markieren (da sehr grosses Excel)
2. wenn in der Spalte CF z.B. Ja/Nein/TG seht soll die ganze zeile markiert werden
ich konnte trotz suche im Forum bzw. Goolge keine Lösung für mein Problem finden. Danke für eure Hilfe
Private MeineZeile As Range, MeineZeile1 As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not MeineZeile Is Nothing Then
MeineZeile.Interior.ColorIndex = xlNone
End If
If Not MeineZeile1 Is Nothing Then
MeineZeile1.Interior.ColorIndex = xlNone
End If
Target.EntireRow.Interior.ColorIndex = 43
Target.EntireColumn.Interior.ColorIndex = 43
Set MeineZeile = Target.EntireRow
Set MeineZeile1 = Target.EntireColumn
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 84 And .Value = "Ja" Then
Rows(.Row).Interior.ColorIndex = 36
ElseIf .Column = 84 And .Value = "Neu" Then
Rows(.Row).Interior.ColorIndex = 37
Else
Rows(.Row).Interior.ColorIndex = xlNone
End If
End With