Konvertierung von Daten

Hallo zusammen,
ich erzeuge mit einem mobilen Datenerfassungsgerät Zahlenkolonnen folgender Struktur:
I722610003
I048970146051940001
E0202000
I080202830255090001
E0202000
I722612007
I040082404010100001
E0202500
Die erste Art der Daten sind Regaldaten und beginnen immer mit "I7", die zweite Art sind EAN, immer beginnend mit "I0" und die dritte Art der Rabatt, immer beginnend mit "E02".
Die EAN und die Rabatte müssten unter den Regaldaten solange subsummiert werden, bis sie sich ändern. Dabei sollen den Regaldaten die ersten beiden Stellen, also das I7
den EAN die ersten beiden Stellen - also "I0" - und die letzten 4 Stellen - immer 0001 - und
den Rabattdaten die ersten beiden Stellen -also das "E02" - abgeschnitten und in eine Zahl mit zwei Nachkommastellen konvertiert werden. Aus "E0202550" würde bspw. "25,50" werden.
Ist so etwas mit VBA möglich?
Liebe Grüße
Alina
Ich hab eine Beispieldatei hochgeladen, wo ihr euch genauer anschauen könnt, was ich meine
https://www.herber.de/bbs/user/70926.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Option Compare Text Sub test() Dim ArrData, ArrAusgabe() Dim A&, B&, C& With Tabelle1 ArrData = .Range("A1", .Cells(Rows.Count, 1).End(xlUp)) End With Redim Preserve ArrAusgabe(1 To Ubound(ArrData), 1 To 3) C = 1 For A = 1 To Ubound(ArrData) ArrData(A, 1) = Trim$(ArrData(A, 1)) If Left$(ArrData(A, 1), 2) = "i7" Then ArrAusgabe(C, 1) = Right(ArrData(A, 1), Len(ArrData(A, 1)) - 2) * 1 ElseIf Left$(ArrData(A, 1), 2) = "e0" Then ArrAusgabe(C, 3) = Right(ArrData(A, 1), 4) / 100 C = C + 1 ElseIf Left$(ArrData(A, 1), 2) = "i0" Then ArrAusgabe(C, 2) = Mid(Left$(ArrData(A, 1), Len(ArrData(A, 1)) - 4), 3, 10 ^ 9) * 1 End If Next A With Tabelle2.Range("E1").Resize(Ubound(ArrAusgabe), Ubound(ArrAusgabe, 2)) .Columns(1).NumberFormat = "0" .Columns(2).NumberFormat = "0" .Columns(3).NumberFormat = "0.00" .Cells = ArrAusgabe End With End Sub

Hallo Alina,
hier noch eine Makrovariante.
Die Regalnummer wird in jede Zeile geschrieben, könte man aber einfach anpassen.
Gruß
Franz

Sub Daten_umgruppieren()
Dim Zeile As Long, ZeileLetzte As Long, ZeileData As Long
Dim wksScann As Worksheet, wksData As Worksheet
Dim sEAN$, sRabatt$, sRegal$
Set wksScann = Worksheets("Tabelle1") 'Tabelle mit eingelesenene Daten
Set wksData = Worksheets("Tabelle2") 'Ausgabetabelle
'Ausgabe-Tabellenblatt vorbereiten
With wksData
.UsedRange.ClearContents
ZeileData = 1
.Cells(ZeileData, 1) = "Regal"
.Cells(ZeileData, 2) = "EAN"
.Cells(ZeileData, 3) = "Rabatt"
.Columns(1).NumberFormat = "@"
.Columns(2).NumberFormat = "@"
.Columns(3).NumberFormat = "0.00"
End With
'Daten ins Ausgabeblatt übertragen
With wksScann
ZeileLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
Zeile = 1
NextRegal:
Do Until Left(.Cells(Zeile, 1).Value, 2) = "I7"
If Left(.Cells(Zeile, 1).Value, 2) = "I0" Then sEAN = Mid(.Cells(Zeile, 1), 3, 13)
Zeile = Zeile + 1
If Left(.Cells(Zeile, 1).Value, 3) = "E02" Then sRabatt = Mid(.Cells(Zeile, 1), 4)
Zeile = Zeile + 1
ZeileData = ZeileData + 1
With wksData
.Cells(ZeileData, 1) = sRegal
.Cells(ZeileData, 2) = sEAN
.Cells(ZeileData, 3) = CDbl(sRabatt) / 100
End With
If Zeile >= ZeileLetzte Then GoTo Beenden
Loop
sRegal = Mid(.Cells(Zeile, 1), 3)
Zeile = Zeile + 1
GoTo NextRegal
End With
Beenden:
End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread