Forumbeitrag
Excel-Version des Fragestellers:
2022
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Moin, :-)
... so der
Spur nach: ;-)
Option Explicit
Public Sub Main()
Dim strDatei As String
Dim strPfad As String
strPfad = "C:\Temp\"
strDatei = Dir$(strPfad & "*Juni*.xls*")
Do While strDatei <> ""
If InStr(strDatei, "abc") = 0 Then Workbooks.Open strPfad & strDatei
strDatei = Dir$
Loop
End Sub
Zu 1: So wie du es da schreibst, muss "
Juni" immer am
Ende des Dateinamens kommen. Meinst du nicht eher so? ;-)
strDatei = Dir(strPfad & "*" & mx0 & "*.*")
Servus
Case