|
Hallo zusammen,
ich bin noch relativ neu in VBA und verzweifel grade an einem Problem.
Undzwar möchte ich Daten die in einer Zelle zusammengefasst sind voneinander trennen und neue leere Spalten davor einfügen.
Beispiel:
Aus
| Input |
Umsatz |
Rang |
Datum |
| 1,2,3,4 |
15 |
2 |
01.01.2022 |
Soll das werden
| Input |
Input |
Input |
Umsatz |
Rang |
Datum |
| 1 |
2 |
3 |
15 |
2 |
01.01.2022 |
Ich habe bereits folgendes Skript erstellen können:
Application.Run "Mappe1!Makro1"
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Range("A1").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
Ich erhalte den Fehler 28 "Nicht genügend Stapelspeicher". Ich weiß, dass es etwas damit zu tun hat, dass Excel in eine Endlosschleife verfällt. Nur weiß ich leider nicht, was ich dem entgegenzusetzen habe...
Für jede Unterstützung bin ich mehr als dankbar!
Jesse
|