Hoe kan ik aan een variabele in een macro de positie van de cursor bepalen.

bv. Cursor staat in cel A3235.

variabele TELLER wordt dan 3235

Beste

Kan je mijn procedure eens bekijken?... Ik krijg steeds een foutmelding "Object vereist" (fout 424)

Sub BoekingenWEGHALEN()
'
' BoekingenWEGHALEN Macro
' De macro is opgenomen op 04-01-2006 door Temmerman Diego (100).
' en maakt gebruik van relatieve celverwijzing

'
   Dim TELLER As Integer
   Dim STOPTELLER As Integer

' Enkel ingevoerd om procedure te testen, verdwijnt uit definitieve macro
   STOPTELLER = 10
' De eerste twee rijen van het bronwerkblad dienen steeds te worden verwijderd
    Rows("1:2").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("A1").Select

' De laatste rij van het bronwerkblad dient steeds te worden verwijderd
    Selection.End(xlDown).Select
    ActiveCell.Rows("1:1").EntireRow.Select

' De huidige cursorplaats moet worden toegewezen aan de teller STOPTELLER
    STOPTELLER = AcitveCell.Row

' De laatste regel wordt blanco gemaakt
    Selection.ClearContents
    ActiveCell.Select
   
' Stopteller (daarnet bepaald = laatste beschreven regel in werkblad) moet worden gedeeld door 22
    STOPTELLER = (STOPTELLER - 1) / 22
   
' De verdere procedure (transponeren van rijen naar kolommen) verloopt zonder probleem
    Application.Goto Reference:="R1C1"
    Sheets("xmlexport_vacations-NOTEPAD").Select
   
   For TELLER = 1 To STOPTELLER
   
    ActiveCell.Offset(1, 0).Range("A1").Select
    Sheets("xmlexport_vacations-NOTEPAD").Select
    ActiveCell.Offset(22, 0).Range("A1:A20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Resultaat").Select
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=True

    Next TELLER
   
End Sub


Alvast dank!