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

Inhalt aller Arbeitsblätter kopieren

Inhalt aller Arbeitsblätter kopieren
22.02.2006 10:54:14
daniele
Hallo!
Ich habe in einer Arbeitsmappe mehrere Arbeitsblätter welche tabellen enthalten die alle das gleiche Layout haben. Nun möchte ich per Makro den Inhalt aller Arbeitsblätter direkt unter die Tabelle im ersten Tabellenblatt kopoieren, so dass eine gesamttabelle entsteht....
Wäre toll wenn mir da jemand weiterhelfen kann. ich würde es selbst hinbekommen wenn die Arbeitsblätter immer den gleichen Namen hätten, doch das ist nicht der fall, sie variieren, sprich sie müssen dynamisch angesprochen werden und soweit bin ich mit VBA leider noch nicht.
Viele Grüße und danke schonmal,
Daniele

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

Betreff
Datum
Anwender
Anzeige
AW: Inhalt aller Arbeitsblätter kopieren
22.02.2006 11:17:13
Heiko
Hallo Daniel,
habe das hier gestern für Herbi gemacht, sollte auch bei dir helfen:

Sub DatenInBlattEins()
Dim wksSheets As Worksheet
Dim strTarget As String
Dim lngI As Long, lngTargetLastRow As Long
' *** Hier den Namen des Blattes angeben IN das kopiert werden soll !!!!
strTarget = "Tabelle1"
Application.ScreenUpdating = False
For Each wksSheets In ActiveWorkbook.Worksheets
If wksSheets.Name <> strTarget Then
For lngI = 1 To wksSheets.Cells(Rows.Count, 1).End(xlUp).Row
wksSheets.Cells(lngI, 1).EntireRow.Copy
lngTargetLastRow = Sheets(strTarget).Cells(Rows.Count, 1).End(xlUp).Row
Sheets(strTarget).Cells(lngTargetLastRow + 1, 1).Activate
ActiveSheet.Paste
Next lngI
End If
Next wksSheets
Application.ScreenUpdating = False
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett
Anzeige
AW: Inhalt aller Arbeitsblätter kopieren
22.02.2006 15:20:22
Daniele
Vielen Dank!
Genau das was ich gesucht habe!
Viele Grüße Daniele

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige