Könnt ihr mir ein paar Tipps geben? Weiss glaub ich nicht so genau was das soll. Es soll sich auch auf neue Reihen beziehen.
Gruß Alina
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Left(Target.Formula, 1) = "=" Then
If MsgBox("Soll die Zellformel in die gesamte Spalte geschrieben werden?", vbQuestion + vbYesNoCancel, "Frage") <> vbYes Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
Target.Copy Target.EntireColumn
Application.EnableEvents = True
End If
End Sub