Per Formel, ob eine Spalte sortiert ist

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 2002
nach unten

Betrifft: Per Formel, ob eine Spalte sortiert ist
von: Carsten
Geschrieben am: 13.04.2002 - 01:48:29

Guten Morgen, :-)

ich möchte gerne per Formel herausbekommen, ob eine Spalte sortiert ist oder nicht.

In A1 steht die Spaltenüberschrift, ab A2 bis A454 stehen die sortierten Werte.

Ist das möglich?


Danke! Carsten.

nach oben   nach unten

Re: Per Formel, ob eine Spalte sortiert ist
von: MRR
Geschrieben am: 13.04.2002 - 11:07:31

Mit folgendem Makro sollte es gehen:

Sub Ist_Sortiert()
Dim As Long, j As Long
Dim Spalte As Integer
Dim Sortiert As Boolean
Spalte = 3
i = Range("A2").End(xlDown).Row
Sortiert = True
For j = 3 To i
  If StrComp(Cells(j, Spalte), Cells(j - 1, Spalte), vbTextCompare) = -1 Then
    Sortiert = False
    Exit For
  End If
Next
MsgBox "Die Daten sind " & IIf(Sortiert, "", "nicht ") & "sortiert."
End Sub

Matthias
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Per Formel, ob eine Spalte sortiert ist"