Zeilen autom nach Werten d. Spalte C sortieren

Hallo,
ich bitte um Unterstützung bei der Lösung mittels Makro für nachfolgende Aufgabenstellung.
Im aktuellen Tabellenblatt "Raum 1" sind in der Spalte C einer jeden Zeile ganze Zahlen von 1 bis 30 eingetragen. Diese Zeilen sollen automatisch nach Eingabe des Wertes in Spalte C sortiert werden.
Ein Beispiel: In Zeile 10-12 steht der Wert 5 in Spalte C. In Zeile 13-18 steht der Wert 7 in Spalte C.
In der neuen Zeile, ganz unten in der Tabelle, trage ich in Spalte C den Wert 6 ein. Nun sollte das Makro automatisch die letzte Zeile mit dem Wert 6 zwischen die Zeilen mit den Wert 5 und 7 einsortieren.
Ist das so zu lösen?
Alternativ könnte auch folgende Lösung möglich sein.
Markierte Zeilen werden nach den ganzen Zahlenwerten in Spalte C absteigend sortiert.
Für Euro Unterstützung danke ich recht herzlich und werde die fertige Makrolösung hier einstellen.
Liebe Grüsse
obelix

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim lngZeileLast As Long Const SpalteSort As Long = 3 'Spalte nach der Sortiert werden soll Const lngZeile1 As Long = 2 '1. Datenzeile in Sortierspalte If Target.Column = SpalteSort And Target.Row >= lngZeile1 And Target.Cells.Count = 1 Then With Me lngZeileLast = .Cells(.Rows.Count, SpalteSort).End(xlUp).Row If lngZeileLast > lngZeile1 Then Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False .Range(.Rows(lngZeile1), .Rows(lngZeileLast)).Sort Key1:=.Cells(lngZeile1, SpalteSort), _ _ order1:=xlAscending, header:=xlNo Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End If End With End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim lngZeileLast As Long Const SpalteSort As Long = 3 'Spalte nach der Sortiert werden soll Const lngZeile1 As Long = 2 '1. Datenzeile in Sortierspalte If Target.Column = SpalteSort And Target.Row >= lngZeile1 And Target.Cells.Count = 1 Then With Me lngZeileLast = .Cells(.Rows.Count, SpalteSort).End(xlUp).Row If lngZeileLast > lngZeile1 Then Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False .Range(.Rows(lngZeile1), .Rows(lngZeileLast)).Sort Key1:=.Cells(lngZeile1, _ SpalteSort), order1:=xlAscending, Header:=xlNo Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End If End With End If End Sub

Sub Selektion_Nach_Spalte_C_Sortieren() Dim lngZeileLast As Long, wks As Worksheet, Bereich As Range Const SpalteSort As Long = 3 'Spalte nach der Sortiert werden soll Dim lngZeile1 As Long '1. Datenzeile in selektion Set wks = ActiveSheet Set Bereich = Selection lngZeile1 = Bereich.Row lngZeileLast = Bereich.Row + Bereich.Rows.Count - 1 With wks If lngZeileLast > lngZeile1 Then Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False .Range(.Rows(lngZeile1), .Rows(lngZeileLast)).Sort Key1:=.Cells(lngZeile1, _ SpalteSort), order1:=xlAscending, Header:=xlNo Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End If End With End Sub

Hallo Obelix,
das Makro startet automatisch, wenn du in Spalte C in einer Zelle einen Wert einträgst oder änderst.
Falls du die Sortierung manuell starten willst, dann muss du eine der folgenden beiden Varianten verwenden.
Gruß
Franz


Sub Nach_Spalte_C_Sortieren()
Dim lngZeileLast As Long, wks As Worksheet
Const SpalteSort As Long = 3 'Spalte nach der Sortiert werden soll
Const lngZeile1 As Long = 2 '1. Datenzeile in Sortierspalte
Set wks = ActiveSheet
With wks
lngZeileLast = .Cells(.Rows.Count, SpalteSort).End(xlUp).Row
If lngZeileLast > lngZeile1 Then
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
.Range(.Rows(lngZeile1), .Rows(lngZeileLast)).Sort Key1:=.Cells(lngZeile1, _
SpalteSort), order1:=xlAscending, Header:=xlNo
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End With
End Sub
Sub Selektion_Nach_Spalte_C_Sortieren()
Dim lngZeileLast As Long, wks As Worksheet, Bereich As Range
Const SpalteSort As Long = 3 'Spalte nach der Sortiert werden soll
Dim lngZeile1 As Long '1. Datenzeile in selektion
Set wks = ActiveSheet
Set Bereich = Selection
lngZeile1 = Bereich.Row
lngZeileLast = Bereich.Row + Bereich.Rows.Count - 1
With wks
If lngZeileLast > lngZeile1 Then
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
.Range(.Rows(lngZeile1), .Rows(lngZeileLast)).Sort Key1:=.Cells(lngZeile1, _
SpalteSort), order1:=xlAscending, Header:=xlNo
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Zeilen autom nach Werten d. Spalte C sortieren

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen autom nach Werten d. Spalte C sortieren

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread