[Excel] Zellen einer Spalte neben einem mehrspaltigen Bereich ansprechen

[schauan]

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

Stichworte zur Suche in unserem Excel-Forum:
Excel VBA
benachbarte Zelle Zeile Spalte
Makro OFFSET RESIZE