Hallo,
ich weiß nicht, wie ich mein Problem am besten erkläre.
Als erstes mal der bisherige Code:
Privat Sub farben(ByVal zeile1 As Array, zeile2..., ..., zeile10)
Dim ja As Color = Color.Green
Dim nein As Color = Color.Red
Dim zeile, spalte As Integer
zeile = 1
Do Until zeile = 11
spalte = 1
Do Until spalte = 13
If [AKTUELLE ZEILE+SPALTE] = True Then
button[AKTUELLE ZEILE+SPALTE].Color = ja
else
button[AKTUELLE ZEILE+SPALTE].Color = nein
End If
spalte += 1
Loop
zeile +=1
Loop
End Sub
Ich hoffe das Problem ist verständlich. Ich möchte, dass in der If-Abfrage das passende Array (ich schreibs jetzt mal so:smile:
"zeile" & zeile & „(“ & spalte & ")"
abgefragt wird und je nachdem ob ja/nein die Farbe des Buttons
"bZei" & zeile & „Sp“ & spalte
festgelet wird.
Gruß, sagitta1793