.Paste geht nicht wenn vorher Sheet gelöscht und neu angelegt

30/08/2008 - 10:43 von Michael Warlich | Report spam
Hallo zusammen, besonderen Hallo an alle die wie ich am Wochenende
arbeiten müssen!

Ich habe folgendes Problem:

[CODE]
'Prüfen ob Blatt vorhanden, wenn ja löschen
' If BlattVorhanden(BWName) = True Then

BlattLöschen (BWName)
ActiveWorkbook.Sheets.Add().Name = BWName
Else
ActiveWorkbook.Sheets.Add().Name = BWName
End If
ActiveWorkbook.Sheets(BWName).Select
Range("A1").Select
ActiveSheet.Paste
[/CODE]

Wenn dieser Code das erste mal druchlàuft gibt es kein Problem. Wenn er
aber ein zweites mal durchlàuft, und das Sheet BWName schon vorhanden
ist komme die Fehlermeldung:
Laufzeitfehler 1004
Die Paste-Methode des WorkSheet-Objektes konnte nicht ausgeführt werden.

Das Blatt wurde aber vorher ordnungsgemàß in der Methode BlattLöschen
gelöscht und danach wieder neu angelegt.

Was kann das sein?
Im Anhang der Code von BlattVorhanden und BlattLöschen

LG
Michael


Public Function BlattVorhanden(BlattName As String) As Boolean
Dim Blatt As Object
Application.ScreenUpdating = False
For Each Blatt In ActiveWorkbook.Sheets ' Namen aller Tabellen prüfen
If Blatt.Name = BlattName Then
BlattVorhanden = True
Exit Function
End If
Next Blatt
BlattVorhanden = False
End Function

Public Function BlattLöschen(BlattName As String) As Boolean
Dim Warnung As Boolean
Application.ScreenUpdating = False
BlattLöschen = (ActiveWorkbook.Sheets.Count > 1) And Not
ActiveWorkbook.ProtectStructure
If BlattLöschen And BlattVorhanden(BlattName) Then
Warnung = Application.DisplayAlerts
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets(BlattName).Delete
Application.DisplayAlerts = Warnung
End If
End Function
 

Lesen sie die antworten

#1 Peter Schleif
30/08/2008 - 11:00 | Warnen spam
Michael Warlich schrieb am 30.08.2008 10:43 Uhr:

Wenn dieser Code das erste mal druchlàuft gibt es kein Problem. Wenn er
aber ein zweites mal durchlàuft, und das Sheet BWName schon vorhanden
ist komme die Fehlermeldung:
Laufzeitfehler 1004
Die Paste-Methode des WorkSheet-Objektes konnte nicht ausgeführt werden.



Ist vielleicht die Zwischenablage leer?

Es funktioniert bei mir *immer* wenn ich vorher etwas in die
Zwischenablage kopiere.

Es funktioniert bei mir *nie* wenn ich vorher die Zwischenablage leere.

Peter

Ähnliche fragen