UDF funktioniert in xls-Tabelle aber nicht in VBA
Peter
Untenstehende Funktionen berechnen mir die erste, resp. die letzte Zeile eines Ranges.
So ist ergibt die in einem Worksheet eingetragene Formeln
=rErsteZeile(Beispiel) den Wert 2 und
=rLetzteZeile(Beispiel den Wert 222
Nun möchte ich diese Funktion auch im VBA benützen, wenn ich jedoch im Direktbereich
?rErsteZeile(Beispiel) oder ?rLetzteZeile(Beispiel) eingeben
Als Ergebnis erhalte ich jedoch folgende Fehlermeldung:
"Microsoft Visual Basic Fehler beim Kompilieren: Argumenttyp ByRef unverträglich"
Was muss ich ändern, dass das auch im VBA klappt?
Danke für eine Antwort.
Gruss, Peter
Function rErsteZeile(Rng As Range) As Long
rErsteZeile = Rng.Row
End Function
Function rLetzteZeile(Rng As Range) As Long
rLetzteZeile = Rng.Cells(Rng.Cells.Count).Row
End Function
Anzeige