Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Summe aus Spalte, wenn Spalte = Kabellänge

Summe aus Spalte, wenn Spalte = Kabellänge
17.12.2019 11:25:21
Georg
Hallo zusammen,
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
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summe aus Spalte, wenn Spalte = Kabellänge
17.12.2019 11:30:31
Hajo_Zi
ich hätte Summenprodukt benutzt.
Worksheets("Auswertung").Cells(i, 2) =Worksheets("Auswertung").Cells(i, 2) + ...

AW: Summe aus Spalte, wenn Spalte = Kabellänge
17.12.2019 13:51:32
Georg
Hi,
und danke für deine Antwort. Das Problem bei den Tabellen ist, dass ich das zugearbeitet bekomme und daher nicht zu 100% sicher sein kann, dass die Spalte "Kabellänge" immer an der gleiche Stelle ist.
Das schließt m.E. Summenprodukt aus, oder?
VG
Anzeige
AW: Summe aus Spalte, wenn Spalte = Kabellänge
17.12.2019 14:09:59
Werner
Hallo Georg,
dann zeig doch mal eine Beispielmappe in der du aufzeigst was du willst.
Gruß Werner
AW: Summe aus Spalte, wenn Spalte = Kabellänge
17.12.2019 14:27:06
peterk
Hallo
Meinst Du so:
Option Explicit

Sub Test()
    Dim i As Long
    Dim myWs As Worksheet
    Dim myRng As Range

    For i = 2 To Worksheets.Count
        Set myRng = Worksheets(i).Rows(1).Find(what:="Kabellänge", LookIn:=xlValues, SearchOrder:=xlByColumns, LookAt:=xlPart, SearchDirection:=xlNext, MatchCase:=False)
        If Not myRng Is Nothing Then
            Worksheets("Auswertung").Cells(i, 2) = Application.WorksheetFunction.Sum(Worksheets(i).Columns(myRng.Column))
        End If
    Next
End Sub

Anzeige
AW: Summe aus Spalte, wenn Spalte = Kabellänge
17.12.2019 15:00:20
Georg
Hi,
super, deine Antwort klappt. Danke dir!
das ".Rows(1)." habe ich entfernt, da selbst die Zeile variieren kann.
Funktioniert auch!
VG
AW: Summe aus Spalte, wenn Spalte = Kabellänge
17.12.2019 11:30:50
peterk
Hallo
LookIn:=xlFormulas sucht in Formeln ! Nimm xlValues
AW: Summe aus Spalte, wenn Spalte = Kabellänge
17.12.2019 13:52:39
Georg
Hi,
und danke für deine Antwort.
Das Ändern von Formeln auf Werte macht leider keinen Unterschied.
Es spuckt immer noch kein Ergebnis aus.
VG
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige