Office: Klick auf Schaltfläche zählen

Hallo zusammen

Ich habe folgendes Problem auf das ich im Forum kein Thema finden konnte:

Ich habe auf einem Sheet eine Oberfläche mit 7 Buttons zum anklicken. Ich wollte gerne das Anklicken numerisch addiert haben und die Ausgabe der einzelnen Summen (bezogen auf den jeweiligen Button) auf dem 2. Sheet als Auswertung haben.
Leider habe ich bei dem von mir eingefügten Makro :
"Public Sub prcCount()
ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Caption = _
CStr(Val(ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Caption) + 1)
End Sub"
immer wieder eine Fehlermeldung und keinen Erfolg.

Ein alternativer Code
"Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveCell.Activate
Me.Range("B2").Value = Me.Range("B2").Value + 1
End Sub"
funktioniert leider auch nicht...............
Hat vielleicht jemand von Euch eine Idee, wie ich das genau anstellen soll?
Die Schaltflächen liegen von B2 bis B8 - mein nächstes Problem wäre, ich würde diese Summen aus den Klicks auf Sheet 2 nach Monat(Januar-Dezember) sortiert haben wollen um damit eine Statistik anzufertigen.

Ich wäre allerdings auch nur für die Lösung meines 1. Problems extrem dankbar!!
D A N K E

 

Hallo noni,

bei

Code:

[FONT=Courier New]ActiveCell.Activate[/FONT]

frage ich mich:
Was willst Du damit bezwecken die aktive Zelle zu aktivieren?
Das ist sie doch schon.... sonst wäre es ja nicht die aktive...

Bei mir funktionierts auf jeden Fall so:

Code:

Option Explicit

Private Sub CommandButton1_Click()
Me.Range("B2").Value = Me.Range("B2").Value + 1
End Sub

Deine Zweite Frage habe ich im Detail nicht wirklich verstanden.


Ich hoffe geholfen zu haben.

 

Hallo Achim

Danke für Deine Antwort.
Leider funktioniert das auch nicht... bekomme wieder eine Fehlermeldung ( sende die mal als Anhang )

Zum 2 Teil meines Problems:
Die jeweiligen Klicks sollen statistisch ausgewertet werden. Ich hätte diese gerne summiert in dem jeweiligen Monat, in welchem sie durchgeführt wurden.
Also: Insgesamt z.B. 9 Klicks auf Button 1 im Januar sollen dann im nächsten Sheet unter Januar erscheinen usw, usw...

Danke und Gruß

Norbert

 

Hallo Norbert,

Du verwendest OpenOffice, da kenne ich mich garnicht mit aus.

Im Windows-Office würde ich es so probieren:

Code:

Option Explicit

Dim wksMonat As Worksheet
Dim strMonat As String


Private Sub CommandButton1_Click()
    
    strMonat = Format(Now, "mmmm")
    Set wksMonat = ThisWorkbook.Worksheets(strMonat)
    wksMonat.Range("B2").Value = wksMonat.Range("B2").Value + 1

End Sub

(Unter der Vorraussetzung, dass Du 12 Blätter hast, benannt mit den Monatsnamen)

Vielleicht klappts ja auch bei Dir...

 

Hallo Achim

Sorry - Du hast Recht. Bin aus lauter Verzweiflung mal an das OOCalc gegangen und immer noch drin.
Leider habe ich das unter Excel auch mit diesem Code nicht zum Laufen gebracht und werde jetzt - genervt - schluss machen.
Ich werde mich mal Freitag nochmals dran machen und überlege mir bis dahin, woran es eigentlich hakt?

Vielen Dank für Deine Tips und Gruß

Norbert

 

Vielleicht ne blöde Frage, aber Du hast den Code schon im Modul des Blattes, auf dem sich der Button befindet, oder? Ansonsten kann das nix werden...

 

...eigentlich schon - Bin auf diesem Blatt zu Gange und habe nicht gewechselt. Irgendwie hab`ich aber jetzt einen "Knoten" im Kopp und muss Schluss machen ( sonst träume ich noch mehr wirres Zeug...)

Besten Dank
Norbert