sonicreflex
Gebruiker
- Lid geworden
- 9 sep 2009
- Berichten
- 7
Hoi!
Ik ben sinds een aantal dagen aan het stoeien met excel vba maar ben een beetje vastgelopen. Ik probeer nu het volgende te bereiken:
Van een variabel aantal kolommen wil ik voor de laatste gevulde colomn een nieuwe column invoegen. Google heeft mij al geholpen hoe de laatste kolom te bepalen:
lastcol = Cells(6, Columns.Count).End(xlToLeft).Column
ter voorbeeld: de geretourneed waarde is nu 10
Nu wil ik deze kolom selecteren en er een kolom tussen voegen. Handmatig zou ik het volgende doen:
Range("J:J").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Nu wil ik dus de vast waarde "J" vervangen door de relatieve notatie echter ik krijg enkel foutmeldingen. My best guess zou zijn:
Range("RC[" & lastcol & "]: RC[" & lastcol "]").Select
Maar dat pikt ie niet. Someone any clues?
Alvast bedankt !
Ik ben sinds een aantal dagen aan het stoeien met excel vba maar ben een beetje vastgelopen. Ik probeer nu het volgende te bereiken:
Van een variabel aantal kolommen wil ik voor de laatste gevulde colomn een nieuwe column invoegen. Google heeft mij al geholpen hoe de laatste kolom te bepalen:
lastcol = Cells(6, Columns.Count).End(xlToLeft).Column
ter voorbeeld: de geretourneed waarde is nu 10
Nu wil ik deze kolom selecteren en er een kolom tussen voegen. Handmatig zou ik het volgende doen:
Range("J:J").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Nu wil ik dus de vast waarde "J" vervangen door de relatieve notatie echter ik krijg enkel foutmeldingen. My best guess zou zijn:
Range("RC[" & lastcol & "]: RC[" & lastcol "]").Select
Maar dat pikt ie niet. Someone any clues?
Alvast bedankt !