Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopieren von Tabellenblättern

Forumthread: kopieren von Tabellenblättern

kopieren von Tabellenblättern
22.06.2005 16:19:04
Tabellenblättern
Habe folgendes Problem:
Ich will aus einer Datei mit ca.100 Tabellenblättern den Inhalt jedes Tabellenblattes (unterschiedlich viele Zeilen)in ein neues Tabellenblatt der gleichen Datei untereinander kopieren (nur Werte).
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: kopieren von Tabellenblättern
22.06.2005 16:26:34
Tabellenblättern
Hallo,
Begrüßung nächstes mal wäre nicht schlecht!!!
Probier mal ob dir das hilft.

Sub CopyData()
Dim iCounter As Integer, iRow As Integer
Application.ScreenUpdating = False
Worksheets.Add after:=Worksheets(Worksheets.Count)
iRow = 1
For iCounter = 2 To 100
Worksheets(iCounter).Range("A1").CurrentRegion.Copy _
Cells(iRow, 1)
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Next iCounter
Application.ScreenUpdating = True
End Sub

Gruß Marc
Anzeige
AW: kopieren von Tabellenblättern
22.06.2005 16:44:48
Tabellenblättern
Hi Marc,
dein Makro funktioniert noch nicht so ganz. Hab es mal mit 3 sheets ausprobiert. Er nimmt die sheets 2 und 3 und schreibt sie ín der Reihenfolge 2,3,2,3 untereinander. Warum er die 2te Schleife dreht, weiß ich nicht. Vielleicht kannst du ja noch mal nachdenken...
AW: kopieren von Tabellenblättern
22.06.2005 17:13:14
Tabellenblättern
Sorry,
mache aus dem: Dim iCounter As Integer
ein: Dim iCounter As Long
draus...
Gruß
Anzeige
AW: und noch was!!!!
22.06.2005 17:16:43
Marc
Mache noch aus dem: For iCounter = 2 To 100
ein: For iCounter = 1 To 100
draus, dann haben wir es aber...
Gruß
;

Beliebteste Forumthreads (12 Monate)

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