Daten automatisch einlesen

Hallo an Alle,
hab hier eine für mich kniffelige Aufgabe die ich alleine nicht hinbekomme.
Folgenden Wunsch hab ich....
möchte auf Tabellenblatt"Eingabe"einen Button der mir auf dem Tabellenblatt "Dateneingang" aus einer Datei"dsnoff" immer die letzten fünf Zeilen einliest und sie entsprechend in einzelne Zellen aufteilt.
Die Datei ist immer unterschiedlich groß jedoch bleiben die letzten fünf Zeilen immer gleich.
Die sehen so aus....
X900012EUR100000248065+101000039690+102000248065+103000039690+104000248065+105000039690+106000248065+107000039690+ 1
X900012EUR108000000000+109000000000+110000000000+111000000000+112000129855+113000046060+114000000047+115000061100+ 1
X900012EUR116000000047+117000000000+118000001250+119000000010+120000287755+121000287755+122000000000+123000000000+ 1
X900012EUR124000000000+125000000000+126000000000+127000000000+128000000000+129000011050+140000000000+141 EUR 1
X900013EUR142000000000+143000000000+144000000000+145000000000+146000000000+147000000000+148000000000+ 1
Die Zeilen fangen immer mit X9000... an.
Die wichtigen Inhalte befinden sich ab dem EUR und zwischen den +.
Hierbei sieht so ein Block (der erste nach EUR)so z.b. aus "100000248065" und bedeutet folgendes Block 100 gleich 2 480.65,- u.s.w.
Der letzte Block wäre in letzter Zeile Block "148000000000" hier ist bei diesem Beispiel nur kein Wert hinterlegt.
schön wäre wenn ich auf den Button drücke und in Tabellenblatt"Dateneingang" würde dann in A1=100 und in B1=2 480.65 u.s.w. stehen. Dann könnte ich mit entsprechenden Sverweisen mit die Inhalte in verschiedene Tabellenblätter holen.
Hoffe ich habs verständlich erklärt, und es gibt eine Lösung dafür.
Vorab schon mal vielen Dank für eure unermütliche Hilfe.
Gruß Uwe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Letzte5() Dim strFile As String, lngAnz As Long, strRec As String, strT As String Dim ii As Integer, jj As Integer, zz As Long strFile = "f:\exc\w-w-w\tmp\dsnoff.txt" ' anpassen Close #1 Open strFile For Input As #1 Do While Not EOF(1) Line Input #1, strRec: lngAnz = lngAnz + 1 ' Sätze zählen Loop Close #1 Open strFile For Input As #1 Do While Not EOF(1) Line Input #1, strRec ' Sätze einlesen ii = ii + 1 If ii > lngAnz - 5 Then ' nur die letzten 5 Sätze verarbeiten For jj = 1 To 8 strT = Right(Left(strRec, jj * 13), 3) If Len(strT) = 3 And InStr(strT, " ") = 0 And IsNumeric(strT) Then zz = zz + 1 Cells(zz, 1) = strT strT = Right(Left(strRec, jj * 13 + 9), 9) If IsNumeric(strT) Then Cells(zz, 2) = strT / 100 End If Next jj End If Loop Close #1 End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread