Hallo Gabi und Gast69493,
warum macht ihr es einem Anfänger so kompliziert? Sebo will doch nur eine symmetriesche Matrix mit einer Nulldiagonalen füllen.
Hallo Sebo,
hier eine kurze, leicht nachvollziehbare Lösung. Es werden in meinem Beispiel Ziffern von 0 bis 9 in die Felder außerhalb der Diagonalen eingefügt.
Sub ....
Zahl = InputBox("Bitte eine Zahl: ")
Randomize
For a = 1 To Zahl
Cells(a, a) = 0
For b = a + 1 To Zahl
Cells(a, b) = Int(10 * Rnd()) 'auch andere Bedingungen für deine Zahlen möglich
Cells(b, a) = Cells(a, b)
Next b
Next a
End sub
Gruß
Holger
|