Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.10.2025 19:27:32
Ungewollter Zeilensprung beim Löschen einer Spalte
09.10.2025 17:12:32
Rechnen in Zeile nach Auswahl Dropdown
09.10.2025 16:26:10
Sortenreine LKWs Filtern
09.10.2025 13:43:40
Mittelwertwenn aus unterschiedlichen Tabellenblättern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1832to1836
1832to1836
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform Pfad öffnen

Forumthread: Userform Pfad öffnen

Userform Pfad öffnen
27.05.2021 07:04:18
Dieter
Guten morgen alle zusammen,
ich habe diesen Code .
Damit klicke ich auf dem Button ( Userform ) und er macht eine Excel Datei auf.
Der Pfad befindet sich im Tabellenblatt

Private Sub cmdvereinbarungen1_Click()
Dim strQuelle As String
Dim Treffer As Range
Dim s As String
If UserForm1.Txt1_MAvereinbarungen.Value = "" Then
Exit Sub
Else
s = UserForm1.Txt1_MAvereinbarungen.Value
Set Treffer = Tabelle9.Columns(1).Find(s, LookAt:=xlWhole)
If Not Treffer Is Nothing Then
strQuelle = Treffer.Offset(0, 35)
If strQuelle = "" Then
Exit Sub
Else
Workbooks.Open Filename:=strQuelle
End If
End If
End If
End Sub
Wie kann ich diesen Code umbauen, dass Excel eine Pdf Datei aufmacht.
Gibt es einen Code, der alles aufmacht, egal welche Datei ? z.B. Word .
Danke euch.
Dieter
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform Pfad öffnen
27.05.2021 08:13:58
Nepumuk
Hallo Dieter,
teste mal:
Code:



[Cc][+][-]



Option Explicit

Private Declare PtrSafe Function ShellExecuteA Lib "shell32.dll" ( _
        ByVal hwnd As LongPtr, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As LongPtr

Private Const SW_MAXIMIZE As Long = 3

Private Sub cmdvereinbarungen1_Click()

  Dim strQuelle As String
  Dim objCell As Range

  If UserForm1.Txt1_MAvereinbarungen.Text <> "" Then

     Set objCell = Tabelle9.Columns(1).Find(UserForm1.Txt1_MAvereinbarungen.Text, LookAt:=xlWhole)

     If Not objCell Is Nothing Then

        strQuelle = objCell.Offset(0, 35).Text

        If strQuelle <> "" Then

           Select Case LCase$(Mid$(strQuelle, InStrRev(strQuelle, ".")))

           Case ".xls", ".xlsx", ".xlsm", ".xlsb"

               Workbooks.Open Filename:=strQuelle

           Case Else

               Call ShellExecuteA(0, "OPEN", strQuelle, vbNullString, vbNullString, SW_MAXIMIZE)

           End Select
        End If
     End If
  End If
End Sub
Gruß
Nepumuk
Anzeige
AW: Userform Pfad öffnen
27.05.2021 10:49:19
Dieter
super DANKE
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige