Als Antwort auf diesen Beitrag
Guten Abend,
ich hatte doch geschrieben, dass du auch die anderen Codeteile aus dem vorherigen Code übernehmen sollst. Ich kann nicht wissen, was du sonst noch an Code in dem Blatt hast. Daher nimm den vorherigen Code, ersetze das Worksheet_Change_Makro durch den neuen Code und ergänze das Ganze mit deinen anderen Codes. Hier nochmal der aktuell bekannte Code in Komplettform. Wichtig dabei ist, dass die Deklaration der Variable urrc ganz oben als erste Zeile im Blatt-Modul steht.
Dim urrc As Long
Private Sub Worksheet_Activate()
urrc = Me.UsedRange.Rows.Count
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Me.UsedRange.Rows.Count < urrc Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
MsgBox "Bitte keine Zeilen löschen, nur leeren"
' Bereich A4:A93 – Buchungsart prüfen
ElseIf Not Intersect(Target, Me.Range("A4:A93")) Is Nothing Then
Call Buchungsart_Geändert(Target)
' Bereich B4:B93 – Datum prüfen und konvertieren
ElseIf Not Intersect(Target, Me.Range("B4:B93")) Is Nothing Then
Call DatumKonvertieren(Target)
' Bereich C3:C93 – Formel wiederherstellen falls gelöscht
ElseIf Not Intersect(Target, Me.Range("C3:C93")) Is Nothing Then
' Nur bei Einzelzellen-Auswahl reagieren
If Target.Cells.CountLarge = 1 Then
If Target.Value = "" Then
Application.EnableEvents = False
On Error Resume Next
If Target.Row = 3 Then
Target.Value = 0
Else
Target.Formula = "=J" & Target.Row
End If
On Error GoTo 0
Application.EnableEvents = True
End If
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
urrc = Me.UsedRange.Rows.Count
End Sub
Gruß Mr. K.