Hallo liebes Forum,
ich habe ein Problem in meinem folgenden Code,
Ich weiß nicht wo genau der Fehler liegt aber er zählt Praktisch nur die ersten 6 Tabellen (Siehe Anhang) und dann kommt nichts mehr.
Erklärung:
In Blatt "Startseite" Gibt es einen Button "Aktualisierung". Dieser soll aus den gewählten Tabellenblatt, die Summen der angegebenen Zellen addieren. Auf "Startseite" seht ihr rechts die Zahlen jedoch hört er nach der zweiten Zeile auf und trägt nur noch nullen ein.
Obwohl im Blatt "1.Kompanie" noch andere Daten weiter unten eingetragen sind.
Ich bitte um Hilfe.
ich habe ein Problem in meinem folgenden Code,
Quellcode
- Sub Aktualisieren()
- Dim Bereich As Range
- Dim RowX As Long
- Dim ColX As Integer
- Dim Start As Integer
- RowX = 0
- ColX = 0
- For i = 1 To 29
- For s = 1 To 3
- Set Bereich = Tabelle2.Range(Tabelle2.Cells(3 + RowX, 5 + ColX), Tabelle2.Cells(62 + RowX, 5 + ColX))
- Tabelle1.Cells(i, 18 + s - 1).Value = Application.WorksheetFunction.Sum(Bereich)
- ColX = ColX + 6
- Next
- ColX = 0
- RowX = RowX + 64 * i
- Next
- Tabelle1.Cells(11, 2).Value = Application.WorksheetFunction.Sum(Range("R1:T29"))
- End Sub
Ich weiß nicht wo genau der Fehler liegt aber er zählt Praktisch nur die ersten 6 Tabellen (Siehe Anhang) und dann kommt nichts mehr.
Erklärung:
In Blatt "Startseite" Gibt es einen Button "Aktualisierung". Dieser soll aus den gewählten Tabellenblatt, die Summen der angegebenen Zellen addieren. Auf "Startseite" seht ihr rechts die Zahlen jedoch hört er nach der zweiten Zeile auf und trägt nur noch nullen ein.
Obwohl im Blatt "1.Kompanie" noch andere Daten weiter unten eingetragen sind.
Ich bitte um Hilfe.