Excel 2013 Unterordner durchsuchenn
12.08.2021 13:40:48
Manfred
ich habe das Makro so angepasst dass es mir die xlsx-Dateien aus dem Ordner öffnet.
In Spalte A habe ich 2000 Einträge drin wo nur eine 5-stellige Zahl steht. Ich markiere eine und die xlsx-Datei wird geöffnet.
Der Dateiname ist z.B.: 12345_Dateiname_Kommen_Weiteres_Geschehen.xlsx
Sub Antrag_suche()
Dim suche As String
Dim Dateiname
strpfad = "P:\01_Antraege\" 'das ist der Ordner
suche = ActiveCell.Value
Dateiname = Dir((strpfad & suche & "*" & ".xlsx")) 'Der Dateiname suchen
If Dateiname "" Then
ActiveWorkbook.FollowHyperlink strpfad & Dateiname
Else
MsgBox ("Sowas.... Nummer wurde ( noch ) nicht vergeben !!")
End If
End Sub
Nun möchte ich gerne auch alle Unterordner durchsuchen und dann die XLSX-Datei geöffnet wird.Ich bekomme das nicht hin, kann mir bitte jemand helfen.
Mit freundlichen Grüßen
Manfred