allg. Makro
25.11.2016 15:36:48
Michael
Hi,
das geht z.B. so:
Option Explicit
Sub sortieren(Blatt As String, Bereich As String, sKey As String, Ueberschrift As Boolean)
If Not Intersect(Range(Bereich), Range(sKey)) Is Nothing Then
With Sheets(Blatt)
If Ueberschrift Then
.Range(Bereich).Sort key1:=.Range(sKey), order1:=xlAscending, Header:=xlGuess
Else
.Range(Bereich).Sort key1:=.Range(sKey), order1:=xlAscending, Header:=xlNo
End If
End With
Else
MsgBox "Schlüssel nicht in Sortierbereich enthalten."
End If
End Sub
Sub aufruf()
Dim tabName As String
' z.B.
' tabName = ActiveSheet.Name
' oder
tabName = "Tabelle1"
Call sortieren(tabName, "H3:H20", "H3", True)
End Sub
Der Code gehört in ein "allgemeines Modul" (in VBA: Einfügen/Modul) - so eines wird auch automatisch erzeugt, wenn man den Makrorekorder anwirft, das heißt dann Modul1 usw.
Schöne Grüße,
Michael