Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anführungszeichen im txt-File

Forumthread: Anführungszeichen im txt-File

Anführungszeichen im txt-File
DirkR
Hallo zusammen,
ich habe im Moment ein Problem welches mich fast verrückt macht:
Auf Basis einer Excel-Tabelle möchte ich ein txt-File (Tab getrennt) erstellen. Die erste Spalte in Excel
enthält ein Datum in dem Format MM/DD/JJJJ, dieses Datum muss nachher in dem txt-File genau so:
"12/31/1990"
erscheinen, inkl. der Anführungszeichen. Geben ich das so in Excel ein mit Anführungszeichen, dann erscheint es beim Output so:
"""12/31/1990"""
Gebe ich es ohne ein, dann kommt es so:
12/31/1990
Hat jemand von Euch eine Idee wie ich es in Excel eingeben muss, damit es genauso im txt-File ankommt?
Vielen Dank im voraus.
Gruss
Dirk
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Anführungszeichen im txt-File
25.06.2010 16:11:31
Tino
Hallo,
versuch es mal so.
Sub test()
Dim meAr(), A&, B&
Dim F%, sFileName$, sLine$

Const strTrennZeichen$ = vbTab

sFileName$ = Application.GetSaveAsFilename("MeinTextFile.txt", "Text-Datei (*.txt), *.txt")

If sFileName$ = CStr(False) Then Exit Sub

If Dir(sFileName, vbNormal) <> "" Then
    If MsgBox("Datei schon vorhanden, soll diese ersetzt werden?" & vbCr & _
      "Wird die Datei nicht ersetzt, werden die Zeilen dazugeschrieben", vbQuestion + vbYesNo) = vbYes Then
        Kill sFileName
    End If
End If

meAr = Sheets("Tabelle1").UsedRange.Value

For A = 1 To Ubound(meAr)
   If IsDate(meAr(A, 1)) Then meAr(A, 1) = Chr(34) & Format(meAr(A, 1), "mm\/dd\/yyyy") & Chr(34)
Next A



F = FreeFile
Open sFileName For Append As #F

For A = 1 To Ubound(meAr)
    For B = 1 To Ubound(meAr, 2) - 1
        sLine$ = sLine$ & meAr(A, B) & strTrennZeichen
    Next B
    sLine = sLine & meAr(A, Ubound(meAr, 2))
    
    Print #F, sLine
    
    sLine$ = ""
Next A

Close #F


End Sub
Gruß Tino
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige