Benutzerdefinierte Formate in Excel aufspalten
18.06.2019 13:57:43
Marko
ich arbeite aktuell an einer Excel Tabelle, welche als Menge bereits vordefinierte Mengeneinheiten enthält, die sich aber aufgrund des benutzerdefinierten Formats nicht einfach auseinanderziehen lassen. Folgender Code sollte dieszbezüglich eigentlich Abhilfe schaffen:
Public Sub in_Spalten()
Dim loLetzte As Long, i As Long, varArray() As Variant
Application.ScreenUpdating = False
With ActiveSheet
loLetzte = .Cells(.Rows.Count, "W").End(xlUp).Row
For i = 4 To loLetzte
ReDim Preserve varArray(i - 4)
varArray(i - 4) = .Cells(i, "W").Text
Next i
.Cells(4, "X").Resize(loLetzte - 3) = WorksheetFunction.Transpose(varArray)
.Range(.Cells(4, "X"), .Cells(loLetzte, "X")).TextToColumns Destination:=Range("Y4"), _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
_
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1)), TrailingMinusNumbers:=True
.Columns("X:X").Delete
End With
End Sub
Kurz zur Erklärung: In Spalte W stehen die ursprünglichen Werte drin (z.B. 10 M) und in Spalte X soll dann 10 stehen und in Spalte Y die dazugehörigen Mengenangaben.
Leider wird mir ab einer willkürlichen Zeile (z.B. 10001) in Spalte X nur noch #N/A angezeigt, obwohl das benutzerdefinierte Format sich zwischen den Zeilen 10000 und 10001 nicht ändert.
Hat jemand eine Idee woran das liegen könnte bzw. eine Anpassung des Codes für mich parat?
Vielen Dank bereits im Voraus und beste Grüße
Marko