laufzeitfehler 13 typen unverträglich be
04.01.2022 21:58:46
Stefan
ich habe ein Makro das mir aus einer Spalte die Werte zurück gibt
ab Zeile 10
wenn aber in der Spalte ab Zeile 10 kein Werte vorhanden sind bekomme ich den Laufzeitfehler 13
hier sollte entweder nix pasieren oder die MsgBox sagen " keine Werte"
Sub Test()
Dim oWert As Object, i As Long, Tmp
Set oWert = CreateObject("Scripting.dictionary")
Tmp = Range(Cells(10, 2), Cells(Rows.Count, 2).End(xlUp))
For i = 1 To UBound(Tmp) ' hier bleit das Makro stehen mit dem Laufzeitfehler. 13
If Rows(i + 9).EntireRow.Hidden = False Then
oWert(Tmp(i, 1)) = 0
End If
Next
MsgBox Join(oWert.keys, vbLf)
End Sub
Gruß Stefan