Sortierfunktion in Modul auslagern VBA
15.12.2006 15:47:32
Jens
beim Verlassen eines Tabellenblattes wird ja die Ereignisfunktion "Worksheet_Deactivate" des plattes aufgerufen. Zur Zeit steht da eine Sortierfunktion drin, die auch funktioniert:
' Tabelle sortieren
Range("E12:J250").Sort Key1:=Range("E12"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Nun möchte ich die Funktion aber in ein Modul auslagern nach dem Motto
Sub SortiereTabMitarbeiter(ByVal oRng As Worksheet)
' Tabelle sortieren
Range("E12:J250").Sort ...
End Sub
Und in dem Tabellenblatt soll dann nur noch der Aufruf drin sein:
Private Sub Worksheet_Deactivate()
' Tabellenblatt sortieren
' Call SortiereTabMitarbeiter(Me)
End Sub
Aber ich muss dem Modul natürlich einen Parameterübergeben, damit er weiß um welches Tabelenblatt es sich handelt. Wie baue ich diese Parameterübergabe ein?
OK ist zwar eine "primitive Frage" aber ich bin erst am Anfang ...
Gruß - Jens