Überprüfen ob Datei vorhanden

[RPP63]

Das z.B. stört mich ein wenig.
Der LZF 52 deutet ja eher auf Zugriffsprobleme zum Netzwerk hin.
Dein Beispiel müsste jedenfalls immer funktionieren.
Ich hoffe doch, dass (meExcelIni.txt) nicht zusätzlich in der Zelle steht.

Ich befürchte, dass ich Dir nicht helfen kann.

Gruß Ralf

[Florian20]

Hey

Also das z.B. ist nicht mit in der Zelle und (meExcelIni.txt) wird so mit in die Zelle geschrieben.

Pfad +("\meExcelIni.txt") = zelle

Lg Flo

[Steffl]

Hallo Florian,

je mehr Antworten Du in diesem Thread gibst desto mehr verstehe ich Bahnhof. Wieso verwendest Du wieder das +-Zeichen?

[Käpt'n Blaubär]

Hallo,

ich habe nicht unbedingt vor, hier auch noch mitzumischen und ich beneide die Helfer ob ihrer Geduld.
Im Grunde entscheide ich das auf Grund der mir gegeben werdenden Antwort auf diese Frage.

... (meExcelIni.txt) wird so mit in die Zelle geschrieben.

was ist hier nun wirklich gemeint:

... wird so mit in die Zelle geschrieben
oder
... wird somit in die Zelle geschrieben?

[Kuwer]

Hi Peter,

ich habe nicht unbedingt vor, hier auch noch mitzumischen und ich beneide die Helfer ob ihrer Geduld.

ich auch nicht, da mir das Ganze hier schon recht trollig vorkommt.  :17:

Gruß Uwe

[Florian20]

Hallo,
Also Ich habe das Problem jetzt selber gelöst :21:  aber danke für die Hilfen.

Hier mein Code:

Code:

Public Sub pfad_definieren()
[color=#339933]'Öffnet beim ersten mal Öffnen der Mappe eine Abfrage wo die Server Datei liegt[/color]
Dim varDatei As Variant
F:
varDatei = Application.GetOpenFilename("Text-Datei (*.txt), *.txt")
If varDatei = False Then
  MsgBox "Sie müssen die Server Datei Auswählen!" & vbLf & _
  "Ist die Datei nicht vorhanden" & vbLf & _
  "Dann Kontaktieren Sie mich." & vbLf & vbLf & _
  "Datei = Neuedaten.txt", vbCritical, "Fehler Info Box!"
  GoTo F
Else
  Sheets("Adressen").Range("J10").Value = varDatei
  MsgBox "Folgende Datei wurde Ausgewählt!" & vbLf & vbLf & _
  "" & varDatei, vbInformation, "Info Pfad Box"
  Pfad = Sheets("Adressen").Range("J10").Value
  End If
varDatei = Mid(varDatei, InStrRev(varDatei, "\") + 1)
If Not varDatei = "Neuedaten.txt" Then
MsgBox "Es wurde eine Falsche Datei Ausgewählt!", vbCritical, "Fehler Info Box!"
GoTo F
End If
End Sub

Lg Flo