Frage zur Sortierung
14.02.2025 10:59:07
kruemel
Ich habe ein kleines Problem bzgl. Sortierung.
Ich möchte einen Bereich (H:AF) sortieren lassen per VBA. Die Sortierung in (H) selbst funktioniert,
nur die Bereiche (I:AF) hinter der zu sortierenden Spalte bleiben unberührt. Behalten also nicht
die Verbindung zu Spalte (H)
Das komische an der Sache ist, was ich nicht verstehe, wenn ich den Bereich markiere und von Hand sortiere
klappt es und die Zellen neben der Spalte (H) werden mitgenommen.
Liegt es an mir oder an Excel oder am Code? Könnte mich jemand Bitte erleuchten!!!
vielen Dank schon mal im Voraus
Schöne Grüße
Kruemel
Sub sortieren()
'Lotsennamen kopieren und Sortieren zusammen mit Urlaubstagen
Dim WS As Worksheet
Dim rng2 As Range
Application.EnableEvents = False
Application.ScreenUpdating = False
Set WS = Sheets("üNr")
Set rng2 = WS.Range("H5:AF213")
'Sortierung rng2
With ActiveWorkbook.Worksheets("üNr")
rng2.Sort _
key1:=Range("H5:AF213"), order1:=xlAscending, _
Header:=xlYes
End With
Range("H5").Select
Application.EnableEvents = True
Application.ScreenUpdating = True
WS.Protect ("NOK1")
End Sub
Anzeige