HERBERS Excel-Forum - die Beispiele

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

Home

Gruppe

Allgemein

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

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

Allgemeine Frage zur Fehlerbehandlung allgemeine Fragen zu einer Datenbank
allgemein allgemein: VBA lernen?
Statusleiste zeigt Anzahl sta Hide-Methode-Allgemeine Frage
Formelassistent allgemein allgemeingültig Blattschutz aufheben
Summenanzeige in Statusleiste ? allgemeine Frage...
Solver - allgemein Solver - allgemein
Symbol-, Bearbeitungs- und Statusleiste Frage zum Forum allgemein
Allgemeine Frage - Finanz-Planungsmodell Autofilter-keine Anzeige in Statusleiste
Pivoteingrenzung Formel verallgemeinern Schriftgröße in Statusleiste
makro verallgemeinern Office allgemein, bitte hilfe
allgemein Allgemeine Frage zu Makro
Komprimieren möglich? Allgemeine Frage Excel 2007 Einstellung der Statusleiste unten
Statusleiste Fortschritt Makro bedingte Formatierung allgemein
Fehlersuche allgemein Anzahl selektierter Datensätze in Statusleiste
Wie baut man ein allgemeines richtig Modul ein? Anzahl Datensätze beim Filtern in Statusleiste
Statusleiste zeigt nichts an Makro allgemein zur Verfügung stellen
Statusleiste Allgemeine Forum-Frage: Kennwort ändern ?
VBA allgemein Makro allgemein anwenden
Sorry, allgemein DynamischerEintrag aus der Statusleiste übernehmen
allgemeine Frage Ein paar allgemeine Fragen
Allgemeine Fragen zu UserForm Breite von Text in Statusleiste ermitteln
Verlaufbalken in Statusleiste oder UserForm Statusleiste
Statusleiste Excelhilfe - Syntax - allgemein
Allgemein gültiges Makro/Skript für Hauptmenü Summe in der Statusleiste
Statusleiste Allgemein gültige Funktionen