Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Sortierspaltenkopf vorgeben und Meldung in Statusleiste für 2 sec.

Gruppe

Statusleiste

Problem

Wie kann ich eine Tabelle mit Spaltenköpfen nach einem ein einer Zelle genannten Spaltenkopftext sortieren und danach in der Statusleiste für 2 Sekunden eine Vollzugsmeldung anzeigen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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