Neue Arbeitamappe erstellen-VBA
10.12.2007 15:29:00
michael
Herzliche Grüße ins Forum
Sub MeineTabellen()
Dim a As Byte
Application.ScreenUpdating = False
For a = 1 To 3
.Anzahl der Tabellen
With Sheets(a)
.Range("A10:F53").Copy
Sheets(4).Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial
End With
Next a
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Das Makro habe ich aus dem Forum , es macht auch das was ich wollte
beim testen bin ich aber draufgekommen das ein--Workbooks.Add---
also eine neue Arbeitsmappe sinnvoller ist, nur da enden meine bescheidenen
VBA - Kenntnisse
Kann mir bitte jemand den Code erweitern.
Vielen Dank für eure Hilfe
michael