Moin, ich möchte eine untersub erstellen auf die in der Mainsub zugegrffen werden soll.
Ihrendwas scheine ich aber bezüglich des Parameters für das Worksheet falsch zu machen.
Sobald die methode über F8 aufgerufen werden soll kommt ein unverträglichkeitsfehler.
Sub Sortieren(Blatt As Worksheets, Tabellenname As String, Sortierbereich As String)
Blatt.Select
Range(Tabellenname).Sort _
Key1:=Range(Sortierbereich), _
Order1:=xlAscending, _
Header:=xlYes
End Sub
Sub Main()
Dim Blatt As Worksheet
Set Blatt = Worksheets("Blatt")
Sortieren Blatt, "Tabelle1", "A1"
End Sub
|