AW: Verschieben aller Tabellenblätter bis aufs ers
01.03.2006 22:15:45
Uduuh
Hallo,
in ein Modul vomn Mappe1:
Sub verschieben()
Dim i As Integer
With ThisWorkbook
For i = 2 To .Worksheets.Count
.Worksheets(i).Copy Workbooks("Mappe2.xls")
Next
End With
End Sub
Gruß ausm Pott
Udo
AW: Verschieben aller Tabellenblätter bis aufs ers
02.03.2006 09:30:14
petra
Hallo Udo,
vielen Dank für deine Hilfe.
Klappt auch soweit. aber leider kommt der makro irgendwann an sein limit und zeigt mitten im prozess den debugger an. daher wollte ich gerne wissen, ob es neben kopieren auch einfach eine verschiebung der tabellenblätter gibt
also nicht .copy sondern .verschieben.
gibt es sowas?
lg
petra