Hallo,
ich verzweifele bei der übergabe von 2 Arrays an eine Function. Beim Aufruf erwartet der Comkiler ein "=" ???
Was mache ich falsch?
Danke
Dim NZT_BasicDaten(1 To 10) As String
Dim NZT_BasicDatenE(1 To 10) As String
AktualisiereDatenSelektieren(NZT_BasicDaten(), NZT_BasicDatenE())
Function AktualisiereDatenSelektieren(DatenArray() As String, DatenArrayE() As String)
DatenSelektieren.CheckBoxRohdaten1.Caption = DatenArray(1) ' An bearbeitungsfenster übergeben
DatenSelektieren.CheckBoxRohdatenE1.Caption = DatenArrayE(1)
DatenSelektieren.OptionButtonRohdaten1.Caption = DatenArray(1) ' An bearbeitungsfenster übergeben
DatenSelektieren.OptionButtonRohdatenE1.Caption = DatenArrayE(1)
DatenSelektieren.OptionButtonRohdaten2.Caption = DatenArray(2)
DatenSelektieren.OptionButtonRohdatenE2.Caption = DatenArrayE(2)
DatenSelektieren.OptionButtonRohdaten3.Caption = DatenArray(3)
DatenSelektieren.OptionButtonRohdatenE3.Caption = DatenArrayE(3)
DatenSelektieren.OptionButtonRohdaten4.Caption = DatenArray(4)
DatenSelektieren.OptionButtonRohdatenE4.Caption = DatenArrayE(4)
DatenSelektieren.OptionButtonRohdaten5.Caption = DatenArray(5)
DatenSelektieren.OptionButtonRohdatenE5.Caption = DatenArrayE(5)
DatenSelektieren.OptionButtonRohdaten6.Caption = DatenArray(6)
DatenSelektieren.OptionButtonRohdatenE6.Caption = DatenArrayE(6)
DatenSelektieren.OptionButtonRohdaten7.Caption = DatenArray(7)
DatenSelektieren.OptionButtonRohdatenE7.Caption = DatenArrayE(7)
DatenSelektieren.OptionButtonRohdaten8.Caption = DatenArray(8)
DatenSelektieren.OptionButtonRohdatenE8.Caption = DatenArrayE(8)
DatenSelektieren.OptionButtonRohdaten9.Caption = DatenArray(9)
DatenSelektieren.OptionButtonRohdatenE9.Caption = DatenArrayE(9)
DatenSelektieren.OptionButtonRohdaten10.Caption = DatenArray(10)
DatenSelektieren.OptionButtonRohdatenE10.Caption = DatenArrayE(10)
End Function
|