Zelle hochzählen bei klick auf Button

[onit]

Hallo zusammen,

habe ein kleines Problem. Ich will unsere Anrufe in einer Tabelle nach "Kunde zufrieden" oder "Kunde unzufrieden" auswerten. Habe schon zwei Buttons angelegt. Jetzt bräuchte ich ein Makro dass das Feld C15/bzw C16 beim anklicken des jeweiligen Buttons hochzählt.
Kann mir jemand helfen. Habe schon die Beiträge über fortlaufende Rechnungsnummern etc. gelesen. Kann daraus aber kein eigenes Makro ableiten.

Gruß onit

[komma4]

Code: Alles auswählen

Sub incrementC15

oZelle = ThisComponent.Sheets.getByName( "Tabelle5" ).getCellRangeByName( "C15" )
oZelle.Value = oZelle.Value + 1 

End Sub

Name des Tabellenblattes natürlich anpassen!


Kommst Du damit zurecht?

[onit]

Hallo Winfried,

danke für die schnelle Antwort.

Leider komme ich nicht zurecht damit.
Ich erhalte immer wieder den Fehler: Basic Laufzeitfehler Variable nicht definiert

Evtl. falsche vorgehen von mir??!! Habe unter Makro OpenOffice Basic verwalten den Namen incrementC15 eingegeben und dann auf Button neu gedrückt und dann den Code einkopiert. Dem Button dieses Makro zugewiesen. Wie gesagt wenn ich auf den Button drücke kommt o.g. Fehlermeldung.

Aber nochmals Danke

[komma4]

Ich erhalte immer wieder den Fehler: Basic Laufzeitfehler Variable nicht definiert

Du hast in einem Modul eine OPTION EXPLICIT-Angabe?!! [siehe Onlinehilfe dazu]

Definiere die Variable durch

Code: Alles auswählen

DIM oZelle 

innerhalb der SUB, vor erster Verwendung.

Und der Code wurde in ein Modul der STANDARD-Bibliothek kopiert?

Klappt das?

[onit]

Hallo nochmal,

klappt leider noch immer nicht. Makro ist in Standard Modul 1.
Leider komm ich mit Option Explicit und Dim nicht klar.

Bei mir schaut das jetzt so aus:

Code: Alles auswählen

Sub incrementC15
dim oZelle
oZelle = ThisComponent.Sheets.getByName( "Tabelle1" ).getCellRangeByName( "C15" )
oZelle.Value = oZelle.Value + 1 

End Sub

Gruß

Onit

[komma4]

Kommt immer noch die Fehlermeldung "Variable nicht definiert"?

Welche Zeile ist den markiert im Basic-Editor?


Welche OOo-Version? Klappt hier einwandfrei...

[onit]

Hallo,

wenn ich jetzt auf den Button klicke passiert überhaupt nichts.


OpenOffice 3.2.0 auf Mac 10.4.11


Gruß

[komma4]

Führe den Code mal im Basic-Editor aus (F5) - geht das?

Ist das Makro der Schaltfläche noch zugeordnet?

[onit]

Hallo,

kann jetzt leider nicht mehr in der Arbeit nachschauen.
Bin jetzt Zuhause. Habe das Makro mit Neooffice und Mac getestet. Da geht es.
Werde es morgen nochmal testen und die Verknüpfung überprüfen und es im Editor versuchen.
Evtl. von einem anderen Rechner aus.
Aber vielen DANK es klappt leider nur nicht auf meinem Rechner.

Gruß
Onit

[onit]

Hallo nochmals,

bin jetzt gierig geworden und will mehr. Habe jetzt eine Button zum hochzählen und einen zum abziehen (wenn man sich mal verklickt).
Will jetzt die Kunden noch besser auswerten. Nicht mehr nur mit zufrieden und unzufrieden, sondern in einer Skala von 1-5 und das ganze auch mit verschiedenen Kategoriene (Auftragsannahme, Freundlichkeit, Lieferzeit etc.). Ich könnte dafür jetzt 15 verschiedene Makros machen und die einzeln mit den Buttons verbinden. Glaube aber das geht auch einfacher, weiß nur nicht wie. Habe es mir so vorgestellt: Habe die verschiedenen Kategorien (Auftragsannahme 1, Auftragsannahme 2 usw. in verschiedenen Spalten. Wenn jetzt auf den Button Auftragsannahme 1 geklickt wird soll in der Zelle C15 hochgezählt werden. Bei Auftragsannahme 2 in der Zelle D15. Also immer in der Zelle die über dem Button liegt. Brauche jetzt den Code für "Schreibe in die Zelle, die über der aktivierten/geklickten liegt, bzw. bei Minus in die Zelle die zwei drüber liegt.
Ich hoffe ich habe mich verständlich ausgedrückt.

Wer kann mir nochmals helfen?

Bis dann

Gruß
Onit

[clag]

Hi onit,

ich habe dir da etwas zusammengebaut vielleicht kannst du damit etwas anfangen

das erweitern sollte nicht so schwierig sein (sage ich jetzt mal, bin selbst ein Basic Greenhorn )

Zaehler_01.ods

(10.42 KiB) 416-mal heruntergeladen

[onit]

Hallo clag,
erst mal danke. Blicke zwar noch nicht ganz durch aber kommt evtl. noch.

Ich lege mal mein Formular als Bild bei:

Werde morgen weitermachen. Muß jetzt weg zum Fußball gucken. Mein Tipp 4:1 für uns.

Gruß

Onit

[turtle47]

Hi,

die Aufgabenstellung kann man auch ohne Makro mittels Drehfeldern lösen.

Viel Erfolg.

Jürgen

[clag]

Hallo onit,

so kompliziert fand ich das nicht

du klickst auf einen Wert (farbig hinterlegt zum schnelleren erkennen)
und klickst dann auf den Button "bewerten" und der zuvor markierte Wert wird aufaddiert
funktioniert nur in dem ersten Feld mit dem Button [ Wertung ].

[onit]

Guten Morgen,

das mit dem Drehfeld ist total einfach. Das begreife sogar ich. So werde ich das machen. Bei den Makro Sachen bleibe ich mal dran.

Vielen Dank für Eure Mühe.

Gruß

Onit