Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
744to748
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
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblattname und jew. Summe kopieren

Tabellenblattname und jew. Summe kopieren
20.03.2006 23:49:01
Peter
Hallo zusammen,
es wäre super, wenn mir jmd. bei folgendem Problem helfen könnte:
Wie kann ich die Summen aus mehreren Tabellenblättern (sie stehen in der letzten Zeile, Spalte B der jew. Tabelle) in ein anderes Tabellenblatt (Deckblatt) in Spalte B untereinander kopieren?
In Spalte A soll der jeweilige Name des Tabellenblattes stehen.
Bin für jede Antwort dankbar
gruss
Peter

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblattname und jew. Summe kopieren
21.03.2006 00:05:59
Herbert
Hi,
was soll kopiert werden, die Formel, der Wert, einschließlich Format, oder....?
mfg Herbert
AW: Tabellenblattname und jew. Summe kopieren
21.03.2006 00:06:06
Gert
Hi Peter,
in Spalte A1 bis A12 schreibst Du die Monatsnamen Januar bis Dezember.
In B1 Schreibst Du =
Klickst das Blatt "Januar" an, markierst die "SummenZelle" und "Enter" drücken.
In B1 steht nun =Januar!B1 und der Wert der "SummenZelle".
Alle anderen Zellen entsprechend modifizieren.
mfg
Gert
AW: Tabellenblattname und jew. Summe kopieren
21.03.2006 00:08:21
Ramses
Hallo
probier mal
Option Explicit

Sub Summarize_Sum()
    Dim i As Integer
    Dim tarSheet As Worksheet
    Set tarSheet = Worksheets("Deckblatt")
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name <> tarSheet.Name Then
            With Worksheets(i)
                tarSheet.Cells(tarSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = .Cells(.Cells(Rows.Count, 2).End(xlUp).Row, 2).Value
                tarSheet.Cells(tarSheet.Cells(Rows.Count, 2).End(xlUp).Row, 1) = .Name
            End With
        End If
    Next i
End Sub


Gruss Rainer
Anzeige
AW: Tabellenblattname und jew. Summe kopieren
22.03.2006 00:05:11
Peter
Hallo Herbert, Gerd, Rainer,
vielen herzlichen Dank für eure schnellen Antworten.
Im Grunde genommen war es egal, ob Formeln oder Werte kopiert werden sollten.
Beides wäre gut gewesen.
Eine Verlinkung war deshalb nicht möglich, da die Tabellenbätter vorher(täglich) neu erstellt werden.
Das Makro von dir, Rainer, ist oberaffengeil!
Genau so sollte es sein. Suuuper!
Tausend Dank nochmal
gruss
Peter

110 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige