02. juli 2021 - 11:53Der er
6 kommentarer og 2 løsninger
Makro load aktivt "celle område"
Hej formentligt et simpelt spørgsmål for den som har svaret..
Jeg har et ark hvor nogle områder er defineret via "navnestyring" og nu ønsker jeg en makro som tager værdien fra øverste celle og navngiver cellerne under med teksten fra øverste celle.
hvordan henter celle området for de aktive celler f.eks. "C22:C27"
'Load navn fra celle 1 ActiveCell.Select Dim liste_navn As String liste_navn = ActiveCell.Value
Måske kan dette bruges. Hvis du vælger cellen med overskriften og kører makroen navngives alle celler nedenunder med det navn der står i overskriften.
Sub NavnGivning() Dim ListeNavn As String lastrow = Cells(1048576, ActiveCell.Column).End(xlUp).Row ListeNavn = ActiveCell.Value Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(lastrow - ActiveCell.Row, 0)).Select ActiveWorkbook.Names.Add Name:=ListeNavn, RefersToR1C1:=Selection End Sub
Hej Jens, mange tak det virker som ønsket - PERFEKT!!
Et spørgsmål mere;
Hvad hvis nu funktionen skal arbejde vandret altså teksten som cellerne skal navngives med står "A1" og cellerne som skal navngives står fra celle "B2" og vandret ud (i række 1 - B1 til ?? indtil den når en tom celle
Sub NavnGivning() Dim ListeNavn As String Lastcolumn = Cells(ActiveCell.row,16384).End(xlleft).Column ListeNavn = ActiveCell.Value Range(ActiveCell.Offset(0,1). ActiveCell.Offset(0,lastcolumn - ActiveCell.Column)).Select ActiveWorkbook.Names.Add Name:=ListeNavn, RefersToR1C1:=Selection End Sub
Nu har jeg prøvet at rette det til på min telefon, så jeg garanterer ikke for at det virker. Ellers må du vente til jeg er tilbage fra ferie og det varer nogen tid
Der havde indsneget sig to fejl i makroen. Prøv med denne
Sub NavnGivning() Dim ListeNavn As String lastcolumn = Cells(ActiveCell.Row, 16384).End(xlToLeft).Column ListeNavn = ActiveCell.Value Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, lastcolumn - ActiveCell.Column)).Select ActiveWorkbook.Names.Add Name:=ListeNavn, RefersToR1C1:=Selection End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
