Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
504to508
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte in Sheets addieren per Makro ???

Werte in Sheets addieren per Makro ?
27.10.2004 08:54:40
ralle
Guten Morgen zusammen!
Habe folgendes Problem das ich mit Eurer Hilfe zu lösen versuche:
Habe mehrer Tabellenblätter (die Anzahl kann variieren). Es sollen per Makro alle Werte in der Tabellenblätter in der Zelle D28 addiert werden und in einem neuen Tabellenblatt welches hinter dem letzten Tabellenblatt eingefügt wird ausgegeben werden.
Wie mache ich soetwas ?
Gruß
ralle

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in Sheets addieren per Makro ?
Worti
Hallo ralle,
so geht's: (Summe steht im neuen Blatt wieder in D28)


Sub Addiere()
    Dim Summe As Double
    Dim ws As Worksheet
    
    Summe = 0
    
    For Each ws In ActiveWorkbook.Worksheets
        Summe = Summe + ws.Cells(28, 4).Value
    Next ws
    
    Worksheets.Add.Move After:=Worksheets(Worksheets.Count)
    ActiveSheet.Cells(28, 4).Value = Summe
    
End Sub
Anzeige
AW: Werte in Sheets addieren per Makro ?
27.10.2004 09:49:39
ralle
Hallo Worti,
Dake für deine schnelle Antwort, das klappt schon wunderbar. Habe aber noch eine Kleinigkeit vergessen. Die Summierung solle erst ab dem 3 Tabellenblat beginnen.
Was muss ich bei dem Makro ändern ?
Gruß
Ralle
AW: Werte in Sheets addieren per Makro ?
Worti
Hallo ralle,
dann so:


Sub AddiereNo2()

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige