Gruppe
Allgemein
Problem
Eine Tabelle soll so sortiert werden, dass Formelergebnisse, die einen Leerstring ergeben, am Ende der Tabelle erscheinen sollen.
StandardModule: basMain
Sub Sortieren()
Dim rng As Range
Dim bln As Boolean
bln = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Set rng = Rows(1).Find(Range("E2").Value, _
lookat:=xlWhole, LookIn:=xlValues)
If rng Is Nothing Then
Beep
MsgBox "Spaltenüberschrift wurde nicht gefunden!"
Exit Sub
End If
Range("A1").Sort key1:=rng.Offset(1, 0), _
order1:=xlAscending, header:=xlYes
Application.StatusBar = "Sortiert nach " & _
Range("E2").Value & " - Zelle " & rng.Address(False, False)
Application.Wait Now + TimeSerial(0, 0, 2)
Application.StatusBar = False
Application.DisplayStatusBar = bln
End Sub