Tabellenblatt an Funktion/Sub übergeben
21.03.2017 13:08:36
Michael
selbst nach ewigen Forengesuche, krieg ich mal wieder was nicht gebacken.
Folgendes:
Ich habe mir für eine relativ "komplexe" Aufgabe 2 Makros geschieben (lang in 2 Modulen) und beide funktionieren auch Eigenständig (bisher nur in Extradateien)
Der Ablauf ist wie folgt.
Modul1 Sub1 sortiert und verschiebt Daten in ein Tabellenblat WsEinzel
Innerhalb einer Schleife will ich nun Modul2 Sub2/
Function aufrufen um WsEinzel nochmals zu sortieren.
Jetzt wollte ich einfach das besagte Blatt an Sub2 übergeben aber es läuft einfach nicht.
Sub Sub1()
Dim WsEinzel As Worksheet
Set WsEinzel = Worksheets("Zwischenschritt")
Call Sortieren(ActiveWorkbook.WsEinzel)
End Sub
~f~
---------
~f~
Sub Sortieren(WS1 As Worksheet)
'Sortieren = WS1 brauche ich so etwas vlt?
End Sub
---------
zum aufrufen hab ich jetzt schon alles ausprobiert
Sortieren als
Sub / Function
Aufruf via
- WsEinzel = Sortieren ActiveWorkbook.WsEinzel
- Sortieren ActiveWorkbook.WsEinzel
Vielen Dank für jede Hilfe
VG
Michael