VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Sortierung mit Formel-Leerstrings am Ende

Gruppe

Allgemein

Bereich

Sortieren

Thema

Sortierung mit Formel-Leerstrings am Ende

Problem

Eine Tabelle soll so sortiert werden, dass Formelergebnisse, die einen Leerstring ergeben, am Ende der Tabelle erscheinen sollen.

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Sortieren