Ich will einzelne Zellen durchlaufen und um 1 erhöhen.
Gegeben ist ein benannter Bereich namens "Bereich"
Sub Makro1()
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range("B6:E10")
ActiveWorkbook.Names.Add Name:="Bereich", RefersTo:=Bereich
'Jetzt geht's los
For Each Zelle In Bereich
Zelle.Value = Zelle.Value + 1
Next Zelle
End Sub
Nun will ich aber nur jede Zelle in der zweiten Spalte durchlaufen.
Oder: Jede Zelle in der Spalte direkt rechts neben dem Bereich.
Bitte um hilfreiche Tipps.
LG, Barbara