Microsoft Excel

Herbers Excel/VBA-Archiv

Öffnen von Programmen aus Zelle

    Betrifft: Öffnen von Programmen aus Zelle von: Lutz Heidrich
    Geschrieben am: 01.09.2003 09:03:07

    hallo,
    ich habe in spalte a eine Liste von Dateien (zB: c:....\....\...\Heino.MP3)
    ich möchte nun das man bei Klick oder Doppelklick auf diese datei,in der zelle, der Windows MPlayer geöffnet wird und diese datei (MP3) abgespielt wird. kann mir jemand helfen, wie lautet das makro dafür?

      


    Betrifft: AW: Öffnen von Programmen aus Zelle von: Panicman
    Geschrieben am: 01.09.2003 09:36:29

    Hallo Lutz,

    du mußt aus deiner Liste Hyperlinks machen, dann öffnet sich automatisch das verknüpfte Programm.
    Zellem makieren und Makro starten

    Sub Hyper_aus_Text()
    
    Dim rngCell As Range
    For Each rngCell In Selection.Cells
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        rngCell.Text
    Next
    End Sub
    


    Gruß
    Holger


      


    Betrifft: AW: Öffnen von Programmen aus Zelle von: Heidrich
    Geschrieben am: 01.09.2003 11:53:27

    Danke funktioniert einwandfrei


      


    Betrifft: AW: Öffnen von Programmen aus Zelle von: PeterA
    Geschrieben am: 01.09.2003 09:39:56

    Hallo

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Ergebnis
    
    'Wird nur verarbeitet wenn eine Zelle in Spalte 1 angeklickt wird
    If Target.Column = 1 Then
    
    'Tracknamen auslesen
    Zelle = ActiveCell.Text
    'Starten des Media Players PFADE MÜSSEN ANGEPASST WERDEN
    Ergebnis = Shell("C:\PROGRAMME\WINDOWS MEDIA PLAYER\MPLAYER2.EXE C:\MUSIK\" & Zelle, 1)
    
    End If
    
    End Sub
    



      


    Betrifft: AW: Öffnen von Programmen aus Zelle von: Heidrich
    Geschrieben am: 01.09.2003 11:52:02

    Anmerkung
    funktioniert nicht, kommt die Meldung "Argument ist nicht optional"