Private Sub CommandButton1_Click()
Dim i As Long, j As Long, k As Long, n As Long
Dim staebe As Variant, knoten As Variant
With Sheets("Matrix")
' Alte Werte entfernen
For n = 1 To 11
For j = 13 To 40
.Cells(j, n).ClearContents
Next
Next
'Nullspalten entfernen
j = 1
staebe = .Range("B12")
If staebe <> 0 Then
n = 1
staebe = .Range("B1:B11")
For i = 13 To 23
.Cells(i, j + 1) = staebe(n, 1)
n = n + 1
Next
j = j + 1
End If
staebe = .Range("C12")
If staebe <> 0 Then
n = 1
staebe = .Range("C1:C11")
For i = 13 To 23
.Cells(i, j + 1) = staebe(n, 1)
n = n + 1
Next
j = j + 1
End If
staebe = .Range("D12")
If staebe <> 0 Then
n = 1
staebe = .Range("D1:D11")
For i = 13 To 23
.Cells(i, j + 1) = staebe(n, 1)
n = n + 1
Next
j = j + 1
End If
staebe = .Range("E12")
If staebe <> 0 Then
n = 1
staebe = .Range("E1:E11")
For i = 13 To 23
.Cells(i, j + 1) = staebe(n, 1)
n = n + 1
Next
j = j + 1
End If
staebe = .Range("F12")
If staebe <> 0 Then
n = 1
staebe = .Range("F1:F11")
For i = 13 To 23
.Cells(i, j + 1) = staebe(n, 1)
n = n + 1
Next
j = j + 1
End If
staebe = .Range("G12")
If staebe <> 0 Then
n = 1
staebe = .Range("G1:G11")
For i = 13 To 23
.Cells(i, j + 1) = staebe(n, 1)
n = n + 1
Next
j = j + 1
End If
staebe = .Range("H12")
If staebe <> 0 Then
n = 1
staebe = .Range("H1:H11")
For i = 13 To 23
.Cells(i, j + 1) = staebe(n, 1)
n = n + 1
Next
j = j + 1
End If
staebe = .Range("I12")
If staebe <> 0 Then
n = 1
staebe = .Range("I1:I11")
For i = 13 To 23
.Cells(i, j + 1) = staebe(n, 1)
n = n + 1
Next
j = j + 1
End If
staebe = .Range("J12")
If staebe <> 0 Then
n = 1
staebe = .Range("J1:J11")
For i = 13 To 23
.Cells(i, j + 1) = staebe(n, 1)
n = n + 1
Next
j = j + 1
End If
staebe = .Range("K12")
If staebe <> 0 Then
n = 1
staebe = .Range("K1:K11")
For i = 13 To 23
.Cells(i, j + 1) = staebe(n, 1)
n = n + 1
Next
j = j + 1
End If
'Nullzeilen entfernen
.Range("A13") = j
k = 25
knoten = .Range("L14")
If knoten <> 0 Then
n = 1
knoten = .Range("B14:K14")
For i = 2 To 11
.Cells(k, i) = knoten(1, n)
n = n + 1
Next
k = k + 1
End If
knoten = .Range("L15")
If knoten <> 0 Then
n = 1
knoten = .Range("B15:K15")
For i = 2 To 11
.Cells(k, i) = knoten(1, n)
n = n + 1
Next
k = k + 1
End If
knoten = .Range("L16")
If knoten <> 0 Then
n = 1
knoten = .Range("B16:K16")
For i = 2 To 11
.Cells(k, i) = knoten(1, n)
n = n + 1
Next
k = k + 1
End If
knoten = .Range("L17")
If knoten <> 0 Then
n = 1
knoten = .Range("B17:K17")
For i = 2 To 11
.Cells(k, i) = knoten(1, n)
n = n + 1
Next
k = k + 1
End If
knoten = .Range("L18")
If knoten <> 0 Then
n = 1
knoten = .Range("B18:K18")
For i = 2 To 11
.Cells(k, i) = knoten(1, n)
n = n + 1
Next
k = k + 1
End If
knoten = .Range("L19")
If knoten <> 0 Then
n = 1
knoten = .Range("B19:K19")
For i = 2 To 11
.Cells(k, i) = knoten(1, n)
n = n + 1
Next
k = k + 1
End If
knoten = .Range("L20")
If knoten <> 0 Then
n = 1
knoten = .Range("B20:K20")
For i = 2 To 11
.Cells(k, i) = knoten(1, n)
n = n + 1
Next
k = k + 1
End If
knoten = .Range("L21")
If knoten <> 0 Then
n = 1
knoten = .Range("B21:K21")
For i = 2 To 11
.Cells(k, i) = knoten(1, n)
n = n + 1
Next
k = k + 1
End If
knoten = .Range("L22")
If knoten <> 0 Then
n = 1
knoten = .Range("B22:K22")
For i = 2 To 11
.Cells(k, i) = knoten(1, n)
n = n + 1
Next
k = k + 1
End If
knoten = .Range("L23")
If knoten <> 0 Then
n = 1
knoten = .Range("B23:K23")
For i = 2 To 11
.Cells(k, i) = knoten(1, n)
n = n + 1
Next
k = k + 1
End If
.Range("A14") = k
End With
End Sub
