Makro wird erst bei Klick in Zelle A1 ausgelöst
Peter
Hallo zusammen,
ich bin neu und ein grosser Anfänger.
Ich habe folgenden Text geschrieben, welcher auch funktioniert.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer, farbe As Integer
If Target.Column > 1 Then Exit Sub
For i = 1 To 1000
Select Case Cells(i, 27) 'für Zellen AA1:AA1000
Case "keine Freigabe"
farbe = 3 'rot
Case "Freigabe unter Vorbehalt"
farbe = 6 'gelb
Case Else
farbe = xlNone 'wenn keine Übereinstimmung
End Select
Rows(i).Interior.ColorIndex = farbe
Next i
End Sub
Leider werden die Zeilen erst eingefärbt, wenn ich in die Zelle A1 klicke.
Ich würde es gerne auslösen, sobald ich in einer andere Zelle als in Spalte AA (27) etwas eintrage.
Vielen Dank,
Gruss Peter