Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle in txt-Datei Schreiben

Tabelle in txt-Datei Schreiben
14.04.2005 09:13:38
Fredi
Hallo,
kann jemand mich helfen wie ich eine Tabelle in einer Txt-Datei schreiben kann. Getrennt durch TAB. Es sollen insgesamt 720 Zellen sein.
Mfg
Fredi van Wensen

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle in txt-Datei Schreiben
14.04.2005 09:37:30
Dani
Hallo Fredi,
versuchs mal damit:


      
'Ansatz für Fredi zum Abspeichern von Tabellendaten in ein Textfile
Sub TabelletoText()
Dim Speicherbereich As Range
Dim Zelle As Object
Set Speicherbereich = Range("A1:D50") 'Hier wird der Speicherbereich festgelegt
Open "C:\Temp\Text.txt" For Output As #1 'Datei öffnen
 For Each Zelle In Speicherbereich   'Alle Zellen abgrasen
    Print #1, Zelle.Value & vbTab;   'Werte speichern
 Next
Close #1
End Sub 
Hoffe es hilft
Gruss Bambi
Anzeige
AW: Tabelle in txt-Datei Schreiben
14.04.2005 09:52:33
Fredi
Danke, hat mich schon viel geholfen aber geht es auch dass es jeder Spalte im Excel auch als eine Spalte im Text Datei geschrieben wird:
1 2
2 3
3 4
usw
Statt 1 2 2 3 3 4?
Danke
Fredi
AW: Tabelle in txt-Datei Schreiben
14.04.2005 10:06:20
Dani
Hallo Fredi,
so sollte es gehen:


      
'Ansatz für Fredi zum Abspeichern von Tabellendaten in ein Textfile
Sub TabelletoText()
Dim Speicherbereich As Range
Dim Zelle As Object
Dim Spalte, AnzahlSpalten As Long
Spalte = 1
Set Speicherbereich = Range("A1:B4") 'Hier wird der Speicherbereich festgelegt
AnzahlSpalten = Speicherbereich.Columns.Count
Open "C:\Temp\Text.txt" For Output As #1 'Datei öffnen
 For Each Zelle In Speicherbereich   'Alle Zellen abgrasen
        Print #1, Zelle.Value & vbTab;   'Werte speichern
        If Spalte = AnzahlSpalten Then
            Print #1, ""
            Spalte = 0
        End If
        Spalte = Spalte + 1
 Next
Close #1
End Sub 
Gruss Dani
Anzeige
AW: Tabelle in txt-Datei Schreiben
14.04.2005 10:06:29
Fredi
Hat super funktioniert, danke..
Fredi
Danke für die Rückmeldung! O.w.T.
14.04.2005 10:09:27
Ralf
:-)

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige