Makro Wert um 1 erhöhen

[Paul]

Hallo Community,

ich möchte gern ein Excel-Makro haben, das folgende Funktion erfüllt:
Auf Drücken eines Softkeys wird der Zahlenwert der markierten Zelle um 1
erhöht.
Ich stelle mir vor, dass das Makro zunächst den vorhandenen Zahlenwert
auslesen und in eine Variable a übernehmen muss, anschließend die Rechnung b
= a+1 vornehmen muss, dann die Variable b in die Zelle eintragen muss. Leider
verfüge ich über keinerlei Kenntnisse zum Bau eines Excel Makros und bitte
deshalb um einen vollständigen Code, also von Sub bis End Sub.

Schon mal herzlichen Dank

Paul

[Thomas Ramel]

Grüezi Paul

Post by Paul
Auf Drücken eines Softkeys wird der Zahlenwert der markierten Zelle um 1
erhöht.
Ich stelle mir vor, dass das Makro zunächst den vorhandenen Zahlenwert
auslesen und in eine Variable a übernehmen muss, anschließend die Rechnung
= a+1 vornehmen muss, dann die Variable b in die Zelle eintragen muss. Leider
verfüge ich über keinerlei Kenntnisse zum Bau eines Excel Makros und bitte
deshalb um einen vollständigen Code, also von Sub bis End Sub.

Versuche es mal mit den folgendn Zeilen - sie prüfen ob in der aktiven Zelle
eine Zahl vorhanden ist und erhöhen diese dann um 1:

Public Sub Erhoehen()
If IsNumeric(ActiveCell.Value) Then
ActiveCell.Value=ActiveCell.Value+1
End If
End Sub

[Paul]

Hallo Thomas,

das klingt ziemlich gut. Werde es ausprobieren. Herzlichen Dank schon mal.

Paul

Post by Thomas Ramel
Grüezi Paul

Post by Paul
Auf Drücken eines Softkeys wird der Zahlenwert der markierten Zelle um 1
erhöht.
Ich stelle mir vor, dass das Makro zunächst den vorhandenen Zahlenwert
auslesen und in eine Variable a übernehmen muss, anschließend die Rechnung
= a+1 vornehmen muss, dann die Variable b in die Zelle eintragen muss. Leider
verfüge ich über keinerlei Kenntnisse zum Bau eines Excel Makros und bitte
deshalb um einen vollständigen Code, also von Sub bis End Sub.

Versuche es mal mit den folgendn Zeilen - sie prüfen ob in der aktiven Zelle
Public Sub Erhoehen()
If IsNumeric(ActiveCell.Value) Then
ActiveCell.Value=ActiveCell.Value+1
End If
End Sub
--
Mit freundlichen Grüssen
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2003]