Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datei mit Tabulator-Trennzeichen mittels VBA

Datei mit Tabulator-Trennzeichen mittels VBA
28.06.2006 12:25:29
Ingo
Hallo
Ich schreibe aus einer Excel-Tabelle mittels VBA eine Textdatei, bei der die Datensätze mittels "|" getrennt werden.
Der Code dafür sieht folgendermassen aus:
--------------------------------------------------------------------------
Application.DisplayAlerts = False
Dim Zeile As Object
Dim s As String
Open "D:\SPACEart\Internet\SPACEart.de\Sonstiges\Google-Base.txt" For Output As #1
For Each Zeile In Selection.Rows
For Each Zelle In Zeile.Cells
s = s & Zelle.Text & "|"
Next
Print #1, Left(s, Len(s) - 1)
s = ""
Next
Close #1
Application.DisplayAlerts = True
ActiveWindow.SmallScroll ToRight:=-30
Range("A1").Select
--------------------------------------------------------------------------
Bei diesem Code hat mir jemand geholfen, weil ich selber eigentlich nicht wirklich VBA behersche (ich glaube, es war sogar hier aus eurem Forum jemand).
Nun denn, nun brauche ich diese Datei (Google-Base.txt) aber nicht mehr mit dem Trnnzeichen "|", sondern durch Tabulatorzeichen getrennt.
Was muss ich denn nun anstelle von "& "|"" einsetzen, damit die Sachen eben mit einem Tabulator getrennt werden?
Ich würde mich riesig freuen, wenn mir da jemand von Euch behilflich sein könnte.
Gruß
Ingo
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei mit Tabulator-Trennzeichen mittels VBA
28.06.2006 12:35:24
Uduuh
Hallo,
s = s & Zelle.Text & vbTab
Gruß aus’m Pott
Udo

AW: Datei mit Tabulator-Trennzeichen mittels VBA
28.06.2006 12:44:12
Ingo
Hallo Udo
Vielen lieben Dank für deine schnelle Hilfe.
Klappt wunderbar.
Gruß
Ingo
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Datei mit Tabulator-Trennzeichen in VBA erstellen


Schritt-für-Schritt-Anleitung

Um eine Textdatei mit Tabulator-Trennzeichen in VBA zu erstellen, kannst du den folgenden Code verwenden. Dieser ersetzt das "|" Trennzeichen durch ein Tabulatorzeichen:

Application.DisplayAlerts = False
Dim Zeile As Object
Dim s As String
Open "D:\SPACEart\Internet\SPACEart.de\Sonstiges\Google-Base.txt" For Output As #1
For Each Zeile In Selection.Rows
    For Each Zelle In Zeile.Cells
        s = s & Zelle.Text & vbTab
    Next
    Print #1, Left(s, Len(s) - 1) ' Letztes Tabulatorzeichen entfernen
    s = ""
Next
Close #1
Application.DisplayAlerts = True
ActiveWindow.SmallScroll ToRight:=-30
Range("A1").Select

Stelle sicher, dass du die Excel-Version verwendest, die VBA unterstützt. Dieser Code funktioniert in Excel 2007 und später.


Häufige Fehler und Lösungen

  • Fehler: Die Datei wird nicht erstellt.

    • Lösung: Überprüfe den Dateipfad und stelle sicher, dass du Schreibrechte auf den angegebenen Ordner hast.
  • Fehler: Die Daten sind nicht richtig getrennt.

    • Lösung: Stelle sicher, dass du vbTab anstelle von | verwendest. Der Code s = s & Zelle.Text & vbTab ist entscheidend.

Alternative Methoden

Wenn du keine VBA verwenden möchtest, kannst du auch den Excel-Export nutzen:

  1. Wähle die Daten aus, die du exportieren möchtest.
  2. Gehe zu Datei > Speichern unter.
  3. Wähle den Dateityp Text (Tabulator-getrennt) (*.txt) aus.
  4. Klicke auf Speichern.

Diese Methode ist einfach, bietet jedoch weniger Anpassungsmöglichkeiten als VBA.


Praktische Beispiele

Ein Beispiel, wie man Sportwetten-Daten in Excel mit Tabulatoren exportieren kann:

Angenommen, du hast eine Tabelle mit Wettquoten und möchtest diese in eine Textdatei exportieren. Nutze den oben genannten VBA-Code, um die Daten mit Tabulatoren zu trennen. Dies kann dir helfen, die Daten später in einem anderen Programm einfach zu importieren, wie zum Beispiel in eine Datenbank für deine Sportwetten-Analyse.


Tipps für Profis

  • Verwende vba tab chr zusammen mit Chr(9) für mehr Flexibilität, falls du die Tabulatoren anders handhaben möchtest. Beispiel: s = s & Zelle.Text & Chr(9).

  • Du kannst vba msgbox tab nutzen, um den Benutzer über den Fortschritt des Exports zu informieren. Beispiel:

    MsgBox "Export abgeschlossen!", vbInformation

FAQ: Häufige Fragen

1. Wie kann ich die Textdatei an einem anderen Ort speichern? Ändere einfach den Dateipfad in der Zeile Open "D:\SPACEart\Internet\SPACEart.de\Sonstiges\Google-Base.txt" For Output As #1 zu deinem gewünschten Speicherort.

2. Kann ich andere Trennzeichen verwenden? Ja, du kannst jedes Zeichen als Trennzeichen verwenden. Ersetze vbTab durch das gewünschte Zeichen, z.B. ";" für ein Semikolon.

3. Funktioniert dieser Code in Excel 2016? Ja, dieser Code ist kompatibel mit Excel 2016 und neueren Versionen, die VBA unterstützen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige