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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen