Office: Typen unverträglich bei Split Funktion

stjolich · 16. Dezember 2014

Hallo,

bekomme bei unten stehendem Code immer den "Laufzeitfehler '13': Typen unverträglich"

Komme leider nicht selbst drauf und hoffe auf Eure Hilfe.

In der Zelle auf die der Code zugreift sind Koordinaten die ich gerne splitten würde. (Beispiel für Zelleninhalt: "20.832423768097364,47.178613652806405 20.832415445488053,47.178624206673994 20.8324021497932,47.178627461113095 20.832396807320247,47.1786259992043 20.832384838879033,47.178601647925142 20.832382070275205,47.178589900639572")

Hier der Codeteil:
Code:

Dim zeile, zeileline, lastrow, i, j As Long
Dim strTeilstring(), strTeilstring2() As String
Dim spalte As Long
Sheets("GraphicElement").Select
zeile = 2
zeileline = 2
spalte = 10
i = 0
While Worksheets("Line").Cells(zeileline, 1) ""
Cells(zeile, 1) = Worksheets("Line").Cells(zeileline, 3)
Cells(zeile, 2) = Worksheets("Line").Cells(zeileline, 4)
Cells(zeile, 4) = Worksheets("Line").Cells(zeileline, 2)
strTeilstring = Split(Trim(Worksheets("MS Leitungen").Cells(zeile, 1).Value), " ")
For a = LBound(strTeilstring) To UBound(strTeilstring)
strTeilstring2 = Split(Trim(a), ",")
Cells(zeile, spalte) = Trim(strTeilstring2(LBound(strTeilstring2)))
spalte = spalte + 1
Cells(zeile, spalte) = Trim(strTeilstring2(UBound(strTeilstring2)))
spalte = spalte + 1
i = i + 2
Next a
Cells(zeile, 9) = i
Wend
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

haklesoft · 17. Dezember 2014

Hallo, Code:

Split(Trim(a), ",")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sowohl Trim als auch Split erwarten einen String. A ist aber eine numerische Laufvariable, deshalb die Fehlermeldung. Gib den zu teilenden String an.

stjolich · 17. Dezember 2014

achso ich sollte vielleicht noch sagen das ich die Fehlermeldung bereits in der Zeile:
"strTeilstring = Split(Trim(Worksheets("MS Leitungen").Cells(zeile, 1).Value), " ")" bekomme

stjolich · 17. Dezember 2014

Habs hinbekommen, danke haklesoft für den Hinweis!
Hab strTeilstring und strTeilstring2 als Variant deklariert.

Code:

Dim zeile, zeileline, lastrow, i, j As Long
Dim strTeilstring, strTeilstring2 As Variant
Dim spalte As Long
Sheets("GraphicElement").Select
zeile = 1
zeileline = 2
spalte = 10
i = 0
While Worksheets("Line").Cells(zeileline, 1) ""
Cells(zeile, 1) = Worksheets("Line").Cells(zeileline, 3)
Cells(zeile, 2) = Worksheets("Line").Cells(zeileline, 4)
Cells(zeile, 4) = Worksheets("Line").Cells(zeileline, 2)
strTeilstring = Split(Trim(Worksheets("MS Leitungen").Cells(zeile, 1).Value), " ")
For a = LBound(strTeilstring) To UBound(strTeilstring)
strTeilstring2 = Split(Trim(strTeilstring(a)), ",")
Cells(zeile, spalte) = Trim(strTeilstring2(LBound(strTeilstring2)))
spalte = spalte + 1
Cells(zeile, spalte) = Trim(strTeilstring2(UBound(strTeilstring2)))
spalte = spalte + 1
i = i + 2
Next a
Cells(zeile, 9) = i
zeile = zeile + 1
zeileline = zeile + 1
spalte = 10
i = 0
Wend
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

haklesoft · 17. Dezember 2014

Hallo,

strTeilstring hast Du als Variant dimensioniert. Sollte aber so als String dimensioniert werden: Code:

Dim strTeilstring() As String, strTeilstring2() As String
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Typen unverträglich bei Split Funktion

Typen unverträglich bei Split Funktion

Typen unverträglich bei Split Funktion

Typen unverträglich bei Split Funktion

Typen unverträglich bei Split Funktion - Similar Threads - Typen unverträglich Split

Laufzeitfehler 13 Typen unverträglich

Laufzeitfehler '13': Typen unverträglich

Laufzeitfehler 13: Typen unverträglich

Typen unverträglich Fehler 2023

Typen unverträglich und ich verzweifel

ADODB recordset Typen unverträglich

VBA Laufzeitfehler 13 Typen unverträglich