bedingte Summe

Bild

Betrifft: bedingte Summe
von: jana
Geschrieben am: 07.07.2015 08:37:26

Guten Tag,
ich habe ein Problem mit meinem Makro. Wenn in der Spalte C Summe steht, sollen die Werte aus Spalte N (aus derselben Zeile) addiert werden. Leider bekomme ich bei meinem Makro eine Fehlermeldung. Kann mir jemand weiter helfen? Vielen Dank im Voraus!

Sub rechnen()
Dim i As Integer
Dim summe As Long
summe = 0
i = 1
For i = 1 To 498
Range("C" & i).Select
If Range("C" & i).Value = "Summe" Then
summe = summe + Range("N" & i).Value
End If
Next i
Range("P1").Value = summe
End Sub


Bild

Betrifft: AW: bedingte Summe
von: Sepp
Geschrieben am: 07.07.2015 08:43:15
Hallo Jana,
wahrscheinlich hast du Text-Werte in N.

Sub rechnen()
  Dim i As Long
  Dim summe As Double
  
  For i = 1 To 498
    If Range("C" & i).Value = "Summe" Then
      If IsNumeric(Range("N" & i).Value) Then summe = summe + Range("N" & i).Value
    End If
  Next
  
  Range("P1").Value = summe
End Sub


Aber warum nicht einfach
 =SUMMEWENN(C1:C498;"Summe";N1:N498)
Gruß Sepp


Bild

Betrifft: AW: bedingte Summe
von: jana
Geschrieben am: 07.07.2015 09:01:39
Hallo Sepp,
danke für deine Antwort. Bei dem Makro bekomm ich ein Laufzeitfehler '6': Überlauf. Sehe den Fehler nicht:(
Aber danke! Mit deinem Tipp klappt es auch!
Viele Grüße
Jana

Bild

Betrifft: AW: bedingte Summe
von: UweD
Geschrieben am: 07.07.2015 08:54:24
Hallo
sehe keinen Fehler. Ich würde aber noch auf das richtige Blatt referenzieren
Wie lautet denn deine Meldung?
Tip:
i=1 kann weg
Range("C" & i).Select ist auch nicht notwendig


Sub rechnen()
    Dim i As Integer
    Dim summe As Long
    With Sheets("Tabelle1")
        For i = 1 To 498
            If .Range("C" & i).Value = "Summe" Then
                summe = summe + .Range("N" & i).Value
            End If
        Next i
        Range("P1").Value = summe
    End With
End Sub

Gruß UweD

Bild

Betrifft: AW: bedingte Summe
von: jana
Geschrieben am: 07.07.2015 09:15:00
Hallo Uwe, bekomm die Meldung Laufzeitfehler'6':Überlauf. Es klappt leider immer noch nicht. Danke für deine Hilfe!
Viele Grüße
Jana

 Bild

Beiträge aus den Excel-Beispielen zum Thema "bedingte Summe"