Microsoft Excel

Herbers Excel/VBA-Archiv

Daten kopieren | Herbers Excel-Forum


Betrifft: Daten kopieren von: Robert Kaschner
Geschrieben am: 23.12.2009 00:14:03

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

  

Betrifft: AW: Daten kopieren von: Josef Ehrensberger
Geschrieben am: 23.12.2009 00:18:10

Hallo Robert,

wie heißen die 4 Tabellen?

Wie heist das Blatt mit der Zusammenfassung?

Haben die Daten Überschriften?


Gruß Sepp



  

Betrifft: AW: Daten kopieren von: Josef Ehrensberger
Geschrieben am: 23.12.2009 00:50:27

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



Beiträge aus den Excel-Beispielen zum Thema "Daten kopieren"