Viele Fragen zum Thema und fast ebensoviele Antworten habe ich zum Thema gefunden, aber leider funktioniert bei mir keine wirklich gut. Ich möchte die Gänsefüsschen am Anfang und Ende entfernen, damit der Import in eine Telefon-SW funktioniert.
Der folgende Code entfernt zwar die Gänsefüsslein, verändert aber auch den Text.
Eine Musterzeie sieht bei mir so aus:
"Andy Schweizer; 077-749 33 86; 6600 Baden, Kornfeldweg 38"
Andy Schweizer; 077-749 33 86; 6600 Baden, Kornfeldweg 38 (so soll er sein)
Private Sub CommandButton1_Click()
Dim datei As String
Dim zeile As Integer
Dim letzteZeile As Integer
letzteZeile = Cells(Rows.Count, 2).End(xlUp).Row + 1
zeile = 2
datei = ThisWorkbook.Path & "\Import_Phoner_121101-1114.txt"
Open datei For Output As #1
Do While zeile ""
Lieber als so was, wäre mir natürlich, wenn ich das File gleich ohne "" speichern könnte - nicht als *.txt speichern, dann wieder öffnen, bearbeiten und nochmals schliessen - aber wenn's nicht anders geht...mfg
Pepi
vielen Dank für Eure Hilfe