Igelnet.de - Tipp der Woche

Den Inhalt eines Tabellenblattes in ein anderes Dateiformat kopieren (Tipp_65) - 22.06.2008

Zur Weiterverarbeitung Ihrer EXCEL-Ergebnisse in anderen Anwendungen ist es oft erforderlich, die in den Zellen stehenden Werte zu exportieren. In diesem Beispielmakro wird der Inhalt des Tabellenblattes "Tabelle1" in eine txt-Datei kopiert:

Sub werte_zu_txt()

    Dim C As Range

    Open "c:werte.txt" For Output As #1

    For Each C In Sheets("Tabelle1").UsedRange.Cells

    Print #1, C.Value

    Next

    Close #1

End Sub

Wenn die Datei werte.txt nicht existiert, wird sie neu angelegt.