brauche Eure Hilfe bei folgender Aufgabenstellung: Ich will über ein VBA Makro die Spalten A bis H sortieren - aber nur diese Spalten! Mein Code sortiert auch die Inhalte in den anderen Spalten mit. Wie muss ich den Code verändern?
Private Sub DatenSortieren()
Dim wks As Worksheet
Dim Bereich As Range
Set wks = ActiveSheet
With wks
'datenbereich festlegen und hier komme ich nicht weiter!!!!!!!!
Set Bereich = .Range(.Rows(1, 1), .Rows(.Cells(.Rows.Count).End(xlUp).Row))
'Daten nach Spalten A, C und F sortieren
Bereich.Sort _
Key1:=Range("A1"), Order1:=xlAscending, _
Key2:=Range("C1"), Order2:=xlAscending, _
Key3:=Range("F1"), Order3:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub
https://www.herber.de/bbs/user/55463.xls
Danke für Eure Hilfe
Gruss
Bernhard