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

@Wenderhold

Forumthread: @Wenderhold

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

Betreff
Benutzer
Anzeige
AW: @Wenderhold
16.02.2010 09:15:53
Reinhard
Hallo Frédéric,
meinst du diesen Code:
Habe den Code wie folgt für mich abgeändert. Aber er funktioniert nicht. 

Sub Summe_auslesen()
Dim i As Integer
Dim Summe As Double
Summe = 0
For i = 7 To Sheets.Count       ' erst ab dem 7. Blatt summieren
Summe = Summe + Sheets(i).Cells(x, 8).Value
Next i
Sheets(2).Cells(8, 8).Value = Summe     ' im 2. Blatt auf H8 eintragen
End Sub

Diese Zeile erscheint Gelb hinterlegt.
Summe = Summe + Sheets(i).Cells(x, 8).Value
Entweder x ist unbelegt bzw. 0 oder Text in Zelle.
Gruß
Reinhard
Anzeige
AW: @Wenderhold
16.02.2010 09:24:33
F.
Hallo Reinhard
Ich war der Ansicht, dass "x" leer/egal/alle bedeutet. Es sollte alle Zeilen der Spalte H zusammenzählen.
Hier liegt wohl auch der Fehler.
Gruss
Frédéric
Summe über mehrere Blätter
16.02.2010 10:09:43
Reinhard
Hallo Frédéric ,
so: 
Sub Summe_auslesen()
Dim i As Integer, Summe As Double
For i = 7 To Sheets.Count       ' erst ab dem 7. Blatt summieren
Summe = Summe + Application.Sum(Sheets(i).Columns(8))
Next i
Sheets(2).Cells(8, 8).Value = Summe     ' im 2. Blatt auf H8 eintragen
End Sub

oder so: 

Sub Summe_auslesen2()
Sheets(2).Cells(1, 9).Formula = "=SUM(Tabelle7:Tabelle" & Sheets.Count & "!H:H)"
End Sub

Gruß
Reinhard
Anzeige
AW: Summe über mehrere Blätter
16.02.2010 10:20:07
F.
Hallo Reinhard
Super, vielen Dank!
Gruss
Frédéric
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige