HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Import nach unten

Import nach unten
07.04.2005 11:21:56
steve
Hallo,
da ich bei meinem Import an die Grenzen von Excel gestoßen bin, müsste diese Funktion jetzt umgeschrieben werden. Der Import sieht folgendermaßen aus:

Sub Textimport()
Dim irow As Integer, icol As Integer
Dim sFile As String, stxt As String
sFile = Range("A1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
irow = 2
icol = 1
Close
Open sFile For Input As #1
Do Until EOF(1)
Line Input #1, stxt
Do While InStr(stxt, ";")
Cells(irow, icol).Value = Left(stxt, InStr(stxt, ";") - 1)
stxt = Right(stxt, Len(stxt) - InStr(stxt, ";"))
icol = icol + 1
Loop
Cells(irow, icol).Value = stxt
irow = irow + 1
icol = 1
Loop
Close
End Sub

Er hat die Funktion, dass aus einer TXT Datei, die in A1 der Tabelle benannt ist Daten zieht und diese ab Zeile 1 Spalte 2 anfängt nebeneinander aufzulisten.
Das Feldtrennzeichen ist ";".
Was muss ich ändern, wenn er mir die Daten nicht nebeneinandern, sondern untereinander schreiben soll?
Vielen Dank im Voraus.
MfG
Steve

1
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Benutzer
AW: Import nach unten
07.04.2005 11:26:06
Tobias
Servus!
Das hier is untested, aber im Prinzip musst du nur irow und icol vertauschen in den Befehlen, in denen er die Werte schreibt.

'Schnipsel anfang
Do While InStr(stxt, ";")
Cells(icol, irow).Value = Left(stxt, InStr(stxt, ";") - 1)
stxt = Right(stxt, Len(stxt) - InStr(stxt, ";"))
icol = icol + 1
Loop
Cells(icol, irow).Value = stxt
irow = irow + 1
icol = 1
Loop
'Ende schnipsel

Gruss

Tobias

Meistgelesene Forumthreads (12 Monate)

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