Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA, sum statt count

Forumthread: VBA, sum statt count

VBA, sum statt count
30.04.2023 21:44:00
Fred


Hallo Excel Experten,
nun wird es wohl wieder etwas peinlich,- einer meiner Aussetzer :-(
Im unteren Makro werden u.a. die Werte gezählt, welche über 2,7 liegen.
Ich will das Makro aber nun dahin ändern, das nicht gezählt (count) sondern entsprechende Zellinhalte summiert (sum) werden.

Sub summeAusfaelle()
    Dim Listen_10Sheet As Worksheet
    Dim Import_5Sheet As Worksheet
    Dim Listen_10Range As Range
    Dim Import_5Range As Range
    Dim Listen_10Cell As Range
    Dim Import_5Cell As Range
    Dim count As Integer
    Dim count2 As Integer
    
    Set Listen_10Sheet = ThisWorkbook.Worksheets("Listen_10")
    Set Import_5Sheet = ThisWorkbook.Worksheets("Import_5")
    Set Listen_10Range = Listen_10Sheet.Range("A:A").SpecialCells(xlCellTypeConstants)
    Set Import_5Range = Import_5Sheet.Range("L:L").SpecialCells(xlCellTypeConstants)
    
    For Each Listen_10Cell In Listen_10Range
        count = 0
        count2 = 0
        For Each Import_5Cell In Import_5Range
            If Import_5Cell = Listen_10Cell Or Import_5Cell.Offset(0, 1) = Listen_10Cell Then
                count = count + 1
                If Import_5Cell.Offset(0, 65) > 2.7 Then count2 = count2 + 1
            End If
            If count = 20 Then Listen_10Cell.Offset(0, 30).Value = count2: Exit For
        Next Import_5Cell
    Next Listen_10Cell
End Sub

Bitte um Hilfe (bin heute echt schlecht drauf)

Gruss
Fred

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA, sum statt count
30.04.2023 22:00:46
GerdL
Hallo Fred,

die Ermittlung;
Dim dblSumme As Double
If Import_5Cell.Offset(0, 65) > 2.7 Then dblSumme = dblSumme + count2 + Import_5Cell.Offset(0, 65)

Was du nach der Schleife behalten willst, ist eine andere Frage.

Gruß Gerd


AW: VBA, sum statt count
30.04.2023 22:24:21
Fred
Hallo GerdL,
ich möchte eigentlich nur "Import_5Cell.Offset(0, 65)" summieren.
"If Import_5Cell.Offset(0, 65) > 0" ist auch überflüssig.

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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