Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1432to1436
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

bedingte Summe

bedingte Summe
07.07.2015 08:37:26
jana
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bedingte Summe
07.07.2015 08:43:15
Sepp
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

Anzeige
AW: bedingte Summe
07.07.2015 09:01:39
jana
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

AW: bedingte Summe
07.07.2015 08:54:24
UweD
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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige