Gebruik van huidige selectie in VBA

[Ruudh59]

Ik wil van de gebruikte cellen in een werkblad een tabel maken in VBA.

De volgende code levert mij dat gebaseerd op de huidige uitkomst van CTRL A :

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$J$5831"), , xlYes).Name = "Tabel1"

CTRL A kan ik dynamisch maken d.m.v.

ActiveSheet.UsedRange.Select

Maar hoe gebruik ik deze selectie vervolgens als range in de functie om er een tabel van te maken?

 

[edmoor]

Zo:

ActiveSheet.ListObjects.Add(xlSrcRange, Range([COLOR="#FF0000"]Selection.Address[/COLOR]), , xlYes).Name = "Tabel1"

 

[AD1957]

misschien zo ?

Sub MaakTabel()
With ActiveSheet
    .ListObjects.Add(xlSrcRange, .UsedRange, , xlYes).Name = "Tabel1"
End With
End Sub

 

[Ruudh59]

Dank je, Edmoor. Het werkt.
Ik had al Selection.Value geprobeerd, maar ja, net niet.
Zal de andere oplossing ook even proberen.

 

[edmoor]

Met het voorbeeld van AD1957 kan je ook het CTRL-A gedeelte achterwege laten.

 

[Ruudh59]

Ben weer veel wijzer geworden. Zal dit topic sluiten. Nogmaals bedankt. Ook voor de snelle reacties.