Datenfeld erwartet bei If-Then mit Array
16.04.2023 15:40:14
Florian
Hi Leute,
ich erhalte einen Fehler "Datenfeld erwartet" in dieser Zeile.
If strWirtschaftsjahr = CStr(p_cstrBeginnWirtschaftsjahr(0)) Then
Das ist mein gesamter Code. Die Variable strWirtschaftsjahr wird über den Aufruf von StammdatenLesen als String übergeben, daran liegt es also nicht.
Public p_aryWirtschaftsjahre() As Variant
Sub WirtschaftsjahreInArray()
p_aryWirtschaftsjahre() = Array( _
"2020", _
"2021" _
)
End Sub
Sub StammdatenLesen(strWirtschaftsjahr As String)
'Systemvariablen
strDatenpfad = tblStammdaten.Range(p_cstrDatenpfad).Value
strProgrammpfad = tblStammdaten.Range(p_cstrProgrammpfad).Value
strExportPfad = ThisWorkbook.Path & "\Daten"
If strWirtschaftsjahr = CStr(p_cstrBeginnWirtschaftsjahr(0)) Then
strWJBeginn = Format(tblStammdaten.Range(p_cstrBeginnWirtschaftsjahrVorjahr).Value, "yyyymmdd")
Else
strWJBeginn = Format(tblStammdaten.Range(p_cstrBeginnWirtschaftsjahr).Value, "yyyymmdd")
End If
End Sub
Kann jemand helfen? :)
Danke euch!!
Flo