Hallo zusammen,
ich habe ein Problem mit einem Code, aus dem Forum:
Also der Code selbst funktioniert korrekt - ich habe allerdings nun das Problem, dass manchmal die ArrWerte leer sind. Und dann gibt es beim reinschreiben in den Reiter Statistik ein Problem. Es kommt ein Laufzeitfehler 13 - Typen unverträglich.
Wie kann ich diesen Fehler ÜBERSPRINGEN?
LG
Claudia
Dim Wert$, ArrWerte, Zeilen&
Wert = Quelle1
ArrWerte = Split(Wert, ", ")
With Sheets("Statistik")
Zeilen = .Cells(.Rows.Count, 4).End(xlUp).Row 'Spalte d
.Cells(Zeilen, 9).Resize(, UBound(ArrWerte) + 1).Value = ArrWerte
End With