manueller Counter

Forumthread: manueller Counter

manueller Counter

Wolfango

Hallo Experten,
ich würde mir ein Makro wünschen welches folgendes macht:
Jedes mal wenn ich ein - mit den Zeichenwerkzeugen gezeichnetes - Rechteck anklicke soll in der Zelle A1 jeweils 1 hinzuaddiert werden. Wenn ich auf die Schaltfläche 4 mal draufklicke soll in A1 die Zahl 4 stehen; klicke ich weitere 5 mal darauf, soll in A1 die Zahl 9 stehen usw.
Da gibt's doch sicher einen VBA Code?
Danke!
Gruß,
Wo.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: manueller Counter

Reinhard
AW: manueller Counter

Wolfango

AW: manueller Counter

08.03.2011 11:36:47

Reinhard

Hallo Wo,
Alt+F11, Einfügen---Modul, Code reinkopieren, VB-Editor schließen.
Rechtsklick auf das Viereck, Makro--Zuweisen, Zahl auswählen.


Sub Zaehl()
On Error GoTo hell
Range("A1").Value = Range("A1").Value + 1
hell:
If Err.Number  0 Then MsgBox Err.Number & vbCr & Err.Description
End Sub

Gru´ß
Reinhard

AW: manueller Counter

08.03.2011 12:33:02

Wolfango

...genau so hab ich mir das vorgestellt!
Funktioniert super!
Herzlichen Dank!!!
Gruß,
Wo.

Forumthread: manueller Counter

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread