Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
392to396
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
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige