Hallo , ich verzweifle an diesen Problem ! Der Code funktioniert wen ich den mit der Variante_1 ausführe , Variante_2 findet die Datei nicht , obwohl die Datei vorhanden ist. Variante_1 findet die ja auch. Kann mir da jemand helfen , ich mach jetzt schon Tage damit rum ?

Private Sub srtm_vorhanden_Click()



    If srtm_vorhanden = False Then
     GoTo Endstrm
    End If
    
    ' ab hier wenn srtm_vorhanden = Thrue
    
    Dim strDatei As String
    Dim Endung As String
    Dim Name As String
    
    Name = Cells(5, 3) ' übernahme von Cells(5, 3)  wird im excel Formular eingegeben und ist im Beispiel  "Test_srtm"
    Endung = ".osm"    ' Endung der Datei wird in excel Formular festgelegt
    strDatei = ""
     
    '   die Datei Hoehendaten_MyOsmTopo-Test_strm.osm ist im Verzeichnis vorhanden
     
    '   Variante_1 funktioniert und die Datei wird gefunden es wird ausgegeben datei vorhanden
    
    '   Variante_1:
    '   strDatei = "C:\MyOsmTopo\Kartenprojekt_MyOsmTopo-Test_srtm\Hoehendaten_MyOsmTopo-Test_strm.osm"
        
    '   Variante_2  funktioniert nicht obwohl der String strDatei gleich der Variante_1 ist
    '   und die Datei Hoehendaten_MyOsmTopo-Test_strm.osm im Verzeichnis vorhanden ist, es wird ausgegeben Datei fehlt
    
    '   Variande_2:
        strDatei = "C:\MyOsmTopo\Kartenprojekt_MyOsmTopo-" + Name + "\Hoehendaten_MyOsmTopo-" + Name + Endung
        
        MsgBox strDatei ' beide Varianten geben den gleichen String strDatei aus warum funktioniert Variande_2 nicht
                         
   
     If Dir(strDatei) = "" Then
        MsgBox "Datei fehlt"
        srtm_vorhanden = False
      Else
        MsgBox "Datei vorhanden"
    End If

Endstrm:

End Sub