Hallo allerseits,
ich suche erneut nach weisem Rat, ich hatte nun schon eine Weile im Internet gesucht, wurde aber leider nicht so richtig fündig oder habe die Lösungen nicht verstanden.
Mein Problem ist, dass ich ein Klassenmodul mit Variants initialisiere und diese dann über Methoden als Subs gerne füllen würde.
Bisher hatte ich hier, mit Variablen keine Probleme, nun bekomme ich aber die Fehlermeldung:
"objektvariable oder with-blockvariable nicht festgelegt", am With-Blockvariable hängt es nicht.
Die Klasse sieht bisher wie folgt aus und wird global initialisiert:
'Liste Tpyen
Dim Typ(8) As Variant
'Matrix über die Nahkampfwaffentypen, aufgeteilt auf 1-Hand und 2-Hand
Dim Nah1H(8, 4) As Variant
Dim Nah2H(8, 6) As Variant
'Matrix Schwierigkeit für Herstellung
Dim SchwH(10, 8) As Variant
'Matrix Zeit der Produktion
Dim ZeitP(10, 8) As Variant
'Matrix Kosten der Produktion
Dim KostenP(10, 8) As Variant
'Matrix Für 2H, Kritt TW +/-, Schwierigkeitsveränderung
Dim KrittTWZusatz(10, 8) As Variant
'Matrix Schw. Ä 2H, Kritt TW, Für 1H, Dmg Add, Schwierigkeitsänderung
Dim DmgAddZusatz(10, 8) As Variant
'Einlesen des ersten Arrays - Test
Public Sub Einlesen()
Dim i As Long
Dim j As Long
Dim TypN As String
For i = 0 To 7
MsgBox (Abgriff("F" & i))
Next
End Sub
Mein Sub um die Methode der Klasse zu starten:
Sub Einlesen()
NahkW.Einlesen
End Sub