Moin!
Ich habe folgenden Code:
'abschließend wird das Tabellenblatt Daten (aggregiert) erstellt
'alle Daten löschen
Tabelle17.Cells.ClearContents
letztereihe = Tabelle4.Range("A2").End(xlDown).Row
'Anzahl Versuchswerte kopieren
Tabelle17.Range("A1").Value = "Versuchswerte"
Tabelle4.Range("A2:A" & letztereihe).Copy Destination:=Tabelle17.Range("A2")
'Daten aggregieren
'Gesamtkonzern
Set Range = Tabelle1.Range("C2:C" & Tabelle1.Range("B500").End(xlUp).Row)
For Each zelle In Range
If zelle.Value = "x" Then
strGesuchteGesellschaft = zelle.Offset(0, -1).Value
letztespalte = Tabelle17.Range("AZ1").End(xlToLeft).Column
letztespalte = letztespalte + 1
Set rGesuchteGesellschaft = Tabelle4.Range("A1:AZ100").Find(strGesuchteGesellschaft, LookIn:=xlValues)
Tabelle4.Range(rGesuchteGesellschaft, rGesuchteGesellschaft.End(xlDown)).Copy Destination:=Tabelle17.Cells(1, letztespalte)
End If
Next
letztespalte = Tabelle17.Range("AZ1").End(xlToLeft).Column
letztespalte = letztespalte + 1
Tabelle17.Cells(1, letztespalte) = "AGGREGIERT Gesamtkonzern xyz"
letztereihe2 = Tabelle17.Range("A1").End(xlDown).Row
For i = 2 To letztereihe2
Tabelle17.Cells(i, letztespalte).Value = Application.WorksheetFunction.Sum(Range(Cells(i, 2), Cells(i, letztespalte)))
Next i
Ich habe von Spalte B bis Spalte Z in 50.000 Zeilen Werte stehen, welche in AA summiert werden sollen. In Excel selbst kann ich das nicht lösen, da auch gerne mal mehr oder weniger Spalten dort sein können.
Mit der Formel Application.Worksheetfunction... erhalte ich einen Anwendungs- oder objektdefinierten Fehler.
Woran liegt das? Ich verstehe es einfach nicht. :/
VG, Tobias