Ich öffne via Makro eine Datei und befülle diese mit Daten. Der Benutzer öffnet die Datei selbst, da sie öfter mal ihren Namen ändert. Jetzt möchte ich aber, dass nur bestimmte Dateinamen angezeigt werden, welche "Übersicht" im Dateinamen haben.
Mein Makro schaut derzeit foglendermaßen aus:
Dim wkb As Workbook
Dim sFile As Variant
Dim sFile1 As String
Dim iOpen As Integer
Dim myvar1
Dim pfad As Variant
pfad = "\\IO\folder\"
sFile1 = "\\IO\folder\TAB_QXS_Aktionen-ÜbersichtTEST.xls"
ChDrive "L"
pfad = "\\IO\folder"
ChDir "\\IO\folder\"
iOpen = TestOpen(sFile1)
Select Case iOpen
Case 0:
Case 1: MsgBox "Datei " & "TAB_QXS_Aktionen-ÜbersichtTEST.xls" & " ist geöffnet und kann NICHT benutzt werden" & " Bitte Schliessen!!"
Exit Sub
Case 2: MsgBox "Datei " & "TAB_QXS_Aktionen-ÜbersichtTEST.xls" & " wurde nicht gefunden"
Exit Sub
End Select
Application.ScreenUpdating = False
ChDir "L:\folder\"
sFile = Application.GetOpenFilename("Excel-Datei (*.xls), *TEST.xls")
If sFile = False Then Exit Sub
Ist das überhaupt möglich?
Danke für RÜckmeldungen.
LG