Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1188to1192
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
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige