Habe selbst die Lösung gefunden ! -)
26.01.2023 13:03:07
kurt
Hallo Werner,
ich habe die Lösung gefunden !
Habe mal gegoogelt und für mich passendes gefunden !
Public Sub Liste_suchen()
Dim dlgAuswahl As FileDialog
Set dlgAuswahl = Application.FileDialog(msoFileDialogFilePicker)
Dim AppWD As Object
Dim strDatei, lstrExt() As String
Dim Verzeichnis
Verzeichnis = "C:\_KK\__Lager\__Abteilung\" _
& ActiveSheet.Range("Q1") & "\" & Format(Range("R1"), "00 ") & MonthName(Range("R1"))
If Dir(Verzeichnis, vbDirectory) = "" Then
MsgBox "Das Jahr oder der Monat ist noch nicht im Verzeichnis vorhanden !" _
& Chr(10) & "um Liste zu suchen muß erst eine Liste aktuell gespeichert sein !" _
& Chr(10) & "" _
& Chr(10) & "Es wird das vorhandene Verzeichnis geöffnet ! "
ChDrive "C:\"
Shell "Explorer /n, /e, C:\_KK\__Lager\__Abteilung\", vbNormalFocus
Else
With dlgAuswahl
.Filters.Clear
.Filters.Add "Excel Dateien", "*.pdf"
.InitialFileName = Verzeichnis
.Show
End With
'' ChDrive "C:\"
'' Shell "Explorer /n, /e, C:\_KK__Lager\__Abteilung\" _
& ActiveSheet.Range("Q1") & "\" & Format(Range("R1"), "00 ") & MonthName(Range("R1")), vbNormalFocus
End If
End Sub
mfg kurt k