Excel macro bereiken van kolommen benoemen

[SanderH20]

Ik zit met een klein probleem.
Ik heb een Excel-bestand met 10 kolommen, iedere kolom is gevuld tussen het bereik 7 en 8766.
In cel 1 van iedere kolom staat een bepaalde variabele naam.
Ik zou graag in iedere kolom (1 tot en met 10) het bereik (7 tot en met 8766) benoemen met deze variabele naam (gegeven in cel 1) met behulp van een macro.
Tevens is er een voorbeeldbestand toegevoegd om meer duidelijkheid te geven.
Alvast veel dank voor de moeite!

 

[VenA]

Zo?

Sub VenA()
  ar = Cells(1).CurrentRegion
  For j = 1 To UBound(ar, 2)
    Cells(7, j).Resize(8760).Name = ar(1, j)
  Next j
End Sub

 

[SanderH20]

@VenA,

De macro werkt naar behoren in het voorbeeldbestand. Echter als de laatste celwaarde van iedere kolom van 8760 verandert naar een willekeurige waarde, werkt de macro niet meer. Tevens zijn de kolommen nu 10 kolommen opgeschoven, de eerste kolom met waarden begint nu bij kolom 11. Hoe ziet de macro er dan uit? Hoe werkt Ubound eigenlijk?

 

[SjonR]

zo?

Sub VenA()
  ar = Cells(1).CurrentRegion
  For j = 1 To UBound(ar, 2)
      LR = Columns(j).SpecialCells(xlCellTypeLastCell).Row
      Cells(7, j).Resize(LR - 6).Name = ar(1, j)
  Next j
End Sub

of zonder de variabele LR:

Sub VenA()
  ar = Cells(1).CurrentRegion
  For j = 1 To UBound(ar, 2)
      Cells(7, j).Resize(Columns(j).SpecialCells(xlCellTypeLastCell).Row - 6).Name = ar(1, j)
  Next j
End Sub

 

[SanderH20]

@SjonR
De willekeurige waarde (in de laatste rij) werkt, echter wanneer de data pas in kolom 11 begint, werkt de macro niet meer. Graag zou ik dit toch verholpen zien.

 

[SjonR]

Maak van de 7 een 11. En van de 6 een 10.

 

[SanderH20]

@SjonR
Wanneer ik de 7 in een 11 verander en de 6 in een 10, dan krijg ik de foutmelding dat de typen niet overeen komen met elkaar.

 

[SjonR]

plaats je aanpassing dan eens, want ik krijg die melding niet.

moet er zo uitzien:

Sub VenA()
  ar = Cells(1).CurrentRegion
  For j = 1 To UBound(ar, 2)
      Cells(11, j).Resize(Columns(j).SpecialCells(xlCellTypeLastCell).Row - 10).Name = ar(1, j)
  Next j
End Sub

staan de namen nog wel in rij 1? Ik gok dan van niet.

Deze wanneer de namen in rij 11 staan en daaronder de data:

Sub VenA()
  ar = Cells(11, 1).CurrentRegion
  For j = 1 To UBound(ar, 2)
      Cells(11, j).Resize(Columns(j).SpecialCells(xlCellTypeLastCell).Row - 10).Name = ar(1, j)
  Next j
End Sub

 

[VenA]

Als de kennis ontbreekt om iets aan te passen en het te veel moeite is om een representatief voorbeeld te plaatsen dan zal je er even naar moeten zoeken hoe je het kan aanpassen.

Hoe werkt Ubound eigenlijk?

Begin hier maar eens dan zal je de rest ook wel begrijpen. http://www.snb-vba.eu/VBA_Arrays_en.html

 

[HSV]

Maak er een tabel (listobject) van.