Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Typen unverträglich
Autor: JoeDalton
Datum: 17.04.02 12:22
Hallo, ich habe ein Problem, ich möchte mit einem dreidimensionales Array aus einer anderen Funktion Arbeiten. Leider bekomme ich ein Typen unverträglich. Kann mir kemand vielleicht helfen? Private Sub Form_Load() Dim Termine(0 To 10, 0 To 1) As Variant Termine(0, 0) = CDate("2002/1/2") Termine(0, 1) = "Sascha" 'Format(Termine(0, 0), "d") & " Sascha!" Termine(1, 0) = CDate("2002/1/4") Termine(1, 1) = "Rouven" 'Format(Termine(1, 0), "d") & " Groovy!" Termine(2, 0) = CDate("2002/1/6") Termine(2, 1) = "Bernd" 'Format(Termine(2, 0), "d") & " Bernd!" Termine(3, 0) = CDate("2002/1/8") Termine(3, 1) = "Maik" 'Format(Termine(3, 0), "d") & " Matze!" UserControl11.GetKalender.fillField Termine() End Sub Hier soll das Array, gefüllt mit Terminen, an ein Benutzerdefiniertes Steuerelement übergeben werden. Public Sub fillField(varTermin As Variant) mvarTermin = varTermin End Sub Es wird an diese Funktion übergeben, und einfach in eine globale Variable geschrieben. For intTermin_x = 0 To 1 'UBound(mvarTermin, 0) ' Hier tritt der Fehler auf! If startdatum + intIndex = 1 Then 'mvarTermin(intTermin_x, 0) Then ' Hier tritt der Fehler auch auf! DateField(intIndex).Text = Format(startdatum + intIndex, "d") & mvarTermin(intTermin_x, 1) End If Next intTermin_x Hier sollen die Daten die überfprüft werden und unter Umständen (wenn der Termin im aktuellen Monat ist) in das Steuerelement (ein kalender) eingetragen werden. Es ist wirklich dringend und ich bin für jede Hilfe dankbar! Joe

Typen unverträglich	81	JoeDalton	17.04.02 12:22
Re: Typen unverträglich	52	--XT--	17.04.02 15:05
Re: Typen unverträglich	54	JoeDalton	18.04.02 13:45
Re: Typen unverträglich	51	--XT--	18.04.02 14:38

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen