Hallo Torsten L.,
Ich nehme an (aus deiner Beschreibung), dass das Loeschen der ausgeblendeten Blaetter sowie das erstellen des Blattes "Data" schon funktioniert.
Hier dann noch der Code, um die Blattnamen in "Data" zu schreiben, wohin du sie haben willst, sowie die Daten von dort zu kopieren. Habe dazu den letzten Teil deines Codes umgebaut und erweitert.
Probiers mal aus und lass mich wissen, ob es so ok ist:
Dim ws As Worksheet
Dim X As Integer
Dim rngSource1 As Range, rngSource2 As Range
X = 1
Set rngSource1 = Range("E6:E77")
Set rngSource2 = Range("O6:O77")
With ActiveWorkbook.Sheets("Data")
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Data" Then
.Cells(1, X) = ws.Name
ws.rngSource1.Copy
.Cells(2, X).PasteSpecial xlPasteValues
ws.rngSource2.Copy
.Cells(2, X + 1).PasteSpecial xlPasteValues
X = X + 2
End If
Next ws
End With
Gruss Torsten W.
|