Makro wenn bestimmter Wert gelöscht
22.11.2021 12:37:55
Kerstin
Ich verzweifle gerade wieder einmal...
Ist es möglich ein Makro ausführen zu lassen, wenn ein BESTIMMTES Wort GELÖSCHT wurde?
Beispiel: Spalte A1:A31 hat folgende Zellinhalte: leer, Urlaub oder Krank
wenn ich jetzt mit klick auf die Zelle mit Inhalt "Urlaub" dieses Wort lösche (z.B. weil Urlaub verschoben wurde), dann möchte ich, daß die Urlaubstage, die in B1 stehen, um 1 erhöht werden.
Hier sind meine kläglichen Versuche (mit Hilfszelle, klappt aber auch nicht):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Row > 31 Then Exit Sub
'Hilfszelle
If Target.Value = "Urlaub" Then
Range("M1") = Target.Value
ElseIf Target.Value "Urlaub" Then
Range("M1") = ""
Exit Sub
End If
If Target.Value = "" And Range("M1") = "Urlaub" Then
Range("B1") = Range("B1") + 1
End If
'If WorksheetFunction.CountA(Target) = 0 Then
'Range("B1") = Range("B1") + 1
'End If
'If Range("M1") = "Urlaub" Then
'Range("B1") = Range("B1") + 1
'End If
End Sub
Weiß irgendjemand des Rätsels Lösung?Liebe Grüße
Kerstin