wie Formel auf mehrere Zellen anwenden?
25.08.2004 06:16:10
Dennis
ich möchte, dass je nachdem, was in die Zellen eingegeben wird, der dazugehörige Sound abgespielt wird.
z.B.: ich gebe in Zelle A1 eine 1 ein, dann soll 1.wav abgespielt werden.
ich gebe in Zelle A1 eine 2 ein, dann soll 2.wav abgespielt werden, usw. und das ganze mit knapp 200 Zahlen.
Dieses hab ich im Modul eingefügt:
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
und das in der Tabelle:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Adr$
Adr = Target.Address
If Adr <> "$B$4" Then Exit Sub
Call musik
End Sub
Sub musik()
Dim num
num = Range("B4")
On Error GoTo FehlerRoutine
Call sndPlaySound32("C:\Programme\EZ\dartsounds\Sounds\" & num & ".wav", 1)
End
FehlerRoutine:
MsgBox "Bitte Pfad und Namen der WAV-Datei anpassen!"
End Sub
das funktioniert auch ohne Fehler, aber wie muss das nun aussehen, wenn ich den Sound haben will, wenn ich etwas in den Zellen B4:B18, B27:B41, G4:G18, G27:G41, L4:L18, L27:L41, usw. eingebe.
Hab zwar schon rumprobiert, krieg es aber nicht hin.
Hoffe auf Eure Hilfe, MfG, Dennis