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

@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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige