Print side | Luk vindue

Selektering af dynamisk område

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4128
Udskrevet den: 23.Nov.2024 kl. 01:57


Emne: Selektering af dynamisk område
Besked fra: highboy
Emne: Selektering af dynamisk område
Posteringsdato: 06.Jan.2020 kl. 17:56
Hejsa

Er ingen Excel haj, men har behov for at vide hvordan jeg vælger alle data, men hvor jeg ikke ved hvor mange rækker der er.

Jeg har tre kolonner med X antal rækker og der er data i alle rækker.
Hvis jeg optager en makro og bruger ctrl+shift+pil til venstre og ctrl+shift+pil ned for kun at vælge celler med data i, så virker det også, lige indtil jeg tilføjer flere rækker.
Når cellerne er markeret, vil jeg ændre det markerede område til en tabel og så opstår problemet.
For når jeg har markeret området og klikker tabel, så beder den om et fast område (det skal være dynamisk eller sagt på en anden måde svare til det valgte område når makroen kører) 

Håber jeg har forklaret mig nogenlunde fornuftigt, ellers bare sig til Smile

A1 er altid udgangspunktet.

Se nedenstående udsnit 

Sub test()
'
' test Makro
'
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$C$31"), , xlYes).Name = _
        "Tabel1"
    Range("Tabel1[#All]").Select
    ActiveSheet.ListObjects("Tabel1").TableStyle = "TableStyleLight20"
End Sub



Print side | Luk vindue