Microsoft Excel

Herbers Excel/VBA-Archiv

Sortierung



Excel-Version: 9.0 (Office 2000)

Betrifft: Sortierung
von: Norbert
Geschrieben am: 06.06.2002 - 18:19:04

gibt es eine funktion oder formel, mit der sich spalten selbständig neu sortieren, sobald man einen wert in einer spalte geändert hat?

  

Re: Sortierung
von: Uwe Wassmann
Geschrieben am: 06.06.2002 - 18:28:51

Hi,

müsstest du dir höchstens basteln.
Vielleicht mit der funktion Selection_Change und dann sortieren im Makro.

gruß
Uwe


  

Re: Sortierung
von: Uwe Wassmann
Geschrieben am: 06.06.2002 - 18:28:56

Hi,

müsstest du dir höchstens basteln.
Vielleicht mit der funktion Selection_Change und dann sortieren im Makro.

gruß
Uwe


  

Re: Sortierung
von: WernerB.
Geschrieben am: 06.06.2002 - 18:31:02

Hallo Norbert,

teste doch mal diesen Code.

Schreibe/kopiere das nachstehende Makro in das Klassenmodul des betreffenden Tabellenblattes.

- Mache dazu einen Rechtsklick auf den Tabellennamen.
- Klicke dann auf "Code anzeigen".
- Automatisch öffnen sich nun der VB-Editor und das Klassenmodul des betreffenden Tabellenblattes.
- Schreibe/kopiere das nachstehende Makro in die große weiße Fläche auf der rechten Seite.
- Zurück zum "normalen" Excel geht's mit Alt + Q.
- Fertig.


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim laR As Long
    If Target.Column <> 1 Then Exit Sub
    laR = Cells(Rows.Count, 1).End(xlUp).Row
    If laR > 1 Then Range("A1:A" & laR).Sort Key1:=Range("A1"), _
      Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
      MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Viel Erfolg wünscht
WernerB.
 

Beiträge aus den Excel-Beispielen zum Thema "Sortierung"