Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten aus mehrere Tabellenblätter kopieren

Daten aus mehrere Tabellenblätter kopieren
Sebastian
Hallo zusammen,
ich habe in einer Exceldatei mehrere Blätter der Form: 0104, 0204, 0504, 0904, etc.
Der Aufbau ist immer gleich. Nun möchte ich von allen Blättern jeweils die 2. Zeile in ein neues Tabellenblatt kopiert haben. Für ein Blatt ist das kein Problem, allerdings kann ich nicht mehrere Blätter (automatisiert von 1 bis zum letzten) ansteuern.
Vielen Dank für die Hilfe!
Sub Euribor()
Dim A As Double
Dim Bereich As Range
Dim zelle As Range
Dim i As Integer
A = Range("C1").Value
ThisWorkbook.Sheets.Select
Selection.CurrentRegion.Columns(1).Select
For Each zelle In Selection
If zelle.Value = A Then
Range(zelle.Offset(1, 1), zelle.Offset(1, 15)).Select
Selection.Copy
Sheets("Tabelle1").Select
Range("B3").Select
ActiveCell.Value = ActiveCell.Value
Selection.PasteSpecial
End If
Next zelle
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Daten aus mehrere Tabellenblätter kopieren
07.03.2011 17:12:03
Tino
Hallo,
kannst es mal so versuchen
Sub test()
Dim lngNextRow As Long, oWS As Worksheet

With Sheets.Add 'neue Tabelle 
    lngNextRow = 2 'erste Einfügezeile 
    For Each oWS In ThisWorkbook.Worksheets 'Schleife über die Tabellen 
        If oWS.Name Like "####" Then 'besteht Tabellenname aus 4 Zahlen? 
            oWS.Rows(2).Copy .Cells(lngNextRow, 1) 'Zeile 2 kopieren 
            .Rows(lngNextRow).Value = .Rows(lngNextRow).Value 'Formel durch Werte ersetzen 
            lngNextRow = lngNextRow + 1 'nächst Zeilennummer 
        End If
    Next oWS 'nächste Tabelle 
End With
End Sub
Gruß Tino
Anzeige

341 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige