"Anklicken" der Schaltfläche Zählen

[noni]

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.O bject.Caption = _
CStr(Val(ActiveSheet.Shapes(Application.Caller).OL EFormat.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

[F3K Total]

Hi,
wie wäre es, wenn Du ein Beispieldokument hochlädst?

Gruß R

[noni]

O.K.
Habe mal den Bereich mit den Buttons rauskopiert und in eine Beispieldatei gepackt.
vielleicht kannst Du mein Kostrukt ja zum Leben erwecken...
Danke

[F3K Total]

Nein, kann ich nicht, denn es handelt sich nicht um Buttons, sondern um Bilder.
Anbei ein Beispiel mit Buttons, einmal klicken, und im aktuellen Monat wird hochgezählt.

Gruß R

[noni]

O.K.
Das sieht wirklich anderst aus - allerdings funktioniert das in der Datei leider auch nicht.
Wir haben Februar - und wenn ich z.B. auf den Button 2 Klicke erscheint keine Zahl in Februar...

[noni]

Entschuldige,
habe mir die Datei runtergeladen und neu OO neu gestartet. Jetzt funktioniert das - Klasse, vielen Dank!!
Gruß Norbert

[noni]

Vielleicht kannst Du mir noch den Code abwandeln, da die Ausgabe der Summen in Tabelle 2 erfolgen soll.
Ganz herzlichen Dank für Deine Mühe und Gruß
Norbert

[balu]

Hallo Norbert,

Ich habe folgendes Problem auf das ich im Forum kein Thema finden konnte:
[...]
immer wieder eine Fehlermeldung und keinen Erfolg.

Wenn ich falsch liege, dann darfst Du mich Lügner nennen. Aber dein Code sieht mir sehr verdächtig nach Excel-VBA aus, oder? Und da ist es nicht verwunderlich das er nicht einwandfrei funktioniert, da StarBasic nicht zu 100% VBA kann.

Ein alternativer Code
[...]
funktioniert leider auch nicht...............

Verständlich, da auch das VBA ist.

Vielleicht kannst Du mir noch den Code abwandeln, da die Ausgabe der Summen in Tabelle 2 erfolgen soll.

Sorry, auch wenn es sich hart anhört so bleibt dir das nicht erspart: "Lerne StarBasic."
Schau mal bei Dannenhöfer rein.
Und/oder downloade dir Andrew Pitonyak's OpenOffice Macro Information. Eine deutsche Version ist dort auch zu finden.

Folgendes noch.
Jeder hilft hier bestimmt gerne bei Makro-Problemen, aber dann bitte im richtigem Forum: OOo Basic und Java
Wenn die Datei nur in OOo/LO funktionieren soll, dann arbeite nur mit StarBasic da VBA Probleme mit sich bringen wird. Soll die Datei aber auch in Excel funktionieren dann sag das im voraus, da es dann sehr problematisch werden kann weil hier nicht jeder Excel hat.



Gruß
balu

[noni]

Danke Balu

Gerade weil ich mich nicht wirklich auskenne nutze ich genau dieses Forum um mich weiter zu entwickeln. Ja, und das mit freundlicher Unterstützung der Forenmitglieder wie z.B. F3K Total!
Mir war nicht klar, das dieses Forum hier nur etwas für Profis ist, sorry.

Gruß Norbert

[balu]

Hallo Norbert,

das Du jetzt meine Worte falsch verstanden hast, dafür entschuldige ich mich.
Ich dachte nur, wenn Du mit VBA hier ankommst, das Du dementsprechend schon Erfahrung dadrin hast und StarBasic zu lernen dir eventuell nicht gar so schwer fällt. Und damit dir der Einstieg/Umstieg nicht gar so schwer fällt, hatte ich dir die zwei nützlichen Links gepostet.

Vielleicht kannst Du mir noch den Code abwandeln, da die Ausgabe der Summen in Tabelle 2 erfolgen soll.

Mit dieser Bitte kann zumindest ich nicht viel anfangen, da einfach noch weitere Angaben fehlen. Wo genau in Tabelle 2, ab welcher Zelle?
Um das Blatt zu ändern musst Du im Code folgende Zeile ändern.

Code: Alles auswählen

osheet = thiscomponent.sheets(0)

Hier tauscht Du die Null (0) gegen eine 1 aus. Nachzulesen hier: Wie kann man auf Sheets (Arbeitsblätter) zugreifen?

Wenn Du nicht in der Spalte D die Ergebnisse dort haben willst, dann musst Du etwas mehr ändern. Nützliche Infos dazu bekommst Du bei: Wie bekomme ich Zugriff zu einer Zelle?

Hilft dir das weiter?



Gruß
balu

[noni]

Hallo balu
...gab es da etwa etwas falsch zu verstehen?
Zu Deinen Vorschlägen - ja, das hat mir geholfen - vielen Dank!
Werde das mal versuchen umzusetzen - zwischenzeitlich bin ich durch Knobeln soweit, das ich es zum Laufen gebracht habe und es mir eine numerische Statistik auswirft welche ich als Diagramm darstellen kann.

Vielen Dank nochmals an Alle