Hallo Leute,
Meine bereits schon sehr schlechten Programmierkenntnisse sind ein bisschen eingerostet.
Folgendes Problem:
Ich brauche eine Matrix deren Größe sich durch die Eingabe einer Zahl bestimmt. (minimal 3x3 Matrix - maximal 9x9 Matrix)
Diese soll in der Diagonalen nur aus Nullern bestehen. Oberhalb und unterhalb der Diagonalen aus Nullern sollten möglichst die gleichen Zahlen stehen.
z.B.
0 5 2 1
5 0 4 3
2 4 0 7
1 3 7 0
Das einzige, dass ich geschafft habe ist die Diagonale der Nuller:
Dim a, b As Integer
zahl = InputBox("Bitte eine Zahl: ")
For a = 0 To zahl - 1
For b = 1 To 3
Cells(1 + a, 1 + a) = 0
Next b
Next a
Danke schon mal im Vorraus und vielleicht kann mir ja jemand helfen :)
Grüße
|