Debuggen
16.04.2018 13:29:45
Peach123
ich hoffe ihr könnt mir eventuell helfen.
Ich besitze zwei identische Mappen.
Wenn ich in Mappe2 die formeln "überschreibe", sollen diese nach dem Löschen aus Mappe1 wieder hergestellt werden.
Nur bekomme ich ständig eine Fehlermeldung. Bei der ich leider nicht mehr weiter weiß.
Könnte mir jemand helfen?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
With Sheet("ActiveSheet")
Set Bereich = Range("A7:Q66")
If Not Intersect(Target, Bereich) Is Nothing Then
If IsEmpty(Target) Then
Target.Formula = Sheets("Formelblatt").Range(Target.Address).Formula
End If
End If
End With
End Sub