|
Option Explicit
Sub MatrixBerechnen()
'Deklarieren der Variabeln
Dim zeilenAnzahl As Integer
Dim spaltenAnzahl As Integer
Dim Matrixgröße As Integer
Dim eingabeZahl As String
'Matrixgröße wird bestimmt
eingabeZahl = InputBox("Wie groß soll die Quadratmatrix werden")
'Eingabenkontrolle
If IsNumeric(eingabeZahl) Then
Matrixgröße = CInt(eingabeZahl)
Else: Exit Sub
End If
'Erstellen der Matrix
For zeilenAnzahl = 1 To Matrixgröße
For spaltenAnzahl = 1 To Matrixgröße
ThisWorkbook.Worksheets(1).Cells(zeilenAnzahl, spaltenAnzahl).Value = zeilenAnzahl * spaltenAnzahl
Next spaltenAnzahl
Next zeilenAnzahl
End Sub
|