Als Antwort auf diesen Beitrag
Hallo und schon vielen Dank,
der Tipp von Mr. K. funktioniert wunderbar, wenn nur dieses eine Makro im Tabellenblatt vorhanden ist. Doch es gibt noch Makro, in dem die Zeile "Private Sub Worksheet_Change(ByVal Target As Range)" vorkommt.
'================================================================================
' Worksheet_Change: Reagiert auf Änderungen in der Tabelle
'================================================================================
Private Sub Worksheet_Change(ByVal Target As Range)
' Bereich A4:A93 – Buchungsart prüfen
If 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
Ich denke, dass hier die beiden Anweisungen kollidieren und es deshalb nicht läuft. Vielleicht findet ihr ja auch dafür eine Lösung. Die Tabelle ist die "Tabelle1".
Dank
Andreas