will, dass z.B. der Eintrag in Zelle B1 nach C1 verschoben wird, wenn ich in Zelle A1 einen Wert einsetze...
Please help me;(
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value = "" Then Exit Sub
Range("C1").Formula = Range("B1").Formula
Range("B1").Value = ""
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value = "" Then Exit Sub
Range("B1").Insert Shift:=xlToRight
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$4" Then Exit Sub
If Target.Value = "" Then Exit Sub
Sheets("Tabelle2").Range("B2").value = Range("D4").Value
Range("D4").Value = ""
End Sub