Variablen Bereich in Sortierung einarbeiten
20.03.2019 09:44:52
Jan
Ich möchte einen Variablen Bereich in die Sortierung einer Tabelle einfließen lassen. Dieses zeigt mir aber alle möglichen Fehler an. Ich bin nicht wirklich bewandert in VBA. Aber durch Recherche hat sich der Nachstehende Code ergeben.
Das Ziel ist, das die erste Zeile bis zur letzten beschriebenen Zeile als Zahl in den Bereich einfließen soll. Einzeln funktioniert das auch. Sprich bei LZe kommt eine 7 raus da die letzte Zeile 7 ist. Und der Code Sortieren funktioniert auch. Bloß zusammen geht es einfach nicht. Der Code steht direkt im Maschinen Tabellenblatt.
Ich bitte euch um Hilfe da ich partout nicht mehr weiter komme.
Mit freundlichem Gruß
Jan
und schon mal Danke im Voraus.
Sub SortierenNr1()
Dim NrSpalte As String
Dim LZe As Long
Dim NrBereich As String
' Variablen
LZe = Sheets("Maschinen").UsedRange.SpecialCells(xlCellTypeLastCell).Row
NrSpalte = "I"
NrBereich = Range(.Cells(2, 1), .Cells(LZe, 30))
' Sortieren
With Maschinen
Range(NrBereich).Sort _
Key1:=Range(NrSpalte & "2"), Order1:=xlAscending, _
Header:=xlYes
End With
End Sub