Office 2010: Werte im Zellenbereich per Button erhöhen

[freddurst82]

MOOIN!

Ich hab jetzt echt sicher zwei Stunden gegooglet und einfach keine entsprechende Lösung gefunden.
Kurze Info: Ich hab für Madden eine Tabelle erstellt, mit Namen der Spieler, Alter, restliche Vertragslänge usw - find ich einfach übersichtlicher als ingame, außerdem mag ich Excel

Jedenfalls, bei jedem Saisonwechsel muss ich jetzt in den Bereichen A1:A20 und H1:H20 das Alter um 1 erhöhen.
Das geht garantiert mit einem Button - leider hab ich bisher nur den Befehl entdeckt, für EINE Zeile zu erhöhen. Die Befehle für den kompletten Bereich hab ich nicht gefunden oder er funktioniert nicht richtig.

Also ich würde erstmal gerne in A1 bis A20 den jeweiligen Wert um 1 erhöhen, wenn ich auf einen Button klicke.
Der VBA Code dafür wäre super


- weiterhin würde ich dann gerne anschließend auch alle Zellen in A1 bis A20 überspringen, welche leer sind (wegen der Übersicht kein Spieler und somit kein Alter eingetragen)
Hatte gedacht, dass das mit "Range" geht, aber leider funktionierte das nicht so, wie ich wollte.

Danke schonmal und sollte das Thema bereits existieren: sorry, ich habs echt nicht gefunden ..... oder ich hab falsch danach gesucht

[gmg-cc]

Moin,
da hast du wahrscheinlich die falschen Suchbegriffe verwendet ... 
Dieser Code tut es:

Code: [Auswählen]

Option Explicit

Sub SaisonWechsel()
   Dim Ze As Integer, c As Range
   For Ze = 1 To 20
      Set c = Cells(Ze, 1)
      If IsNumeric(c) And c > "" Then c = c + 1
   Next Ze
End Sub

[freddurst82]

vielen Dank,

oh man, diesen Code hatte ich sogar entdeckt und hab ihn überflogen, weil ich gedacht habe, das geht mit Range.Value+1

danke danke