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
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)