Daten aus mehrere Tabellenblätter kopieren
Sebastian
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