Range definieren
02.01.2020 10:22:10
tursiops
Ich möchte mehrere dynamische Bereiche in einem Tabellenblatt separat sortieren lassen.
Die erste und letzte Zelle des Bereiches (jeweils in der Kopf- und Fußzeile) haben bereits definierte Namen.
Kopf und Fußzeile sollen jedoch nicht mit sortiert werden.
Mit der Kombination von .range und .offset haben ich allerdings etwas Probleme:
Public Sub Sort_GWV_300020()
Dim rng1 As Range
Dim rng2 As Range
Dim NewRng As Rang
With ThisWorkbook.Worksheets("GWV")
Set rgn1 = Range("GWV_300020_Start").offset(1;0).select
Set rng2 = Range("GWV_300020_Ende").offset(-1;0).select
Set NewRng = .Range(rng1.Address & ":" & rng2.Address)
'hier soll der der eigentliche Code hin (Bereich nach Spalte K sortieren)
End Sub
Gruß Frank