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

Daten automatisch kopieren

Forumthread: Daten automatisch kopieren

Daten automatisch kopieren
George
Hallo liebe Forumsteilnehmer,
ich würde gerne aus drei verschiedenen Tabellenblättern Daten in ein viertes Tabllenbaltt kumulativ übernehmern. Auf den kumulativen Tabellenblatt soll jeweils zur Abgrenzung der Daten aus den einzelnen
Tabellenblättern eine Linie gezogen werden.
Bei der Übernahme sind jedoch nur die Zeilen zu übernehme die in der Spalte "B" einen Wert stehen haben.
Hat jemand einen Tipp für mich?
Beste Grüße
George
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Daten automatisch kopieren
11.12.2010 22:02:31
Gerd
Guten Abend George!
Sub a()
Dim quellen, intIndex As Integer
Dim Zielblatt As Worksheet
quellen = Array("Tabelle1", "tabelle2", "Tabelle3")
Set Zielblatt = Worksheets("Tabelle4")
For intIndex = LBound(quellen) To UBound(quellen)
Worksheets(quellen(intIndex)).Columns(2).SpecialCells(xlCellTypeConstants).EntireRow.Copy _
Zielblatt.Cells(Zielblatt.Rows.Count, 2).End(xlUp).Offset(1, -1)
If intIndex
Gruß Gerd
Anzeige
AW: Daten automatisch kopieren
11.12.2010 22:16:12
George
Hallo Gerd,
vielen vielen Dank das Makro funktioniert einwandfei. Ich bekomme nur folgende Fehlermeldung:
"Index außerhalb des gültigen Bereichs" - Aber das Ergebnis stimmt.
Gruss George
;

Beliebteste Forumthreads (12 Monate)

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