Excel VBA jede Zelle in Bereich (Range) ändern (+1)

Tabelle mit etlichen Click-Buttons, denen unterschiedliche Makros zugeordnet sind.
1. Bereiches (Range) "ohneX" sollten sich um z.B. 1 erhöhen, gleichzeitig sollen Felder eines
2. Bereiches (Range) "_zX" auf Null gesetzt werden.
(X = Zahl des Makros und der Bereichs-Kennung)

Guten Tag, hab etliches versucht, hoffe jetzt auf Eure / Ihre Hilfe?
Grundsatzlich funktioniert das schon etwas..., es sind nur leider alle Werte des Bereichs "ohneX" irgendwie immer gleich.
Makros fortlaufend (X)...
Mir fehlt "nur" das Durchlaufen aller Zellen des Ranges "nicht", damit unterschiedliche Werte herauskommen.
Meine nicht funktionierenden Exerimente mit "for Each" erspare ich Euch und dem Server...
1.)
Sub z1()
Dim nicht As Range
Dim doch As Range
Set nicht = Range("ohne1")
Set doch = Range("_z1")
nicht.Value = nicht.Value + 1
doch = "0"
End Sub
2.)
Sub z2()
Dim nicht As Range
Dim doch As Range
Set nicht = Range("ohne2")
Set doch = Range("_z2")
nicht.Value = nicht.Value + 1
doch = "0"
End Sub
3.).... etc

Ganz lieben Dank, wenn Ihr mich unterstützen könntet.....
Gruss Gabi

Dim rngCell As Range
    
For Each rngCell In Range("ohne1:ohne2")  
    rngCell.Value = rngCell.Value + 1
Next

For Each rngCell In Range("_z1:_z2")  
    rngCell.Value = 0
Next

Dim i As Integer

For i = 1 To 2  'Von Bis  
    With Range("ohne" & i)  
        .Value = .Value + 1
    End With
    Range("_z" & i).Value = 0  
Next