Hallo Sepp, bitte nocheinmal um Hilfe
30.01.2004 07:21:49
Anka
möchte Dich gerne noch einmal um Hilfe bitten.
Wie muß Dein Code geändert werden, wenn ich nur eine Auswahl an
Tabellenblättern kopieren möchte?
z.B. Blatt "A","P","Y" und "AF"
Grüße
Anka
Sub kopieren()
Dim wks As Worksheet
Dim wksS As Worksheet
Dim rng As Range
Dim rngX As Range
Dim lnge As Long
Dim intC As Integer
Set wksS = Sheets("Sammelblatt") 'Hier den Namen der Sammeltabelle
lnge = wksS.Range("A65536").End(xlUp).Row + 1 'erste freie Zeile
For Each wks In ThisWorkbook.Sheets
If wks.Name <> "Sammelblatt" Then 'Hier den Namen der Sammeltabelle
Set rng = wks.Range("B2:B8, B12:B18, D2:D8, D12:D18, G2:G8, G12:G18, K2:K8, K12:K18 ")
intC = 1
For Each rngX In rng
rngX.Copy wksS.Cells(lnge, intC)
intC = intC + 1
If intC > 7 Then
intC = 1
lnge = lnge + 1
End If
Next
End If
Next
End Sub