Public Sub Liste_suchen()
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
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
vielleicht hat jemand einen Tipp was wenn ich diesem Makro einsetzen muss, damit Explorer nach *Pdf gefiltert werden kann.
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 kDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen