Paramterübergabe klappt nicht bei Function
Holger
zum Wochenende habe ich leider noch ein Problem.
In einem Makro rufe ich eine Funktion auf mit Parameter,
leider ist der Parameter aber leer. Die Funktion liefert eine String zurück,
ei String wird auch als Parameter übergeben.
Im speziellen ist PERIODTYPE bei Übergabe leer!
Wo liegt der Fehler? Habe alle Schreibweisen ausprobiert, ohne Erfolg
Public Sub Temp()
Dim objSQL As Object
Dim WS As Worksheet
Dim strtemp1 As String, strtemp2 As String, strtemp3 As String
strtemp1 = GetXXXPeriod(CURPER)
strtemp2 = GetXXXPeriod(DEADDAT)
strtemp3 = GetXXXPeriod(SQLPER)
End Sub
Public Function GetXXXPeriod(byvalPERIODTYPE As String) As String
Dim datToday As Date
Select Case PERIODTYPE
Case "CURPER"
GetXXXPeriod = Format(DateSerial(Year(datToday - 17), Month(datToday - 17), 0), " _
YYYY-MM")
Case "DEADDAT"
GetXXXPeriod = DateSerial(Year(datToday - 17), Month(datToday - 17), 28)
Case "SQLPER"
GetXXXPeriod = Replace(Replace(Replace(Replace( _
Format(DateSerial(Year(datToday - 17), Month(datToday - 17), 0), "(' _
_
MMMYY')"), _
"rz", "ar"), "i", "y"), "k", "c"), "z", "c")
Case Else
MsgBox "Internal Critical Error, File must be closed!", vbCritical
End
End Select
End Function