meckern beim Blatt kopieren 50x
04.07.2003 13:16:32
Martin T
Ich habe hier irgendwie n kleines Problem mit dem Kopieren: mit dem untenstehenden Code
kopiere ich zur Zeit 14 Tabellenblätter. Danach lösche ich diese wieder und lasse
den gleichen Code ablaufen. Nachdem 3 oder 4. mal meckert EXCEL auf einmal über meine COPY-Methode:
Laufzeit 1004
die Methode 'Copy' für das Objekt_Worksheet ist fehlgeschlagen
...aber die ist doch ein paar mal gelaufen. Was ist los? Excel meckert auch, wenn ich gleich sagen, kopiere mir mal Tabelle1 50x.
Dim wsueb As Worksheet
Dim wsler As Worksheet
Dim i as long
Sub blatterneutkopie()
Set wsueb = Worksheets("Übersicht")
Set wsler = Worksheets("Leerraum")
Application.ScreenUpdating = False
'nachdem alte Tabellen gelöscht, werden diese neu erstellt
For i = 1 To wsueb.Range("J1").Value
' MsgBox wsueb.Range("J1").Value
Application.DisplayAlerts = False
' wsler.Visible = True
wsler.Copy After:=Worksheets.Item(3) '''' hier meckert EXCEL rum
' wsler.Visible = xlVeryHidden
Next i
Application.DisplayAlerts = True
wsueb.Activate
Application.ScreenUpdating = True
End Sub
Hintergrund der Aktion: ich habe ca. 50 Tabellen mit sehr vielen Kommentaren pro Blatt.
Um diese nicht alle zu suchen und zu löschen, lösche ich lieber alle Blätter und kopiere
mir das Original (in der gleichen Mappe). Die Mappen benenne ich dann wieder mit dem
alten Namen, die stehen eh alle in einer Liste.
Oder gibt es eine (schnelle) möglichkeit, alle Kommentare aus allen Blättern zu fegen?
In der Recherche habe ich ähnliche Fragen gefunden, doch die antworten fehlten (Jahr2000).
Ich hoffe, ihr könnt mir ein wenig helfen,
gruß Martin T.
Anzeige