Office: Über Command Button dynamisch Dokumente öffnen

Helfe beim Thema Über Command Button dynamisch Dokumente öffnen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Ersetze allen Code durch diesen: #If VBA7 Then Private Declare PtrSafe Function GetSystemDirectoryA Lib "kernel32" _ (ByVal lpBuffer As... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von frdoli, 5. Januar 2021.

  1. Beverly
    Beverly Erfahrener User

    Über Command Button dynamisch Dokumente öffnen


    Ersetze allen Code durch diesen:

    Code:
    #If VBA7 Then
        Private Declare PtrSafe Function GetSystemDirectoryA Lib "kernel32" _
           (ByVal lpBuffer As String, ByVal nSize As Long) As Long
        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 Long
    #Else
        Private Declare Function GetSystemDirectoryA Lib "kernel32" _
           (ByVal lpBuffer As String, ByVal nSize As Long) As Long
        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
    
    Ich kann das nicht prüfen da ich eine 32bit-Excel-Version habe und der Code deshalb bei mir keinen Fehler auslöst.



    Über Command Button dynamisch Dokumente öffnen GrußformelÜber Command Button dynamisch Dokumente öffnen Beverly's Excel - Inn
     
    Beverly, 5. Januar 2021
    #16
    1 Person gefällt das.
  2. frdoli Erfahrener User
    Hallo Berverly,
    Danke für deine schier unermüdliche Unterstützung, bin sehr froh darüber.

    Aber leider bringt auch das keinen Erfolg.
    Es öffnet wieder eine ExcelTabelle mit Wirren Zeichen
    LG
     
  3. Beverly
    Beverly Erfahrener User
    Die letzte Möglichkeit: lösche allen bisherigen Code und füge stattdessen folgenden ins Codemodul des Tabellenblattes ein

    Code:
    Private Sub CommandButton1_Click()
        Dim strPfad As String
        Dim strMappe As String
        strPfad = "C:\Users\pichpid1\Desktop\EXCEL TEST\Ordner techn. Daten\"  '<== Pfadname anpassen!!!
        strMappe = CommandButton1.TopLeftCell.Offset(0, -1) & ".pdf"
        If Dir(strPfad & strMappe) = strMappe Then
            Open_File strPfad & strMappe
        Else
            MsgBox "Datei nicht vorhanden"
        End If
    End Sub
    
    Sub Open_File(strFileName As String)
        ActiveWorkbook.FollowHyperlink strFileName
    End Sub
    


    Über Command Button dynamisch Dokumente öffnen GrußformelÜber Command Button dynamisch Dokumente öffnen Beverly's Excel - Inn
     
    Beverly, 5. Januar 2021
    #18
    1 Person gefällt das.
  4. frdoli Erfahrener User

    Über Command Button dynamisch Dokumente öffnen

    Hallo "Karin"..... du bist die Beste Über Command Button dynamisch Dokumente öffnen *:)*....es funkt !!!

    Beste grüße aus Über Command Button dynamisch Dokumente öffnen shopping?q=tbn:ANd9GcQbEY9mR9oLDaR7s4zf_Een3Uia3EaQymuw2s7W_DlWLCiCSdHCFOW-t7SRag&usqp=CAc.png
     
Thema:

Über Command Button dynamisch Dokumente öffnen

Die Seite wird geladen...
  1. Über Command Button dynamisch Dokumente öffnen - Similar Threads - Über Command Button

  2. 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...
  3. 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...
  4. 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...
  5. 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...
  6. 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...
  7. Command Buttons programmieren - Zählen

    in Microsoft Excel Hilfe
    Command Buttons programmieren - Zählen: Hallo liebe Kenner:) Ich hoffe ihr könnt mir helfen, da ich absoluter VBA Laie bin! habe insgesamt 9 CommandButtons und möchte das jeder einzelne meinen Klick in 2 Zellen zählt also +1 und...
  8. Command Button

    in Microsoft Excel Hilfe
    Command Button: hallo liebe excel freunde, ich habe in einer excel datei zwei command buttons. der eine "T" für tagdienst, der andere "N" für nachtdienst. wenn ich eine betreffende zelle markiere, und dann...
Schlagworte: