Moin zusammen,
ich habe ein etwas größeres Excel Projekt, welches mit VBA unterstützt werden muss.
Ein Teil an dem ich aktuell fest hänge ist das öffnen anderer Excel Dateien aus meiner Arbeitsmappe heraus.
Ich habe einen Teil des Dateinamens, der durch den Ordner, in welchem ich suche, absolut eindeutig ist.
Darüber möchte ich gerne die andere Arbeitsmappe öffnen.
Dafür nutze ich
Das Problem dabei ist, dass die Variable "Dateiname" dabei leer bleibt.
Wenn ich allerdings quasi den gleichen Code
in einem gesonderten Makro ausführe, findet er die Datei und gibt mir auch den vollständigen Dateinamen aus.
Kann mir einer erklären, wo der Unterschied der beiden Varianten ist?
Beste Grüße
ich habe ein etwas größeres Excel Projekt, welches mit VBA unterstützt werden muss.
Ein Teil an dem ich aktuell fest hänge ist das öffnen anderer Excel Dateien aus meiner Arbeitsmappe heraus.
Ich habe einen Teil des Dateinamens, der durch den Ordner, in welchem ich suche, absolut eindeutig ist.
Darüber möchte ich gerne die andere Arbeitsmappe öffnen.
Dafür nutze ich
Quellcode
- Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
- Dim Jahr As String
- Dim Monat As String
- Dim Bericht As String
- Dim Dateiname As String
- Dim Suchbegriff As String
- Dim Pfad 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 = Dir(Pfad & "*" & Suchbegriff & "*")
- If Dateiname <> "" Then
- Workbooks.Open Pfad & Dateiname
- End If
Das Problem dabei ist, dass die Variable "Dateiname" dabei leer bleibt.
Wenn ich allerdings quasi den gleichen Code
in einem gesonderten Makro ausführe, findet er die Datei und gibt mir auch den vollständigen Dateinamen aus.
Kann mir einer erklären, wo der Unterschied der beiden Varianten ist?
Beste Grüße