Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
22.04.2018, 10:03
(Dieser Beitrag wurde zuletzt bearbeitet: 22.04.2018, 10:03 von 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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 16.03.2018
Version(en): 2007,2016
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
Live is a Game Play it
Registriert seit: 11.04.2014
Version(en): Office 2007
Hallo Florian,
je mehr Antworten Du in diesem Thread gibst desto mehr verstehe ich Bahnhof. Wieso verwendest Du wieder das +-Zeichen?
Gruß Stefan
Win 10 / Office 2016
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
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?
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
Grüße aus Norderstedt, Peter
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
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
Registriert seit: 16.03.2018
Version(en): 2007,2016
23.04.2018, 08:37
(Dieser Beitrag wurde zuletzt bearbeitet: 23.04.2018, 08:40 von WillWissen.
Bearbeitungsgrund: Codetags
)
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
Live is a Game Play it