Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
624to628
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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...
Anzeige
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ß
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige