Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
308to312
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
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Externe Daten automatisch in Spalten anordnen

Externe Daten automatisch in Spalten anordnen
11.09.2003 15:38:09
Rainer Dargel
Liebe Excelente,

Ich habe 40000 Zahlenwerte in einer txt-Datei, die ich in Excel importieren möchte, so dass sie sich automatisch in eine 200*200 Matrix anordnen, also die ersten 200 Werte in Spalte A, die Werte 201-400 in Spalte B usw...
Wie mache ich dass?

Vielen Dank für Eure Mühe

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Externe Daten automatisch in Spalten anordnen
11.09.2003 15:54:19
Ramses
Hallo

probier mal das


Sub Read_Extern_File_and_Write_200_Matrix()
'(C) Ramses
Debug.Print Now()
Dim i As Long, n As Integer, Cr As Integer, Cc As Integer
'Hilfsvariable für Anzahl Datensätze
Dim Text1 As String
'Variablen für den Array nötig
Dim txtlines As Long
'Für Office97 muss das Array TextArr als String definiert werden
Dim textArr As Variant
Dim ReadFile As String, tempStr As String
'Name der Datei aus der die Daten importiert werden sollen
ReadFile = "C:\Demo.txt"
Close #1
'1. Öffnen der Datei
'Den Namen und Pfad bitte anpassen
Open ReadFile For Input As #1
'Die anzahl ist nötig um die Grösse des Arrays zu deklarieren
'Zähler auf 0 setzen
txtlines = 0
Do While Not EOF(1)    ' Schleife bis Dateiende.
Input #1, Text1    ' Hilfsvariable zum einlesen verwenden
'Zähler hochzählen
txtlines = txtlines + 1
Loop
'Schliessen der Datei weil Dateiende erreicht wurde
Close #1
'Erneutes Öffnen um zum Dateianfang zu kommen
Open ReadFile For Input As #1    ' Datei zum Einlesen öffnen.
'Array neu auf die Anzahl der Linien initialisieren
ReDim textArr(txtlines)
'Einlesen der Dateien in das Array
For i = 1 To txtlines
'Zeile einlesen
Line Input #1, textArr(i)
Next i
Debug.Print "Total Datensätze: " & i
'File schliessen
Close #1
'Schreiben in Tabelle
Cr = 1 'Zeile
Cc = 1 'Spalte
For i = 1 To txtlines
'Array an die jeweilige Zeilen zurückschreiben
Cells(Cr, Cc) = textArr(i)
Cr = Cr + 1
If Cr Mod 200 = 0 Then
Cr = 1
Cc = Cc + 1
End If
Next i
'Schliessen
MsgBox "Alle Daten importiert"
Debug.Print Now
End Sub


Gruss Rainer
Anzeige
AW: Externe Daten automatisch in Spalten anordnen
11.09.2003 16:03:25
ChrisL
Hi Rainer

War ich wohl zu langsam, aber trotzdem...

Option Explicit


Sub TXTöffnen()
Dim fFile As Variant
Dim iZeile As Long, iSpalte As Integer
On Error GoTo ErrorHandler
fFile = Application.GetOpenFilename("TXT Datei (*.txt), *.txt")
If fFile = False Then Exit Sub
Application.ScreenUpdating = False
Workbooks.OpenText FileName:=fFile
iSpalte = 1
With ActiveWorkbook.Worksheets(1)
For iZeile = 201 To .Range("A65536").End(xlUp).Row Step 200
iSpalte = iSpalte + 1
If iSpalte > 256 Then
MsgBox "Vorgang konnte nicht abgeschlossen werden, da lediglich 256 Spalten zur Verfügung stehen."
Exit Sub
End If
.Range(.Cells(iZeile, 1), .Cells(iZeile + 199, 1)).Copy .Cells(1, iSpalte)
Next iZeile
.Range("A201:A65536").ClearContents
End With
ErrorHandler:
Application.ScreenUpdating = True
End Sub


Gruss
Chris
Anzeige
Dicken Dank
11.09.2003 16:27:18
Rainer
Hallo Ramses und Chrisl,

Vielen Dank Euch beiden, hat geklappt. Ich hab´s mit Chrisl´s Methode gemacht, bei Ramses erscheint ein Laufzeitfehler 62: Einlesen hinter Dateiende für "Line Input #1, textArr(i)". Da ich keine Ahnung von Makroprogrammierung habe, weiß ich auch nicht, was ich da verkehrt mache.

Nochmals vielen Dank
Rainer

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige