Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.05.2025 11:04:50
Aktualisieren Button mit Piktogramm?
13.05.2025 10:24:22
Formelfehler
13.05.2025 08:10:06
Laufzeitfehler 57121 (Anwendungs- oder objektdefinierter Feh
13.05.2025 07:51:02
Exceldateien schneller öffnen / abspeichern?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalte aus allen Sheets in ein Sheet kopieren

Forumthread: Inhalte aus allen Sheets in ein Sheet kopieren

Inhalte aus allen Sheets in ein Sheet kopieren
05.03.2004 14:16:52
Daniel
Hallo,
ich habe wiedermal ein Problem mit einem Makro.
Die Ausgangsitutation ist folgende:
Ich habe eine Datei, in dieser Datei habe ich eine unbestimmte anzahl an Sheets und ein Sheet mit dem Namen "Summe".
Nun sollen die Inhalte der Sheets untereinander in das das Sheet "Summe" kopiert werden.

Wie kann man das per Makro programmieren?
Vielen Dank für die Hilfe
Gruss
Daniel
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Makro
Tags
#kopieren #makros #sheet
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Inhalte aus allen Sheets in ein Sheet kopieren
05.03.2004 17:06:09
VolkerM
Hallo Daniel
Ich mach das so: 

Sub Zusammenfassen1()
Dim wks As Worksheet
For Each wks In Worksheets
'"Summe" soll als Zieltabelle nicht berücksichtigt werden
If wks.Name <> "Summe" Then
'Beispiel geht davon aus, dass die Tabellen in Zeile
'1 Überschriften haben:
wks.Range("A2:F" & wks.Range("F65536").End(xlUp).Row).Copy _
Destination:=Worksheets("Summe").Range("A" & _
Range("A65536").End(xlUp).Row + 1)
End If
Next wks
End Sub


Gruß Volker
Anzeige
AW: Inhalte aus allen Sheets in ein Sheet kopieren
07.03.2004 22:34:57
Daniel
1000 Dank! Das Forum ist wirklich super! Grosses Lob.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige