Tabelle mit suchbgriff suchen und öffnen
28.07.2021 13:55:59
speednetz
Ich habe mal wieder ein Problem was ich versucht, habe zu lösen, aber ich bekomme es nicht hin.
Ich habe folgenden Code (im Netz gefunden) der mir aus meiner Datei eine Tabelle auf meinem Desktop mit einem Suchbegriff (Namen) der in dem Dateinamen (besteht aus mehreren Wörtern) enthalten sein muss öffnet.
Dieses läuft auf meinem Rechner durch den festen Pfad Einwand frei.
Nun mein Problem
Kann mir jemand das Makro so ändern, dass es auf jedem Rechner auf dem Desktop den Suchbegriff sucht und die Tabelle dann öffnet?
Also ein variabler Pfad.
Die zu suchenden Tabellen werden immer auf dem Desktop abgelegt.
Hier der Code:
Sub a_Dateisuche()
Dim suche As String
Dim Dateiname
strPfad = "C:\Users\speed\Desktop\"
suche = InputBox("Bitte den Suchbegriff eingeben")
If suche = "" Then
MsgBox "Kein Dateiname eingegeben"
Else
Dateiname = Dir((strPfad & "*" & suche & "*")) 'Der Dateiname ist lang und enthält in der _
Mitte den Namen. Daher durchsuche ich nur den Mittelteil
If Dateiname "" Then
'Workbooks.Open Filename:=pfad & Dateiname
ActiveWorkbook.FollowHyperlink strPfad & Dateiname
Else
MsgBox ("Datei mit( Namen ) nicht gefunden !!")
End If
End If
End Sub
Gruß
speednetz