Anzeige
Archiv - Navigation
1928to1932
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

145 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige