funktion arbeitsmeppenüberghreifend ausführen
26.07.2006 14:41:41
Swen
folgenden code verwende ich
call Workbooks("Funktion.xls").ModulFunktion.Worksheet_suchen
was ich möchte ist das die Funktion aus der Arbeitsmappe Funktion.xls
die heißt "Worksheet_suchen" und sich in dem Modul "ModulFunktion" befindet
ausgeführt wird.
In einer anderen Arbeitsmappe ausgeführt wird. Neme z.B. "Start.xls"
die Funktion sieh wie folgt aus:
Function Worksheet_suchen(strSearch As String) As Boolean
'*** Such Funktion mit der man eine Arbeitmappe nach einem Worksheet durch suchen kann ***'
Dim wrsWorksheet As Worksheet
For Each wrsWorksheet In Worksheets
If wrsWorksheet.Name = strSearch Then
Worksheet_suchen = True
Exit For
Else
Worksheet_suchen = False
End If
Next
End Function
Gruß
Swen