Clever-Excel-Forum

Option Explicit



Sub NextColumn()

'Adresse eines mehrspaltigen Bereich in rechts daneben liegende Spalte 

'verschieben und auf eine Spalte zuruecksetzen 

'Mit dem Bereich A2:B3 

With Range(Cells(2, 1), Cells(3, 2))

  'Offset um Anzahl der Spalten, zuruecksetzen auf eine Spalte 

  'und Daten bzw. Werte eintragen - hier 1 

  .Offset(0, .Columns.Count).Resize(.Rows.Count, 1).Value = 1

'Ende Mit dem Bereich A2:B3 

End With

End Sub