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 ?
Noch eine Frage zum verfassen eines Beitrags , Codeschnipsel am besten über den Code-Button im Text-Editor einfügen, was ist damit gemeint?
Danke schon mal !!!
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 |