Zelleninhalt um 1 erhöhen
08.05.2006 13:07:19
Andreas
ich hab eine Exceldatei mit mehreren Tabellenblättern. Ich will ein bestimmtes Tabellenblatt aufrufen. Das funktioniert auch alles. In den Zellen im Bereich B4:B375 stehen in fast allen Zellen Jahreszahlen (z.B. 1995, 2001 usw.). Die restlichen Zellen, in denen keine Jahreszahlen stehen sind entweder leer oder haben einen Text als Inhalt.
Ich will nun, dass mir die Prozedur die Zellen mit den Jahreszahlen raussucht und diese jeweils um eins erhöht. Ich hab mir gedacht das mit einer Variablen zu machen und diese dann zu überprüfen, ob es sich um einen Integer-Wert handelt, aber ich hab scheinbar noch einige Fehler drin.
Meine Prozedur sieht folgendermaßen aus:
Sub Jahre_anpassen()
Dim a As Integer
Dim b As Range
Windows("Jahresdaten_Tabellen.xls").Activate
Sheets("Tab 1 - Daten").Select
Range("B4:B375").Select
a = Cells.Value
b = Columns.Range("B1")
If a Then
a = a + 1
b = b + 1
End If
End Sub
Kann mir jemand helfen?
Gruss
Andreas