methode paste für das objekt _worksheet

Hallo,
ich hoffe mir kann jemand helfen. Ich bekomme bei folgendem Code Abschnitt ab und zu den Fehler _ "methode paste für das objekt _worksheet ist fehlgeschlagen". Die meiste Zeit läuft er ganz normal durch. Aber zwischendurch gibt es dann immer wieder den Fehler, und ich verstehe nicht warum da ich ja letztlich immer alles gleich mache.


Set wksNeu = Sheets.Add(After:=Sheets(Sheets.Count))
With wksNeu
Worksheets("Tabelle1").Shapes("Object 1").Copy
.Paste
Worksheets("Tabelle1").Shapes("TextBox 2").Copy
.Paste
Worksheets("Tabelle1").Shapes("Textbox 3").Copy
.Paste
.Shapes("Object 1").IncrementLeft 8.25
.Shapes("Object 1").IncrementTop 8.25
.Shapes("TextBox 2").IncrementLeft 78.25
.Shapes("TextBox 2").IncrementTop 8.25
.Shapes("TextBox 3").IncrementLeft 393.25
.Shapes("TextBox 3").IncrementTop 8.25
End With

Der Code wird über eine Userform aktiviert und steht in einem Modul der Arbeitsmappe. Mich wundert halt das der Code in den meisten Fällen funktioniert, somit ja nicht grundsätzlich falsch sein kann.
Gruß
Sven

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sven,
ein bekanntest Problem. Ich behelfe mir so:

Public Sub test()
    Dim wksNeu As Worksheet

    Set wksNeu = Worksheets.Add(After:=Sheets(Sheets.Count))
    With wksNeu
        Worksheets("Tabelle1").Shapes("Object 1").Copy
        On Error Resume Next
        Do
            .Paste
            If Err.Number = 0 Then Exit Do
            Call Err.Clear
        Loop
        On Error GoTo 0
        Worksheets("Tabelle1").Shapes("TextBox 2").Copy
        On Error Resume Next
        Do
            .Paste
            If Err.Number = 0 Then Exit Do
            Call Err.Clear
        Loop
        On Error GoTo 0
        Worksheets("Tabelle1").Shapes("Textbox 3").Copy
        On Error Resume Next
        Do
            .Paste
            If Err.Number = 0 Then Exit Do
            Call Err.Clear
        Loop
        On Error GoTo 0

        .Shapes("Object 1").IncrementLeft 8.25
        .Shapes("Object 1").IncrementTop 8.25
        .Shapes("TextBox 2").IncrementLeft 78.25
        .Shapes("TextBox 2").IncrementTop 8.25
        .Shapes("TextBox 3").IncrementLeft 393.25
        .Shapes("TextBox 3").IncrementTop 8.25
    End With
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

methode paste für das objekt _worksheet

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

methode paste für das objekt _worksheet

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread