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!