Seite 1 von 5
Quittungston generieren???
Verfasst: Di 3. Feb 2015, 15:38
von Sonntagsflieger
Hallo liebe Leute,
ich würde gerne einen kurzen Quittungston hören für den Fall, daß in den Zellen A1 bis A5 ein Wert > 0 eingetragen wird.
Hört sich ja erstmal einfach an, ich bekomme es aber nicht hin und wäre für Hilfe sehr dankbar. Muss ich das über VBA
als Makro programmieren oder geht das auch einfach als WENN > DANN Funktion direkt in den betreffenden Zellen?
Als Ton würde ich gerne die Möglichkeit haben aus verschiedenen Audiodateien das passende auszuwählen. Das Netz
habe ich schon durchstöbert, bin aber noch nicht so recht weitergekommen, da ich auch absolter Anfänger in der VBA
Programmierung bin.
Meine LO-Version ist 4.3.5.2, ich arbeite auf einem Macbook Pro unter OSX 10.7.5
Freue mich über Tipps,
viele Grüße.
Re: Quittungston generieren???
Verfasst: Di 3. Feb 2015, 18:11
von F3K Total
Hi,
hier und
hier hatten wir mal was ähnliches.
Gruß R
Re: Quittungston generieren???
Verfasst: Di 3. Feb 2015, 18:21
von Sonntagsflieger
Jep. Weiss ich. Wie bereits geschrieben habe ich das Netz bereits durchforstet und bin nicht weitergekommen. Ich gehöre nicht zu denjenigen die zu faul sind ordentlich zu recherchieren bevor sie eine Frage in einem Fachforum stellen. Habe das Makro sowie Deine
beiden Funktionen aus dem von Dir verlinkten Thread bereits vorher ausprobiert > funktioniert bei mir nicht. Habe auch die entsprechende Sounddatei ganz brav im Libre Office template Ordner abgelegt wie beschrieben.
Viele Grüße.
Re: Quittungston generieren???
Verfasst: Di 3. Feb 2015, 18:35
von F3K Total
Hallo,
habe es gerade ausprobiert, funktioniert bei mir auch unter LibreOffice.
Kann es sein, das bei dir keine Makros laufen dürfen?
Damit die Makros laufen, stellst du unter Extras/Optionen/LibreOffice/Sicherheit/Makrosicherheit mindestens die Stufe "Mittel" ein, dann wirst du beim Öffnen von Dokumenten gefragt, ob du Makros ausführen möchtest.
Gruß R
Re: Quittungston generieren???
Verfasst: Di 3. Feb 2015, 18:41
von karolus
Hallo
Verknüpfe folgendes mit
→Rechtsklick auf Tabellenreiter→Tabellenereignisse→Inhalt geändert
Code: Alles auswählen
Sub Main(event)
adress = event.CellAddress
If adress.Row < 5 And adress.Column = 0 And event.Value > 0 Then
'shell("mplayer /usr/share/mint-artwork-cinnamon/sounds/unplug.oga")
'schneller
shell("play /usr/share/mint-artwork-cinnamon/sounds/unplug.oga")
End If
End Sub
Das ``shell``-kommando musst du halt für dein OSX 10.7 selbst zusammenfrickeln, ich musste hier auch erst einen Player finden der es reibungslos von der Kommandozeile tut.
Karolus
Re: Quittungston generieren???
Verfasst: Di 3. Feb 2015, 18:46
von F3K Total
So, hier eine funktionierende Beispieldatei, und ein Sound.
- Entzippe die Datei B.zip zu B.mp3 und kopiere sie in deinen Ordner user/template im Benutzerverzeichnis.
- Öffne die Datei Sound_Template.ods , lasse die Ausführung von Makros zu, sonst kann es nicht funktionieren
- Schreibe in Zelle A1 ein B
Gruß R
Re: Quittungston generieren???
Verfasst: Di 3. Feb 2015, 19:36
von Sonntagsflieger
F3K Total hat geschrieben:
Kann es sein, das bei dir keine Makros laufen dürfen?
Nein, kann nicht sein. Makrosicherheit steht auf der niedrigsten Stufe.
karolus hat geschrieben:
Das ``shell``-kommando musst du halt für dein OSX 10.7 selbst zusammenfrickeln, ich musste hier auch erst einen Player finden der es reibungslos von der Kommandozeile tut.
Sorry, daß ich auf dem Schlauch stehe: wo ist denn in dem Makro der Name der Audiodatei? Ist das die Datei mit der Endung .oga?
Und diese Datei hast Du in ein Unterverzeichnis eines Players gepackt?
F3K Total hat geschrieben:So, hier eine funktionierende Beispieldatei, und ein Sound.
Alles exakt so gemacht wie beschrieben. Die Sounddatei macht bei Eingabe von "B" in die Zelle A1 keinen Mucks.
Wenn ich versuche das Makro aus der Basic IDE auszuführen kommt folgende Fehlermeldung:
- Fehlermeldung.png (146.87 KiB) 4248 mal betrachtet
Viele Grüße!
Re: Quittungston generieren???
Verfasst: Di 3. Feb 2015, 19:44
von F3K Total
Scusi,
das Modul F3K habe ich gelöscht, musste einen Fehler geben.
Habe die Datei oben ausgetauscht, versuche es bitte noch einmal ...
Gruß R
EDIT: Tut mir leid, unter Linux mit LO bekomme ich es auch nicht hin, da wird der Service
Code: Alles auswählen
CreateUnoService("com.sun.star.media.Manager_GStreamer")
nicht erzeugt.
Läuft aber unter Linux mit AOO
Re: Quittungston generieren???
Verfasst: Di 3. Feb 2015, 20:08
von karolus
Hallo
@F3K Total
auch deine neue Version tut hier nichts (Mint 17 )
Sonntagsflieger hat geschrieben:Sorry, daß ich auf dem Schlauch stehe: wo ist denn in dem Makro der Name der Audiodatei? Ist das die Datei mit der Endung .oga?
Und diese Datei hast Du in ein Unterverzeichnis eines Players gepackt?
Da steht einfach hinter dem Leerzeichen der absolute Pfad zur Sounddatei ``
/usr/share/..../unplug.oga``
Du musst das Ding nirgendwo hinkopieren.
und Nein - ich kann dir nicht erzählen ob und welches Kommando es für OS10 gibt|sich einrichten lässt.
Da OSX und die aktuellen Linux-derivate aber die gleichen UrGroßEltern haben ist es gut möglich das bei dir ebenfalls das Kommando ``play /pfad/zur/sounddatei.[ogg|wav|mp3]`` funktioniert.
Re: Quittungston generieren???
Verfasst: Di 3. Feb 2015, 20:10
von HeritzP
Hallo,
mit LibreOffice funktioniert es nicht, unter OpenOffice schon.
OpenOffice wurde nachträglich installiert und hat einen anderen Pfad.
BS ist Linus Mint17.
Bei OpenOffice ist es /home/ich/.openoffice/4/user/template
Bei LipreOffice ist es /home/ich/.config/libreoffice/4/user/template
Gruß HeritzP