Tabel maken

Status
Niet open voor verdere reacties.
W

Woffels

Gebruiker
Lid geworden
8 jan 2006
Berichten
249
Ik heb meerdere tabbladen met data waar ik een tabel van wil maken met VBA. Hoeveel kolommen en rijen er met data zijn is onbekend en kan zelfs per tabblad verschillen.
Ik heb nu zo iets gemaakt met de macro recorder:

Code: 
Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$X$2508"), , xlYes).Name = "Tabel1"

Maar ik wil af van dit gedeelte, omdat het aantal kolommen en rijen steeds anders kan zijn
Code: 
(Range("$A$1:$X$2508"))
 
Code: 
Sub M_snb()
  for each it in sheets
    it.ListObjects.Add 1, it.Cells(1).CurrentRegion, , 1
  next
End Sub
 
Laatst bewerkt:
Is het ook mogelijk elke tabel een oplopende naam en nummer te geven?
 
Dat gebeurt al automatische; kijk bij formules / names (benoemde gebieden)
Oplopende namen kan ik me overigens weinig bij voorstellen :(
 
Laatst bewerkt:
Ik denk een eigen naam, maar spreekt eigenlijk wel voor zich dat het dan zoiets wordt.

Code: 
Sub M_snb()
  For Each it In Sheets
    it.ListObjects.Add(1, it.Cells(1).CurrentRegion, , 1).Name = "test_" & x + 1
    x = x + 1
  Next
End Sub
 
@JV

Dat kan ook zonder variabele.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan