In Excel 5 und 95 ist es möglich, mithilfe einer Audiodatei Notizen an eine Zelle anzuhängen. Diese Soundnote kann wiedergegeben werden, indem der Dialog zum Bearbeiten von Zellennoten geöffnet wird.

Das folgende Makro kann auch die an eine Zelle angehängte Soundnote für Sie abspielen:

Sub PlaySoundNotesInExcel95(CellAddress As String)

' for Excel 5 and 95 only

If Not Application.CanPlaySounds Then Exit Sub

On Error Resume Next ' in case there is no soundnote

Range(CellAddress).SoundNote.Play

On Error GoTo 0

End Sub

Excel 97 oder höher unterstützt die Verwendung von Soundnotes nicht mehr.

Mit den folgenden Makros ist es möglich, eine Problemumgehung zu erstellen, um den gleichen Effekt zu erzielen:

Public Declare Function sndPlaySound Lib "winmm.dll" _

Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _

ByVal uFlags As Long) As Long

Sub PlayWavFile(WavFileName As String, Wait As Boolean)

If Dir(WavFileName) = "" Then Exit Sub ' no file to play

If Wait Then ' play sound before running any more code

sndPlaySound WavFileName, 0

Else ' play sound while code is running

sndPlaySound WavFileName, 1

End If

End Sub

Sub PlaySoundNotesInExcel97(CellAddress As String)

' workaround for playing sound notes in Excel 97 or later

Dim SoundFileName As String

SoundFileName = ""

On Error Resume Next ' an error occurs if the cell doesn't have a note

SoundFileName = Range(CellAddress).Comment.Text

On Error GoTo 0

If SoundFileName = "" Then Exit Sub ' no cell note

If InStr(1, SoundFileName, Chr(10)) > 0 Then ' the note contains a line-break

' use the first line as the filename

SoundFileName = Left(SoundFileName, InStr(1, SoundFileName, Chr(10)) - 1)

End If

PlayFileWav SoundFileName, False

End Sub

So erstellen Sie eine Soundnote:

Fügen Sie einen Zellenkommentar ein, indem Sie mit der rechten Maustaste in eine Zelle klicken und Kommentar einfügen auswählen …​.

Geben Sie den vollständigen Dateinamen und den Pfad zu der Sounddatei ein, die im ersten Satz des Zellenkommentars abgespielt werden soll, z. C: \ Ordnername \ Soundfilename.wav.

Wenn Sie zusätzlich zum Dateinamen eine schriftliche Nachricht hinzufügen möchten, drücken Sie die EINGABETASTE nach dem Dateinamen, um einen neuen Satz im Kommentar zu erstellen. Fügen Sie den gewünschten Text zum neuen Satz hinzu.

Das Makro PlaySoundNotesInExcel97 kann durch das eventmacro Worksheet_SelectionChange () aktiviert werden. Dadurch wird die Soundnote jedes Mal abgespielt, wenn der Benutzer die Zelle mit der Soundnote aktiviert.