Sub eins()

End Sub

Sub quad_gross()
Dim seitenlaenge_grosses_quadrat As Integer
seitenlaenge_grosses_quadrat = ActiveWorkbook.Worksheets("eins").Range("C2").Value
zahl = 1
Range("F6").Select ' wir starten in Zelle F6
For m = 1 To seitenlaenge_grosses_quadrat ' ....für jede Zeile des Quadrats
    '---------------------------  nach rechts laufen
    For i = 1 To seitenlaenge_grosses_quadrat '......laufen wir die Seitenlänge nach rechts ....
        ActiveCell.Value = zahl
        Call blau ' ... und färben die aktuelle zelle blau ein mit einer unterfunktion (über makrorekorder aufgenommen-makrorekorder)
        zahl = zahl + 1
        ActiveCell.Offset(0, 1).Select
    Next i
    '---------------------------  nach links laufen
    For i = 1 To seitenlaenge_grosses_quadrat
        ActiveCell.Offset(0, -1).Select
    Next i
    '--------------------------- 1 nach unten laufen
    ActiveCell.Offset(1, 0).Select
Next m
End Sub

Sub quad_klein()
Dim seitenlaenge_kleines_quadrat As Integer
seitenlaenge_kleines_quadrat = ActiveWorkbook.Worksheets("eins").Range("C3").Value
zahl = 1
Range("F6").Select
For m = 1 To seitenlaenge_kleines_quadrat
    '---------------------------  nach rechts laufen
    For i = 1 To seitenlaenge_kleines_quadrat
        ActiveCell.Value = zahl
        Call gruen
        zahl = zahl + 1
        ActiveCell.Offset(0, 1).Select
    Next i
    '---------------------------  nach links laufen
    For i = 1 To seitenlaenge_kleines_quadrat
        ActiveCell.Offset(0, -1).Select
    Next i
    '--------------------------- 1 nach unten laufen
    ActiveCell.Offset(1, 0).Select
Next m
End Sub

Sub navigieren()

'--------------------------- 3 nach rechts laufen
Range("C4").Select
For i = 1 To 3
    ActiveCell.Offset(0, 1).Select
Next i
read_1 = ActiveCell.Value
'--------------------------- 6 nach unten laufen
For i = 1 To 6
    ActiveCell.Offset(1, 0).Select
Next i
read_2 = ActiveCell.Value
'--------------------------- 3 nach links laufen
For i = 1 To 3
    ActiveCell.Offset(0, -1).Select
Next i
read_3 = ActiveCell.Value

ActiveWorkbook.Worksheets("blatt_N").Range("C16").Value = read_1 & " " & read_2 & " " & read_3

End Sub


Sub blau()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 15773696
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

End Sub

Sub gruen()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub


Sub reset()
    Columns("D:BR").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.ClearContents
    Range("B1").Select
End Sub