Office: (Office 365) Mit Command Button Link in Zelle öffnen

Helfe beim Thema Mit Command Button Link in Zelle öffnen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hey Beverly, anbei die Ergänzung mit den Hyperlinks und Sverweisen. Danke! :-) Gruß DuffBoy Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von DuffBoy, 24. Juni 2022.

  1. DuffBoy Neuer User

    Mit Command Button Link in Zelle öffnen


    Hey Beverly,

    anbei die Ergänzung mit den Hyperlinks und Sverweisen.

    Danke! :-)
    Gruß DuffBoy
     
    DuffBoy, 28. Juli 2022
    #16
  2. Beverly
    Beverly Erfahrener User
    Hi,

    Spalte I mit der Hyperlinkformel benötigst du nicht, da die Datei nicht über den Link geöffnet werden kann. Du kannst es mal so versuchen:

    Code:
    Declare Function ShellExecute Lib "SHELL32.DLL" _
        Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
        ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long
    
    Sub Open_File(strFileName As String, windowType As Integer)
        ShellExecute 0, "Open", strFileName, "", "", windowType
    End Sub
    
    Sub Schaltfläche4_Klicken()
        Open_File Range("H2").Value, 1
    End Sub
    


    Mit Command Button Link in Zelle öffnen GrußformelMit Command Button Link in Zelle öffnen Beverly's Excel - Inn
     
    Beverly, 28. Juli 2022
    #17
  3. DuffBoy Neuer User
    Hey Beverly,

    danke hier vorab.
    Es kommt folgende Fehlermeldung.
    Hast du da ne Idee?

    Gruß DuffBoy
     
    DuffBoy, 29. Juli 2022
    #18
  4. Beverly
    Beverly Erfahrener User

    Mit Command Button Link in Zelle öffnen

    Hi,

    du verwendest offensichtlich eine 64bit-Excel-Version, dann müsstest du die Function so schreiben:

    Code:
    Declare PtrSafe Function ShellExecute Lib "SHELL32.DLL" _
        Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
        ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As LongPtr
    
    Ich kann das nicht testen, da ich eine 32bit-Verion verwende.


    Mit Command Button Link in Zelle öffnen GrußformelMit Command Button Link in Zelle öffnen Beverly's Excel - Inn
     
    Beverly, 29. Juli 2022
    #19
  5. DuffBoy Neuer User
    Hey Beverly,

    ein großes Dankeschön. Es funktioniert. :-) :-)
    Kann ich beide Declare hintereinander setzten, sowohl 64 Bit als auch 32 Bit?

    Gruß DuffBoy
     
    DuffBoy, 29. Juli 2022
    #20
  6. Beverly
    Beverly Erfahrener User
    Hi,

    das müsste man dann über eine IF-Abfrage machen - so in der Art:

    Code:
    #If VBA7 Then
        Declare PtrSafe Function ShellExecute Lib "SHELL32.DLL" _
            Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
            ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
            ByVal nShowCmd As Long) As LongPtr
    #Else
        Declare Function ShellExecute Lib "SHELL32.DLL" _
            Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
            ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
            ByVal nShowCmd As Long) As Long
    #End If
    


    Mit Command Button Link in Zelle öffnen GrußformelMit Command Button Link in Zelle öffnen Beverly's Excel - Inn
     
    Beverly, 29. Juli 2022
    #21
  7. Moin zusammen,
    und wenn man ihn aus String-Segmenten zu einem Formula-String zusammensetzt ...
    Grüße
     
    d'r Bastler, 29. Juli 2022
    #22
  8. Beverly
    Beverly Erfahrener User

    Mit Command Button Link in Zelle öffnen

    Hi,

    das Problem ist nicht, aus der Hyperlink-Formel den Pfad und den Dateinamen als String zu extrahieren - diese sind bekannt, stehen ja in der Nachbarspalte als normaler SVERWEIS. Oder man könnte umständlich mittels Range-Find-Methode in der anderen Tabelle den String zusammensetzen. Das Problem besteht jedoch darin, dass ein fixer Link in der Zelle benötigt wird, um ganz normal die Follow-Methode verwenden zu können. Wenn du eine Methode kennst, den Link auszuführen ohne dass er in einer Zelle steht, dann wäre ich sicher daran interessiert - man lernt ja nie aus. Mit Command Button Link in Zelle öffnen *;)*

    Klar könnte man den Link per VBA ganz einfach als fixen Link in eine andere Zelle schreiben, die Follow-Methode ausführen und wieder löschen - das ist aber nicht unbedingt sinnvoll, wenn es auf einem anderem Weg möglich ist.
    Wäre es eine Excel-Datei, die geöffnet wird, könnte man einfach die Wokbooks.Open-Methode verwenden. Es ist aber eine PDF-Datei - also bleibt anscheinend nur der Umweg über die API-Funktion (die übrigens den String für Pfad und Datei verwendet).


    Mit Command Button Link in Zelle öffnen GrußformelMit Command Button Link in Zelle öffnen Beverly's Excel - Inn
     
    Beverly, 30. Juli 2022
    #23
    1 Person gefällt das.
Thema:

Mit Command Button Link in Zelle öffnen

Die Seite wird geladen...
  1. Mit Command Button Link in Zelle öffnen - Similar Threads - Command Button Link

  2. in bestehenden Command Button die Rundenfunktion hinzufügen

    in Microsoft Excel Hilfe
    in bestehenden Command Button die Rundenfunktion hinzufügen: Hallo Excel Gemeinde Versuche gerade in einen bestehnden Button noch die Rundenfunktion mit einzubauen. Ich scheitere kläglich Hier mein Code: Code: Public Sub CommandButton1_Click() Dim...
  3. Event-Handler für Command Button in Tabellenblatt

    in Microsoft Excel Hilfe
    Event-Handler für Command Button in Tabellenblatt: Liebe community, bestimmt kann mir jemand bei folgendem Problem weiterhelfen: Ich möchte dynamisch einen ActiveX-Button einem Tabellenblatt zufügen. Dazu habe ich versucht den Code zum Einfügen...
  4. Command Button ein-/ausblenden

    in Microsoft Excel Hilfe
    Command Button ein-/ausblenden: Hallo Ich habe folgenden Code: Private Sub Worksheet_Change(ByVal Target As Range) Dim oSH As Sheets Dim oWs As Worksheet If BlattExist("Jan") Then If Target.Address = "$A$3" Then Call...
  5. Private Sub über Command-Button aufrufen

    in Microsoft Excel Hilfe
    Private Sub über Command-Button aufrufen: Hi! Bin bei meiner Suche nach einer Lösung für mein Problem auf euer tolles Forum gestoßen. Ich habe folgendes Makro eingebunden. Es funktioniert auch prima. Private Sub Worksheet_Change(ByVal...
  6. Über Command Button dynamisch Dokumente öffnen

    in Microsoft Excel Hilfe
    Über Command Button dynamisch Dokumente öffnen: Hallo Zusammen, Ich habe eine Tabelle in der über unterschiedliche Kriterien, Produkte angezeigt werden. Nun möchte ich dazu, zu dem entsprechenden Produkt, über einen CommandButton die...
  7. Excel VBA Suche mit Hilfe Command Buttons anzeigen

    in Microsoft Excel Hilfe
    Excel VBA Suche mit Hilfe Command Buttons anzeigen: Hallo Ich habe eine UserForm erstellt, welche mit voneinander Abhängige Comboboxen sucht. Dabei wurde mir schon geholfen in diesen Forum. Ich würde mir gerne das Ergebnis mithilfe eines...
  8. Excel bestimmte Tabellenblätter mittels Schaltfläche (VBA) drucken/ pdf drucken

    in Microsoft Excel Hilfe
    Excel bestimmte Tabellenblätter mittels Schaltfläche (VBA) drucken/ pdf drucken: Hallo zusammen, ich habe folgendes Problem und hoffe ihr könnt mir hierbei helfen. Ich möchte folgende Schaltflächen evtl. mit Steuerelement Toolbox und VBA generieren: 1. Tabellenblatt...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden