Hochzählen bei Wert 30 stoppen
20.04.2005 19:45:38
Rolf
bei jedem Auslösen des folgenden Makros wird der Inhalt der Zelle A1 um "1" erhöht. Ich möchte das Makro so erweitern, daß beim 30. mal der Inhalt der Zelle A1 nicht mehr erhöht wird.
Hat jemand eine Idee, wie das Makro dann aussehen muß?
Sub Rechenoperationen01()
Dim i As Integer
Sheets("Tabelle1").Activate
i = Range("A1").Value
i = i + 1
Range("A1").Value = i
End Sub
Vielen Dank im voraus
Rolf