AW: Datenüberwachung nach Uhrzeit
24.08.2022 19:17:36
Oberschlumpf
Hi Ralf,
hmm, ok, die Kontrolle bei Namensänderung in Schichtzelle könnte weg - aber das wäre dann nicht konsequent.
Angenommen - jetzt - steht dein Name drin - mit deinen IST- und AUSSCHUSS-Zahlen
Jetzt löschst du deinen Namen - aber die ganzen Zahlen bleiben ja drin....ok, dann so...
änder diesen Code...
With Target
If InStr(.Address, ";") > 0 Or InStr(.Address, ":") > 0 Then
If InStr(Cells(.Row, 1).Value, "Kalenderwoche") Then
Application.EnableEvents = False
If MsgBox("Wenn Sie die Namensauswahl für die " & .Offset(-1, 0).Value & " löschen, dann werden auch alle Inhalte des zugehörigen Bereichs gelöscht." & vbCrLf & _
"Wollen Sie das?", vbQuestion + vbYesNo, "Bereich löschen") = vbYes Then
lloCControl = .Column - 5
lloRControl = .Row + 4
Range(Cells(lloRControl, lloCControl), Cells(lloRControl + 13, lloCControl + 7)).ClearContents
Else
Application.Undo
End If
Application.EnableEvents = True
Exit Sub
End If
Else
If InStr(.Offset(-1, 0).Value, "schicht") Then
Exit Sub
End If
End If
lloRAct = .Row
lloCAct = .Column
End With
...um in...
With Target
lloRAct = .Row
lloCAct = .Column
End With
...sollte helfen, oder?
Ciao
Thorsten