Anzeige
Archiv - Navigation
248to252
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
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Inhalte einer Excel-Spalte als .txt abspeichern

Inhalte einer Excel-Spalte als .txt abspeichern
30.04.2003 20:49:06
Jenny
Hallo,

es gibt folgende Problemstellung die ich für die Uni lösen muss und an der ich langsam verzweifele...


Ich habe ein Excel-Dokument mit vielen Spalten.
Jede Spalte hat eine Überschrift (-> jeweils die erste Zeile der Spalte).

Nun müssen die Inhalte der Spalten jeweils in einem Text-Dokument abgespeichert werden. Für jede Spalte also ein separates Textdokument.
Wobei die Überschrift der Dokumentname des Textdokuments sein soll.


Für jede Hilfe bin ich dankbar, allein schaffe ich das nicht.

Vielen Dank im Voraus,

Jennifer

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Inhalte einer Excel-Spalte als .txt abspeichern
30.04.2003 21:22:51
udo

hi jenny, mögl. Lösung zB.:

Überschrift in A1 , dann text in a2 in a3 usw.. sagen wir mal bis A6 .
Dann schreib doch in A7 : =A1&": "&A2&A3&A4&A5&A6

jetzt müsste also A7 den Wert aus allen aufgezählten Zellen beinhalten, egal ob man ihn auf Grund der Zellgröße komplett sehen Kann oder nicht.

Nun kannst du aber ein Textfeld in excel ( aus der zeichnenleiste , am Rahmen mit links anklicken ) und : " =A7 " eingeben in die Adressenleiste oben im Registerbereich.

dann müsste in dem Textfeld das erscheinen was in A7 steht.

Du kannst dann auch die Werte In A7 nach Word übernehmen und da auflisten usw.

vielleicht hilft dir das schonmal

Gruß udo

Anzeige
Re: Inhalte einer Excel-Spalte als .txt abspeichern
30.04.2003 21:35:25
Ramses

Hallo Jenny,

kopiere das Makro und lass es laufen wenn deine Tabelle mit den Daten aktiv ist.
Den Exportpfad bitte anpassen. Er muss bereits existieren.


Option Explicit

Sub Create_New_Text_Files_from_Column()
'Variablen definieren
Dim Cr As Long, Cc As Integer, CrE As Long, CcE As Integer
Dim i As Long, n As Long, y As Long
Dim CHeader As String, ExPfad As String, Exfile As String
'Exportpfad mit Backslash am Schluss definieren !!
ExPfad = "C:\Temp\"
Cr = 65536
'Schliessen einer evetnuell noch geöffneten Datei
Close #1
'Letzte Spalte bestimmen
If Cells(1, 256) = "" Then
    CrE = Cells(1, 256).End(xlToLeft).Column
End If
'Beginn der Export Schleife
For i = 1 To CrE
    If Cells(Cr, i) = "" Then
        Cr = Cells(Cr, i).End(xlUp).Row
    End If
    '1. Öffnen der Datei
    'Den Namen und Pfad bitte anpassen
    Exfile = ExPfad & Cells(1, i) & ".txt"
    Open Exfile For Output As #1
    'Beginn des Datenexports in die Textdatei
    For n = 2 To Cr
        'Write oder Print verwenden
        Print #1, Cells(n, i)
    Next n
    'Schliessen der Datei weil Dateiende erreicht wurde
    Close #1
Next i
MsgBox i & " Textdateien wurden in " & ExPfad & " erstellt"
End Sub 

     Code eingefügt mit Syntaxhighlighter 1.16


Gruss Rainer

Anzeige
wow rainer dass sieht mal richtig gut aus,
30.04.2003 21:38:54
muss ich mir auch mal merken, Gruß udo o.T.

...

Na Na Na, wie soll ich das denn verstehen :-)) o.T
30.04.2003 21:44:41
Ramses

...

Re: Inhalte einer Excel-Spalte als .txt abspeichern
30.04.2003 21:44:59
Jenny

Wow, das ist großartig, das hätte ich NIE geschafft : )


Vielen Dank

Kleiner Bug....
30.04.2003 22:06:36
Ramses

Hallo

Um allen Problemen sicher aus dem Weg zu gehen setze nach

Close #1

bitte den Text

Cr = 65536


'So sollte es dann aussehen

Sonst könnte es sein, dass in einer Spalte, wenn die unterschiedliche viele Daten haben, nicht alles eingelesen wird.

Gruss Rainer

Re: Kleiner Bug....
30.04.2003 22:12:56
L.Vira

Hallo, Ramses,
verwende statt fester Dateinr. besser Freefile.
Gruß L.Vira

Danke...
30.04.2003 22:15:28
Ramses

Hallo L.Vira,

das kannte ich noch gar nicht :-))

Gruss Rainer

Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige