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

Daten kopieren

Forumthread: Daten kopieren

Daten kopieren
Robert
Hallo !
Ich habe in den Tabellenblättern 1-4 Daten (von A/B/C/D usw. 1- A/B/C/D 700).
Ich möchte gern alle Daten in einem fünften Tabellenblatt zusammenfassen.
Damit ich diese dann filtern kann.
Gruß Robert
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Daten kopieren
23.12.2009 00:18:10
Josef
Hallo Robert,
wie heißen die 4 Tabellen?
Wie heist das Blatt mit der Zusammenfassung?
Haben die Daten Überschriften?
Gruß Sepp

AW: Daten kopieren
23.12.2009 00:50:27
Josef
Hallo Robert,
hier mal eine einfache Version.
Sub zusammenfassung()
  Dim objSh As Worksheet, objTargetSh As Worksheet
  Dim lngLast As Long, lngNext As Long
  
  Set objTargetSh = Sheets("Zusammenfassung") 'Zieltabelle
  
  objTargetSh.Range("A2:D" & Rows.Count).ClearContents
  
  'Namen der Datenblätter anpassen!
  For Each objSh In Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4"))
    lngNext = objTargetSh.Cells(Rows.Count, 1).End(xlUp).Row + 1
    With objSh
      lngLast = .Cells(Rows.Count, 1).End(xlUp).Row
      .Range(.Cells(2, 1), .Cells(lngLast, 4)).Copy objTargetSh.Cells(lngNext, 1)
    End With
  Next
  
  
  Set objSh = Nothing
  Set objTargetSh = Nothing
End Sub

Gruß Sepp

Anzeige
;

Beliebteste Forumthreads (12 Monate)

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