Clive ist ein Vogelbeobachter und hat über 300 MP3-Dateien mit Vogelstimmen. Er möchte ein Excel-Arbeitsblatt mit einer einzelnen Spalte erstellen, in der die tatsächlichen Namen der MP3-Dateien aufgeführt sind, z. B. „cormorant.mp3“. Er möchte aus jeder dieser rund 300 Zellen einen Hyperlink zur physischen MP3-Datei erstellen, damit der Player den Vogelklang öffnet und wiedergibt. Er weiß, dass er den Hyperlink einzeln einfügen kann, aber das wäre natürlich ziemlich langweilig. Er fragt sich also, ob es eine Möglichkeit gibt, einen solchen Link basierend auf den MP3-Dateinamen im Arbeitsblatt automatisch zu erstellen.

Diese Frage besteht eigentlich aus zwei Teilen: Abrufen der Dateinamen in ein Excel-Arbeitsblatt und anschließendes Erstellen eines Links zur MP3-Datei, damit das Vogelgezwitscher abgespielt werden kann.

Stellen Sie zunächst sicher, dass sich alle MP3-Dateien im selben Ordner auf Ihrer Festplatte befinden. Wie Sie eine Liste von Dateien abrufen können, wurde in anderen Ausgaben von ExcelTips behandelt. Vielleicht möchten Sie die Ideen dazu überprüfen, die Sie auf dieser ExcelTips-Seite finden:

http://excelribbon.tips.net/T011144

Sobald sich die Namen im Arbeitsblatt befinden (nehmen wir an, sie befinden sich in Spalte A), können Sie mit der HYPERLINK-Arbeitsblattfunktion ganz einfach den eigentlichen Link zusammenstellen. Sie können beispielsweise Folgendes in Zelle B1 einfügen:

=HYPERLINK("C:\Documents\Birdsongs\" & A1)

Dies setzt voraus, dass sich der Ordner, in dem sich die Songs befinden, in C: \ Documents \ Birdsongs \ befindet. Wenn der Pfad tatsächlich anders ist, nehmen Sie einfach die Änderung in der HYPERLINK-Funktion vor.

Sobald sich die richtige Formel in Zelle B1 befindet, können Sie sie für so viele Zellen kopieren, wie Sie benötigen, um alle richtigen Hyperlinks zu erhalten.

Natürlich können Sie den „Anzeigetext“ angeben, der von der HYPERLINK-Funktion verwendet werden soll. Wenn Ihre Vogelgesang-Dateien mit dem Namen des Vogels beginnen und mit .mp3 enden, können Sie den Anzeigetext auf folgende Weise zur HYPERLINK-Funktion hinzufügen:

=HYPERLINK("C:\Documents\Birdsongs\" & A1, LEFT(A1, LEN(A1) - 4)

Diese Verwendung entfernt einfach die letzten vier Zeichen (den Punkt und „mp3“) vom Dateinamen und verwendet diese dann als Anzeigetext.

Wenn Sie einen Makroansatz verwenden möchten, um tatsächlich Hyperlinks zu erstellen (ohne die HYPERLINK-Funktion zu verwenden), sollten Sie zunächst das Dateinamen-Grabing-Makro aus dem oben in diesem Tipp genannten Tipp verwenden. Es kann geändert werden, um nicht nur die Dateinamen in das Arbeitsblatt einzufügen, sondern auch die erforderlichen Hyperlinks zu erstellen:

Sub MakeHyperlinks()

Dim sPath As String     Dim sFile As String     Dim iRow As Integer

'specify directory to use - must end in "\"

sPath = "C:\Documents\Birdsongs\"



iRow = 0     sFile = Dir(sPath)

While sFile <> ""

iRow = iRow + 1         Sheet1.Cells(iRow,1) = sFile         sBird = Left(sFile, Len(sFile)-4)

ActiveSheet.Hyperlinks.Add Anchor:=Sheet1.Cells(iRow,1), _           Address:=sPath & sFile, TextToDisplay:=sBird         sFile = Dir     ' Get next filename     Wend End Sub

Wenn Sie sich für die Makroroute entscheiden, stellen Sie sicher, dass das aktuelle Arbeitsblatt nichts enthält. Das Makro wird sehr schnell ausgeführt und löscht alles, was sich in den Zellen befindet, in die es schreibt. Wenn dies erledigt ist, erhalten Sie den Dateinamen in Spalte A und einen Hyperlink zur MP3-Datei in Spalte B.

Wenn Sie im Arbeitsblatt auf einen Hyperlink klicken, startet Excel Ihren Webbrowser und lädt die MP3-Datei. Der Browser spielt dann die Datei ab.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (13127) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.