Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Wave- Sound aus Excel abspielen

Mitglied: leknilk0815

leknilk0815 (Level 3) - Jetzt verbinden

26.08.2006, aktualisiert 22.10.2006, 28363 Aufrufe, 4 Kommentare

Wave- Sound aus Excel bei erfüllung einer Bedingung abspielen

Hallo zusammen,

hat hier vielleicht jemand eine Ahnung, wie man es anstellt, daß in einem Excelsheet ein Sound abgespielt wird, wenn eine Bedingung durch eine Eingabe erfolgreich erfüllt wird?

also z.B.:
wenn(a1="OK";tata.wav;"nix") --- (so gehts natürlich nicht, war nur als Beispiel gemeint)
oder evt. analog zu einer bedingten Formatierung, nur daß statt z.B. die Feldfarbe zu wechseln dann ein Sound gespielt wird.

Danke mal vorab

Gruß - Toni
Mitglied: 16568
26.08.2006 um 20:43 Uhr
allgemeines Modul erstellen:
01.
Option Explicit 
02.
Declare Function sndPlaySound32 Lib "winmm.dll" _ 
03.
Alias "sndPlaySoundA" (ByVal lpszSoundName _ 
04.
As String, ByVal uFlags As Long) As Long 
05.
----------
06.
Sub Abspielen() 
07.
Call sndPlaySound32("c:\sound\sound.wav", 0) 
08.
End Sub
Oder modifiziert:

01.
Sub Abspielen() 
02.
If Cells(1, 1).Value = 1 Then 
03.
Call sndPlaySound32("c:\sound\sound1.wav", 1) 
04.
End If 
05.
If Cells(1, 1).Value = 2 Then 
06.
Call sndPlaySound32("c:\sound\sound2.wav", 1) 
07.
End If 
08.
If Cells(1, 1).Value = 3 Then 
09.
Call sndPlaySound32("c:\sound\sound3.wav", 1) 
10.
End If 
11.
If Cells(1, 1).Value = 4 Then 
12.
Call sndPlaySound32("c:\sound\sound4.wav", 1) 
13.
End If 
14.
If Cells(1, 1).Value = 5 Then 
15.
Call sndPlaySound32("c:\sound\sound5.wav", 1) 
16.
End If 
17.
If Cells(1, 1).Value = 6 Then 
18.
Call sndPlaySound32("c:\sound\sound6.wav", 1) 
19.
End If 
20.
If Cells(1, 1).Value = 7 Then 
21.
Call sndPlaySound32("c:\sound\sound7.wav", 1) 
22.
End If 
23.
 
24.
End Sub 
Lonesome Walker
Bitte warten ..
Mitglied: leknilk0815
27.08.2006 um 12:05 Uhr
Servus Lonesome Walker,

danke für Deine Mühe, leider bin ich in VB absoluter Anfänger, mir fehlt der Ansatz, was ich mit dem Script anfangen soll.
Das weitere Problem ist, daß diese Lösung dann vermutlich nur auf dem Rechner läuft, auf dem es eingerichtet wurde. Es sollte aber so laufen, daß der Sound auf jedem Rechner abgespielt wird.
Es ist nun nicht so eminent wichtig, daß man sich eine Mordsarbeit damit macht, für einen Tip wäre ich trotzdem dankbar (einen gewissen Lerneffekt hat's in jedem Fall).

Danke und Gruß - Toni
Bitte warten ..
Mitglied: 16568
27.08.2006 um 12:59 Uhr
Okay,

Extras, Makro, VB-Editor

Dann rechtsklick auf VBAProjekt (Mappe1)->Einfügen->Modul
(das Mappe 1 kann bei Dir anders heißen; Du mußt hier die geöffnete Mappe auswählen...)

Jetzt sollte das Modul angelegt worden sein, und Du brauchst hier nur folgendes per Copy&Paste reinschieben:

01.
Option Explicit
02.
Declare Function sndPlaySound32 Lib "winmm.dll" _
03.
Alias "sndPlaySoundA" (ByVal lpszSoundName _
04.
As String, ByVal uFlags As Long) As Long
05.
Sub Abspielen()
06.
If Cells(1, 1).Value = "Dein Wert, bei Zahlen die Hochkommas weglassen" Then
07.
Call sndPlaySound32("hier der Pfad zu Deiner .wav", 1)
08.
End If
09.
If Cells(1, 1).Value = "Hier ein weiterer möglicher Wert, läßt sich beliebig erweitern..." Then
10.
Call sndPlaySound32("selbstverständlich bei einem anderen Wert auhc ein anderer Pfad.wav", 1)
11.
End If
12.
 
13.
End Sub
Das ganze mußt Du jetzt auf Deine *.wav-Datei anpassen, ebenso auf Deinen gewünschten Wert.

Und da dieses Makro erst ausgeführt wird, wenn ein Trigger ausgelöst wurde, weist Du dieses Makro einer Schaltfläche zu.
Bei Klick auf diese Schaltfläche prüft dann das Makro, ob die Bedingung erfüllt ist.

Als wav-Dateien kannst Du die aus dem WINNT/Windows-/Media-Verzeichnis nehmen, sind unter w2k und XP meines Wissens gleich.
Ansonsten mußt Du immer die wav mit Deiner Tabelle weitergeben.

Excel selbst kann mit Sound nicht umgehen; um VBA wirst Du hier (meines Wissens) nicht umhinkommen.


Lonesome Walker
Bitte warten ..
Mitglied: leknilk0815
27.08.2006 um 18:46 Uhr
Hi Lonsam,

danke für das Script, "geht" einwandfrei!
Excel- Sheet noch ein bisschen umbauen, dann tut's auch so, wie ich es brauche.

Gruß - Toni
Bitte warten ..
Ähnliche Inhalte
Drucker und Scanner

KodakScanstation 700 - .wav Datei, warum?

gelöst Frage von sambo77Drucker und Scanner12 Kommentare

Hallo zusammen, ich habe die im Betreff genannte Scanstation konfiguriert. Allerding wird bei jedem einscannen zusätzlich eine .wav Datei ...

Windows 10

Lenovo m710q - kein Sound

Frage von uridium69Windows 106 Kommentare

Morgen allerseits Ich habe Windows 10 Pro 64 bit auf Lenovo M710q Tiny Geräte installiert. Obwohl der Audiotreiber vorhanden ...

LAN, WAN, Wireless

Sound XLR über Ethernetkabel

gelöst Frage von grillinator95LAN, WAN, Wireless10 Kommentare

Guten Tag, kann ich über ein Ethernet-Kabel Sound abspielen? Also XLR > AUF Ethernet am anderen Ende wieder zurück ...

Server-Hardware

Kann wav Datei im Handy nicht öffnen

Frage von ChrischServer-Hardware2 Kommentare

Hallo, als eine Prüfungsaufgabe musste ich ein Beratungsgespräch führen, das ich mit einem Diktiergerät im Handy aufgenommen habe. Nach ...

Neue Wissensbeiträge
Erkennung und -Abwehr

Trend Micro Worry Free Business Security 10.0 - erneutes Patch (1494) erschienen!

Tipp von VGem-e vor 4 StundenErkennung und -Abwehr1 Kommentar

Moin, unter ist ein neuer Patch verfügbar, der offenbar auch Windows 10.1809 unterstützt. Tja, wie letztes Mal auch, erst ...

Humor (lol)
Administrator.de Perlen
Tipp von DerWindowsFreak2 vor 5 TagenHumor (lol)6 Kommentare

Hallo, Heute beim stöbern auf dieser Seite bin auf folgenden Thread aus dem Jahre 2006 gestossen: Was meint ihr? ...

Erkennung und -Abwehr
OpenSSH-Backdoor Malware erkennen
Tipp von Frank vor 5 TagenErkennung und -Abwehr

Sicherheitsforscher von Eset haben 21 Malware-Familien untersucht. Die Malware soll Hintertüren via OpenSSH bereitstellen, so dass Angreifer Fernzugriff auf ...

iOS
WatchChat für Whatsapp
Tipp von Criemo vor 9 TageniOS5 Kommentare

Ziemlich coole App für WhatsApp User in Verbindung mit der Apple Watch. Gibts für iOS sowohl als auch für ...

Heiß diskutierte Inhalte
Samba
Windows 10 Client in Samba-Domäne hinzufügen scheitert
Frage von diwaffmSamba32 Kommentare

Hi Leute, ich habe einen Samba Server in der Version 4.9.3 auf einer OpenSuse Maschine laufen. Damit sind momentan ...

Router & Routing
Verbindung zweier Netze via Lancom VPN-Router . Problem
Frage von ThorstenBrRouter & Routing26 Kommentare

Hallo Leute, mein erster Post hier im Forum ich versuche mich gerade in Lancom Router ein zu arbeiten. Dafür ...

Windows Systemdateien
Verknüpfungen nach Pfadwechsel
Frage von Hendrik2586Windows Systemdateien17 Kommentare

Guten Morgen meine lieben Kollegen und Kolleginnen, ich hab da mal eine Frage die Ihr sicher schon kennt. Es ...

Windows Server
Testweise Installation eines Domänencontrollers
Frage von gerd33Windows Server16 Kommentare

Hallo Zusammen, mein Netzwerk ( 2 Praxen + 1 Wohnhaus) ist per VPN (WAN) verbunden, mit jeweils einem LAN, ...