Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1680to1684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dynamische Range

Dynamische Range
08.03.2019 11:54:06
Giorgi
Hallo ans Forum,
Ich möchte ein bestimmten Tabellenbereich einen Namen zuweisen.
Dies passiert mit
Sheets("Test").Range("A1:Z1").Name = "Testliste"

Da sich die Tabelle immer wieder ändert, möchte ich gerne eine dynamische Range habe.
D.h. die Range soll immer von der Spalte mit der Beschriftung "Start" bis hin zur Spalte "Ende" hin definiert sein.
Dementsprechend aber auch nur bis zur letzten freien Zeile in Spalte "Start" bzw. +1.
Für Anregung bin ich dankbar.
Gruß G.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dynamische Range
08.03.2019 12:36:07
Rudi
Hallo,
Sub aaa()
Dim lStart As Long, lEnde As Long, lRows As Long
With Sheets("Test")
lStart = Application.Match("Start", .Rows(1), 0)
lEnde = Application.Match("Ende", .Rows(1), 0)
lRows = .Cells(Rows.Count, lStart).End(xlUp).Row
.Range(.Cells(1, lStart), .Cells(lRows, lEnde)).Name = "Test"
End With
End Sub

Gruß
Rudi
AW: Dynamische Range
08.03.2019 13:05:59
Giorgi
Hallo Rudi,
es funktioniert wunderbar. Ich danke dir dafür.
Gruß G.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige