Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text import

Forumthread: Text import

Text import
19.08.2005 13:31:14
Sascha
Hallo Liebe Freunde!
Folgendes: Ich möchte in Excel Arbeitsblatt text einfügen (aus Editor) aber so das jeweils 15 Zeilen von text in eine Zeile von Arbeitsblatt eingefügt sind (Text Zeilen 1-15 in Zeile 1, Text Zeilen 16-30 in Zeile 2,…. Und Formatierung soll erhalten bleiben)
Ist das mit einem Makro möglich und wie?
Danke in voraus.
Gruß Sascha
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text import
19.08.2005 14:28:30
IngGi
Hallo Sascha,
ich wüsste zwar nicht, wie man per VBA direkt aus dem Editor heraus Text in Excel importieren kann, aber wenn du die Textdatei speicherst, kannst du den Text aus der gespeicherten Datei heraus mit dem folgenden Makro in deine Exceldatei importieren. Ich habe dabei die einzelnen Textzeilen in jeder Zelle mit einer Zeilenschaltung voneinander getrennt.

Sub Daten_einlesen()
Dim b As Byte, ff As Byte, lng As Long
Dim Pfad As String, Eingang As String, Sammel As String
Pfad = "C:\Dokumente und Einstellungen\STL2109\Desktop\" 'Pfad anpassen
ff = FreeFile
Open Pfad & "diag0805.txt" For Input As #ff 'Dateiname anpassen
Do
For b = 1 To 15
If EOF(ff) Then
Close #ff
Exit Sub
End If
Line Input #ff, Eingang
If Sammel = "" Then
Sammel = Sammel & Eingang
Else
Sammel = Sammel & Chr(10) & Chr(13) & Eingang
End If
Next 'b
ThisWorkbook.Sheets(1).Range("A1").Offset(lng, 0) = Sammel
Sammel = ""
lng = lng + 1
Loop
End Sub
Gruß Ingolf
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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