ich habe folgende Tabelle1:
A1: Orangenkorb1 B1: Orange_1, Orange_2
A2: Orangenkorb2 B2: Orange_1, Orange_3, Orange_4
A3: Orangenkorb3 B3: Orange_2, Orange_3
Ich möchte Tabelle1 mit folgendem Ergebnis in Tabelle2 transformieren:
A1: Orangenkorb1 B1: 1
A2: Orangenkorb1 B2: 2
A3: Orangenkorb2 B3: 1
A4: Orangenkorb2 B4: 3
A5: Orangenkorb2 B5: 4
A6: Orangenkorb3 B6: 2
A7: Orangenkorb3 B7: 3
Kann mir dazu jemand mittels VBA weiterhelfen? Vorab schon mal vielen Dank für eure Hilfe.
VG
Julian
Ps. Um die Werte aus Spalte B zu transformieren wurde mir bereits aus diesem Forum mit folgendem VBA-Code geholfen, der auch super funktioniert:
Function IntText(ByVal Bereich As Range)
Dim regex As Object, newText, out
Set regex = CreateObject("vbscript.regexp")
newText = Join(Application.Transpose(Bereich.Value))
With regex
.Pattern = "(.*?)(\_)(\d+)"
.Global = True
out = Split(.Replace(newText, "/$3"), "/")
IntText = out
End With
End Function