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?
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