Übergabe einer Konstante
12.10.2004 17:09:00
lars
ich möchte eine konstante an eine funktion übergeben. diese konstante soll einen worksheet-namen bezeichnen. anschließend soll das angegebene worksheet in der funktion aktiviert werden.
vielen dank!
fehlerhafter code:
Sub test()
Const name = "versuch"
Dim i As Double
Worksheets("START").Cells(1, 1) = funkt(name)
End Sub
Public
Function funkt(ByVal cha As String) As Double
funkt = Worksheets(cha).Cells(1, 1)
End Function
Anzeige