ich möchte gern in dem Tabellenblatt "Auswertung" eine Auflistung von Summen aus mehreren Tabellenblättern haben. Es soll gezählt werden, wenn in den jeweiligen Tabellenblättern in einer Spalte der Tabellenkopf "Kabellänge" vorkommt. Derzeit wird kein Fehler erzeugt, aber es wird auch kein Wert ermittelt.
For i = 2 To Worksheets.Count
Worksheets("Auswertung").Cells(i, 2) = Application.WorksheetFunction.Sum(Worksheets(i).Range(Cells.Find(What:="Kabellänge", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)))
Next
Wo liegt mein Fehler?
Danke im Voraus,
Viele Grüße