ich habe ein größeres Excelprojekt mit VBA Unterstützung.
Dabei will ich aus der bestehenden Arbeitsmappe andere Excel Dateien aufrufen.
Diese sind in einer festen Ordnerstruktur abgelegt und in den Ordnern eindeutig identifizierbar durch eine Nummer.
Der Dateiname ist dabei aber länger als nur die Nummer.
Aktuell verwende ich:
Dim Jahr As String
Dim Monat As String
Dim Bericht As String
Dim Dateiname As String
Dim Suchbegriff As String
Dim Pfad As String
Dim Test As String
Jahr = Right(ActiveSheet.Name, 4)
Monat = Left(ActiveSheet.Name, InStr(ActiveSheet.Name, " "))
If Sh.Name = "Bericht" Then Exit Sub
If Target.Column 14 Then Exit Sub
If Target.Value Like "####" Then
Pfad = "C:\Users\benzp\Desktop\Berichte\" & Jahr & "\" & Monat & "\"
Suchbegriff = Target.Value
Dateiname = VBA.Dir("C:\...\Berichte\" & Jahr & "\" & Monat & "\*" & Suchbegriff & "*")
If Dateiname "" Then
Workbooks.Open Pfad & Dateiname
End If
Das Problem dabei ist, dass die Variable "Dateiname" nicht befüllt wird,
Wenn ich ein gesondertes Makro verwende wie
Debug.Print Test
Wird die Datei gefunden. Die Variablen "Jahr" und "Monat" werden korrekt befüllt und der Pfad wird mir im debugging Modus auch korrekt angezeigt, aber nicht in "Dateiname" gespeichert.
Hat irgendjemand einen Tip für mich?
Wäre sehr dankbar