Hallo und einen schönen guten Morgen !!
Ich habe ein Prob.Ich möchte Daten in einer For-Nextschleife eingeben und dann abspeichern.
For a = 1 To 36
If a = mannsch Then
For b = 1 To 34
If b = b1 Then
spiel = InputBox _
("Geben Sie den Wert des Spiels ein ")
heims(a, b) = spiel
ActiveCell.Offset(0, 0) = heims(a, b)
End If
Next b
End If
Next a
Wenn ich jetzt unter heims(a, b)= zum Beispiel heims(1, 1), den Wert 50 eingebe und dann abspeicher müßte ich in wieder mit dem Progr. einlesen können.?
For a = 1 To 36
If Range a = mannsch(a) Then
For b = 1 To 34
If b1 = b Then
ActiveCell.Offset(1, 2) = heims(a, b)
End If
Next b
End If
Next a
Am Anfang habe ich die Dimanweißung auf = Static heims(36, 34) As Integer
Ich bekomme den Wert immer nur solange ich das Prog. am laufen habe.Speicher ich es aber ab und möchte den Wert wieder haben ist er 0 warum ist das so?
Ich bitte euch um Hilfe, bin noch nich erfahren genug, wie kann ich das Prob. lösen?
Möchte mich schon mal bei euch für eure Bemühungen betanken!
Mit freundlichem Gruß Volker