Laufzeitfehler 6 Überlauf
Andi
mit der Funktion EFZVUIS habe ich noch nie Probleme gehabt.
Doch ein Rechner streikt (Windows XP, Excel 2007)
Die Anweisung ".rows.count" läuft nicht. Fehlermeldung Laufzeitfehler '6' Überlauf.
Woran könnte es liegen? Welche dll bzw. Bibliothek muß installiert /registriert sein?
Im Net fand ich nur Hinweise bzgl. falscher Deklaration integer / long.
Da die Funktion, auf allen anderen Rechner mit Excel 2003, 2007, 2010 stabil läuft,
muß es an etwas anderen liegen.
Danke für Eure Hilfe.
Gruß Andi
Public Function EFZVUIS(ByVal DasTabBlatt As Worksheet, ByVal DieSpalte As Integer) As Long
'Weiterverwendung auf eingene Gefahr
'Keine Zeilen ausgeblendet
' *** Erste Freie Zeile von unten in einer Spalte ***
'Gibt die erste Freie Zeile von unten zurück.
'ist die Letzte Zelle belegt so wird - 1 zurückgegeben bei einem Fehler -2
Dim i As Long
On Error GoTo Fehler
With DasTabBlatt
If IsEmpty(.Cells(.Rows.Count, DieSpalte)) Then
i = .Cells(.Rows.Count, DieSpalte).End(xlUp).Row
If i = 1 Then
EFZVUIS = IIf(IsEmpty(.Cells(i, DieSpalte)), 1, 2)
Else
EFZVUIS = i + 1
End If
Else
EFZVUIS = -1
End If
End With
Exit Function
Fehler:
EFZVUIS = -2
End Function