Verständnisfrage: Schleife beschleunigen mit array

Hallo,
so gut bin ich in VBA leider noch nicht...
Wenn ich mit Hilfe einer Schleife aus einer Binär- oder Textdatei Daten (z.B. Meßwerte) einlese und in einem Tabelleblatt in einzelne Zellen ablege, kann das bei mehreren 1000 Werte schon eine Weile dauern. Ich vermute das liegt daran, weil immer nur ein Wert in die Variable eingelesen wird, dann muss in die Tabelle geblättert werden und der Wert in der Zelle abgelegt.
Kann man die Daten nicht zuerst alle auf einmal einlesen, z.B. mittels array und dann einen ganzen Block in die ganze Spalte eintragen? Ich könnte mir vorstellen, dass das schneller geht. Weiß leider nicht, wie (habe noch nicht mit arrays gearbeitet).
Vielleicht bringt´s auch nix und da ist ne doofe Idee.
Hat jemand ein paar erklärende Worte? Würde mich freuen und wahrscheinlich auch schlauer machen...
Vielen Dank im voraus,
Heiko

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub TextDatEinL() Dim strPfad As String, strhelp As String Dim arrInput() As String strPfad = "H:\EXCEL\EXCEL Privat\Beispiele\Dat_Test_Dateien\TextDatZeileloeschen.txt" Open strPfad For Binary As #1 strhelp = Space(LOF(1)) Get #1, , strhelp arrInput = Split(strhelp, vbCrLf) Close #1 ActiveSheet.Range(Cells(1, 1), Cells(UBound(arrInput, 1), 1)) = _ Application.WorksheetFunction.Transpose(arrInput) End Sub

Option Explicit Option Explicit Sub TextDatEinL() Dim strPfad As String, strhelp As String Dim arrInput() As String strPfad = "c:\temp\text1.txt" Open strPfad For Binary As #1 strhelp = Space(LOF(1)) Get #1, , strhelp arrInput = Split(strhelp, vbCrLf) Close #1 ActiveSheet.Range(Cells(1, 1), Cells(UBound(arrInput, 1), 1)) = Application.WorksheetFunction.Transpose(arrInput) End Sub

Option Explicit Sub TextDatEinL() Dim strPfad As String, strhelp As String Dim arrInput() As String strPfad = "c:\temp\text1.txt" Open strPfad For Binary As #1 strhelp = Space(LOF(1)) Get #1, , strhelp arrInput = Split(strhelp, vbCrLf) Close #1 MsgBox Len(strhelp) ActiveSheet.Range(Cells(1, 1), Cells(UBound(arrInput, 1), 1)) = Application.WorksheetFunction.Transpose(arrInput) End Sub

Sub TextDatEinL() Dim strPfad As String, strhelp As String Dim arrInput() As String Dim lngI As Long strPfad = "H:\EXCEL\EXCEL Privat\Beispiele\Dat_Test_Dateien\Reinhard.txt" Open strPfad For Binary As #1 strhelp = Space(LOF(1)) Get #1, , strhelp arrInput = Split(strhelp, vbLf) Close #1 'ActiveSheet.Range(Cells(1, 1), Cells(UBound(arrInput, 1), 1)) = _ ' Application.WorksheetFunction.Transpose(arrInput) For lngI = 1 To UBound(arrInput) ActiveSheet.Cells(lngI, 1) = arrInput(lngI) Next lngI End Sub

Hallo Heiko,


Sub TextDatEinL()
Dim strPfad As String, strhelp As String
Dim arrInput() As String
strPfad = "H:\EXCEL\EXCEL Privat\Beispiele\Dat_Test_Dateien\TextDatZeileloeschen.txt"
Open strPfad For Binary As #1
strhelp = Space(LOF(1))
' die komplette Textdatei in einen Sring einlesen.
Get #1, , strhelp
' Nun diesen String splitten, also die einzelnen Zeilen herausarbeiten,
' Zeilen sind doch in einem Textfile mit Lf (Line Feed) und Cr (Cariage Reture) getrennt
arrInput = Split(strhelp, vbCrLf)
Close #1
' Da nun aber ein Array mit einer Zeile und vielen Spalten vorliegt muss es noch
' transponiert werden, also eine Spalte viele Zeilen machen.
' Das ubound(arrinput) liest die Anzahl an Einträgen im Array aus.
' Schau mal in der VBA Hilfe unter Ubound, Lbound ...
ActiveSheet.Range(Cells(1, 1), Cells(UBound(arrInput, 1), 1)) = _
Application.WorksheetFunction.Transpose(arrInput)
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !

Beliebteste Forumthreads (12 Monate)

Verständnisfrage: Schleife beschleunigen mit array

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread