wie ist's möglich, wenn ich in Spalte A20, 10, eintippe, dass Excel dann automatisch in Spalte A19, 9; A18, 8; A17, 7 einträgt etc.
Die Spalten sollen automatisch bis zu Wert X erweitert werden.
besten Dank.
Code:
[Cc]
' Ins Tabellenmodul
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$20" Then Exit Sub
With Target
For i = .Value To 1 Step -1
.Offset(i - .Value).Value = i
Next i
End With
End Sub