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
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
Hallo Florian,
je mehr Antworten Du in diesem Thread gibst desto mehr verstehe ich Bahnhof. Wieso verwendest Du wieder das +-Zeichen?
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.
Zitat:... (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?
Hi Peter,
(22.04.2018, 11:05)Käpt\n Blaubär schrieb: [ -> ]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
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