Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1008to1012
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

Sortierbereich festlegen

Sortierbereich festlegen
17.09.2008 13:38:33
Bernhard
Hallo Excelexperten,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortierbereich festlegen
17.09.2008 13:47:00
Ingo
hallo Bernhard,
Probiermal:
Set Bereich = .Range(."A:H")
mfG
Ingo Christiansen
AW: Sortierbereich festlegen
17.09.2008 14:09:17
Bernhard
Hallo Ingo,
auch Dir herzlichen Dank für die schnelle Hilfe.
Einen schönen Tag
Bernhard
AW: Sortierbereich festlegen
17.09.2008 13:50:00
Peter
Servus,
versuchs mal so. (Letzte Zeile = Spalte H = wenn Spalte A letzte Zeile > letzte Spalte H=fehlerhaftes sortieren)

Public 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("A1:H" & .Cells(.Rows.Count, 1).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


MfG
Peter

Anzeige
AW: Sortierbereich festlegen
17.09.2008 14:06:08
Bernhard
Salut Peter,
Danke für Deine Hilfe, es klappt! Ich muss noch viiiiiiiiiiiiiiiiiiiel lernen.
Gruss
Bernhard

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige