Makro fehler!
28.11.2014 11:13:20
Andreas
Ich habe ein Problem mit meinem Makro.
Fehlermeldung. Laufzeitfehler '6': Überlauf
Excel verweißt auf die Zeile: Dic(Format(varAr(A, 1), sFormat)) = 0
Was ist damit falsch?
------------------------------------------------------------------------
Option Explicit
Sub Liste_Ohne_Doppel(ByRef varAr As Variant, Optional sFormat As String = "@")
Dim Dic As Object
Dim A As Long
QuickSort varAr, LBound(varAr), UBound(varAr), 1, False
Set Dic = CreateObject("Scripting.Dictionary")
Dic("") = 0
For A = 1 To UBound(varAr)
If varAr(A, 1) "" Then
Dic(Format(varAr(A, 1), sFormat)) = 0
End If
Next A
varAr = Dic.keys
End Sub
Gruß Andreas