Microsoft Excel

Herbers Excel/VBA-Archiv

ArrWerte Fehler

Betrifft: ArrWerte Fehler von: Claudia
Geschrieben am: 01.11.2012 11:57:19

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

  

Betrifft: AW: ArrWerte Fehler von: Hajo_Zi
Geschrieben am: 01.11.2012 12:00:42

Hallo Claudia,

keine Ahnung wir sehen nicht Quelle.

GrußformelHomepage


  

Betrifft: AW: ArrWerte Fehler von: Tino
Geschrieben am: 01.11.2012 12:07:09

Hallo,
ungetestet evtl. so

Dim Wert$, ArrWerte, Zeilen&
Wert = Quelle1

ArrWerte = Split(Wert, ", ")

if ubound(ArrWerte) > -1 then
   With Sheets("Statistik")
     Zeilen = .Cells(.Rows.Count, 4).End(xlUp).Row 'Spalte d
     .Cells(Zeilen, 9).Resize(, UBound(ArrWerte) + 1).Value = ArrWerte
   End With
end if
Gruß Tino


  

Betrifft: AW: ArrWerte Fehler von: Claudia
Geschrieben am: 01.11.2012 12:24:26

Hallo Tino,

da kommt auch ein Laufzeitfehler.

Der Code ist übrigens von Dir, wie Du sicher bemerkt hast. Er funktioniert auch reibungslos, leider nur dann nicht, wenn die ArrWerte nicht "gefüllt" werden können.

Hast Du noch eine Idee, wie ich den Fehler abfangen kann?

LG
Claudia


  

Betrifft: AW: ArrWerte Fehler von: Tino
Geschrieben am: 01.11.2012 12:35:03

Hallo,
dann fragen wir einfach Wert ab ob leer oder nicht.

if wert <> "" then


Gruß Tino


  

Betrifft: Prima, klappt bestens. Danke schön! von: Claudia
Geschrieben am: 01.11.2012 15:22:20




 

Beiträge aus den Excel-Beispielen zum Thema "ArrWerte Fehler"