[VB6] Range met variabelen

[Verwijderd]

Hoi hoi,

ik zit met het volgende probleem:
In mijn excel sheet heb ik een formulier gemaakt waarin men kan kiezen welke rij(en) verwijderd moeten worden.
Nu is het zo dat alleen een bepaald bereik verwijderd mag worden, namelijk kolom A t/m Q.
In mijn code kan ik er wel voor kiezen om een hele rij te selecteren, maar ik krijg het niet met range voor mekaar om tot / met Q te verwijderen.

Hier mijn code:
X = Rij1
y = Rij2
Z = X & ":" & y

If y <> 0 Then
Rows(Z).Select
Else
Rows(X).Select
End If
Selection.Delete Shift:=xlUp

Ik heb het met de volgende manieren geprobeerd, maar helaas...
Range (Cells(A & y) & (Q & y)).Select (Met en zonder aanhalingstekens)
Range (Cells(A & y) : (Q & y)).Select (Met en zonder aanhalingstekens)

Met de Help-functie wil het ook niet lukken. Iemand nog een idee???

[coenbijlsma]

Misschien kan je eens proberen een macro op te nemen en daarvan de code te kopiëren. Dan zul je er wel snel uit zijn, succes.

[Verwijderd]

Kan in dit geval niet, omdat ik met variabelen werk.
De x,y,z zijn getallen die je invult om een waarde aan te geven

[coenbijlsma]

code:

Sub selectRows()
    Columns("A:Q").Select
    Selection.delete Shift:=xlToLeft
End Sub

Volgens mij kan je daar gewoon je variabelen invullen hoor, je krijgt dan dus:

code:

Sub selectRows()
    Columns(X & ":" & y).Select
    Selection.delete Shift:=xlToLeft
End Sub

et voilá...

[farlane]

Dit is geen VB6

[coenbijlsma]

Nee, dat klopt. Het zal wel VBA voor Excel zijn. TS moet de titel maar even laten aanpassen.

edit:

hmm... TS kan de titel zelf niet aanpassen. Moetie het maar laten doen
Bij dezen verbeterd.

[ Voor 42% gewijzigd door coenbijlsma op 08-07-2005 12:44 ]

[Sikkek]

Je moet aanhalingtekens om je variabelen Z en X zetten bij het selecteren van Rows of een Range o.i.d..

Dus niet Rows(Z) maar Rows(chr(34) & Z & chr(34))