ActiveSheet.Paste Link:=True "LZf 1004 - Die Paste Methode konnte nicht ausgeführt werden"

  • Excel

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Mono.

    ActiveSheet.Paste Link:=True "LZf 1004 - Die Paste Methode konnte nicht ausgeführt werden"

    Hallo Forum-Gemeinde,
    ich habe an einer Stelle in einem VB-Makro ein Problem. Eigentlich läuft das "Programm" problemlos, da es aber in einer Citrix Umgebung eingesetzt wird bekomme ich an der folgenden Stelle immer wieder sporadisch einen Laufzeitfehler. Führe ich die Funktion auf einem lokalen Rechner aus, tritt der Fehler nicht auf. Die Frage ist daher wie man folgenden Code vielleicht etwas optimaler gestallten könnte. Zum Fehler kommt es in der Zeile "ActiveSheet.Paste Link:=True"

    Visual Basic-Quellcode

    1. For x = 1 To Zeilen - 1
    2. If Range("D1").Offset(x, 0).Value = XJBNR Then
    3. Windows("wbghelp.dat").Activate
    4. Sheets(sheetPrefix & "einz").Select
    5. Range("A1").Value = x
    7. If sheetPrefix = "VB" Then
    8. Range("G6:AB8").Select
    9. Selection.Copy
    11. Range("G19").Offset(gefunden * 4, 0).Select
    12. End If
    14. If sheetPrefix = "SCH" Then
    15. Range("G7:Y7").Select
    16. Selection.Copy
    18. Range("G19").Offset(gefunden * 2, 0).Select
    19. End If
    21. Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    22. ActiveSheet.Paste Link:=True
    23. Selection.Copy
    24. Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    26. gefunden = gefunden + 1
    28. Windows(winPrefix & "_DB.dat").Activate
    29. Sheets(winPrefix).Select
    30. End If
    31. Next x


    Für jeden Hinweis bedanke ich mich bereits im Vorraus.

    Grundsätzlich gilt:

    Alles was mit Select, Copy und Paste in Excel VBA umgesetzt wird ist anfällig für Fehler durch Benutzer oder Programme die die Zwischenablage verändern können.
    Das ist meine Signatur und sie wird wunderbar sein!

    Das ist nix weiter als Range.Formula = "A1" zum Beispiel.

    Bzw geht das noch besser mit relativer Angabe:

    Visual Basic-Quellcode

    1. 'R = Row
    2. 'C = Column
    3. Worksheets("Sheet1").Range("I1:I6").FormulaR1C1 = "=RC[-3]" '3 Spalten nach links entspräche F1:F6
    4. Worksheets("Sheet1").Range("I1:I6").FormulaR1C1 = "=R[+2]C[-1]" ' 2 Zeilen nach unten und 1 nach links, entspräche H2:H7
    Das ist meine Signatur und sie wird wunderbar sein!

Facebook
Telefonspende