Poffelnator schrieb am 17.January.2009, 12:05:14 in der Kategorie pc.coding
Public Sub MainFunktion()
Dim i() As k_zahl
ReDim i(1 To 9, 1 To 9)
Set i(1 to 9 , 1 to 9) = New k_zahl
i(6, 5).schreibe_wert (3)
i(6, 5).schreibe_flag (1)
Debug.Print i(6, 5).lese_wert()
Debug.Print i(6, 5).lese_flag()
End Sub
Ich bekomme leider nicht die Syntax hin, hoffe ihr könnt mir helfen. Habe leider im Netz und in meinem tollen VBA Buch nichts dazu gefunden.
Danke schon im Vorraus.