ich möchte den Inhalt einer Zelle z.b. in Spalte c in die drei rechts danebenliegenden Spalten d,e,f kopieren. Noch besser wäre es über eine Inputbox abzufragen um wieviel Spalten nach rechts kopiert werden soll.
Wer kann mir Helfen ?
Gruß Lars
Sub Kopieren()
For s = 1 To InputBox("Wieviele?")
Cells(ActiveCell.Row, ActiveCell.Column + s).Value = ActiveCell.Value
Next s
End Sub