Excel 2016: Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden

  • Excel

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Zoe4711.

    Excel 2016: Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden

    Hallo,

    aus dem Homeoffice heraus suche ich den Draht nach draußen und euren Rat.

    Auf computer@office treten bei einem Makro zufällig folgende Laufzeitfehler auf, auf computer@HomeOffice nicht:

    computer@office: Nachdem ich einige Male, mal mehr mal weniger häufig, auf Debuggen geklickt und mit F5 die Fortsetzung des Makros angestoßen habe, läuft das Makro schlussendlich doch ohne weitere Unterbrechungen durch.

    Quellcode

    1. xRg.PasteSpecial '** Laufzeitfehler '1004': Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden.


    Quellcode

    1. xRg.PasteSpecial '** Laufzeitfehler '1004': Microsoft Excel kann die Daten nicht einfügen.


    Quellcode

    1. Sub extract_userpicture_from_comments
    2. Dim rngZelle As Range
    3. Dim xRg As Range
    4. Dim visBool As Boolean
    5. Dim cmtTxt As String
    6. Dim i As Integer
    8. If ActiveSheet.Comments.Count = 0 Then
    9. MsgBox "No comments in entire sheet"
    10. Exit Sub
    11. End If
    13. Application.CutCopyMode = False
    14. Application.ScreenUpdating = False
    15. Application.Calculation = xlCalculationManual
    17. For Each rngZelle In Selection.Cells
    19. With rngZelle
    20. rngZelle.Select
    22. If .Comment Is Nothing Then
    23. GoTo LabelA
    24. Else
    26. With .Comment
    28. cmtTxt = .Text
    29. .Text Text:="" & Chr(10) & ""
    30. visBool = .Visible
    31. .Visible = True
    32. .Shape.CopyPicture _
    33. Appearance:=xlScreen, Format:=xlPicture
    35. Set xRg = .Parent.Offset(0, 1)
    36. xRg.PasteSpecial
    38. Selection.ShapeRange.LockAspectRatio = msoTrue
    39. Selection.Height = xRg.Height
    40. .Visible = visBool
    41. .Text Text:=cmtTxt
    42. .Shape.Fill.Solid
    43. .Shape.TextFrame.AutoSize = True
    45. i = i + 1
    46. Debug.Print i; rngZelle.Address
    48. End With
    49. End If
    50. End With
    52. LabelA:
    54. Application.CutCopyMode = False
    56. Next rngZelle
    58. Application.CutCopyMode = False
    59. Application.Calculation = xlCalculationAutomatic
    60. Application.ScreenUpdating = True
    62. End Sub

    Der Code animiert nicht zum Anschauen.
    Da sind so viele Stilfehler drin, dass man sich den Code gar nicht genau anschauen mag.
    Aber, kompiliert das überhaupt:

    Zoe4711 schrieb:

    .Text Text:="" & Chr(10) & ""
    ...
    .Text Text:=cmtTxt

    Ausserdem ist es immer gefährlich mit Selection zu arbeiten, weil diese sich dynamisch verändern kann.

    Ich versuche mal einen vorsichtig veränderten Ansatz:

    Visual Basic-Quellcode

    1. Set Rng = Selection
    2. For Each rngZelle In Rng
    3. If Not rngZelle.Comment Is Nothing Then
    4. With rngZelle.Comment
    5. cmtTxt = .Text
    6. .Text = Chr(10)
    7. visBool = .Visible
    8. .Visible = True
    9. .Shape.CopyPicture
    10. .Parent.Offset(0, 1).PasteSpecial
    11. rngZelle.ShapeRange.LockAspectRatio = msoTrue
    12. rngZelle.Height = xRg.Height
    13. .Visible = visBool
    14. .Text = cmtTxt
    15. .Shape.Fill.Solid
    16. .Shape.TextFrame.AutoSize = True
    17. End With
    18. End If
    19. Application.CutCopyMode = False
    20. Next rngZelle
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    petaod schrieb:

    Der Code animiert nicht zum Anschauen.
    Da sind so viele Stilfehler drin, dass man sich den Code gar nicht genau anschauen mag.

    Aber, kompiliert das überhaupt:

    .Text Text:="" & Chr(10) & ""
    ...
    .Text Text:=cmtTxt


    Das kompiliert. Das Makro funktioniert wie beschrieben auf computer@HomeOffice einwandfrei.


    petaod schrieb:

    Set Rng = Selection


    Fehler beim Kompilieren:
    Variable nicht definiert

    Korrigiert mit:

    Quellcode

    1. Dim rng as Range


    Danach: Fehler beim Kompilieren

    petaod schrieb:

    .Text = Chr(10)


    Fehler beim Kompilieren:
    Zuweisung zu einer Konstanten nicht zulässig

    Korrigiert mit:

    Quellcode

    1. .Text Text:=Chr(10)


    Danach: Fehler beim Kompilieren

    petaod schrieb:

    .Text = cmtTxt


    Fehler beim Kompilieren:
    Zuweisung zu einer Konstanten nicht zulässig

    Korrigiert mit:

    Quellcode

    1. .Text Text:=cmtTxt


    Danach: Laufzeitfehler

    petaod schrieb:

    rngZelle.ShapeRange.LockAspectRatio = msoTrue


    Laufzeitfehler '438': Objekt unterstützt diese Eigenschaft oder Methode nicht

    Fazit: Jetzt höre ich damit auf. Verschlimmbesserung trifft es gut.

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Zoe4711“ () aus folgendem Grund: Kleine redaktionelle Änderungen.

    Makroausführung beruhigt mit: DoEvents

    Jetzt funktioniert es fehlerfrei, wenn
    • der Makrostart bei geöffnetem Modul nicht über die Menüleiste "Ausführen" --> "Sub/UserForm ausführen" des Entwicklertools Microsoft Visual Basic for Application, sondern bei geöffnetem Modul mittels der Taste F5 ausgelöst wird oder
    • der Makrostart über Reiter Ansicht --> Button Makros --> Makros anzeigen --> {Makroname auswählen} ausgelöst wird.

    Visual Basic-Quellcode

    1. Sub insert_userpicture_in_comments_final()
    2. '** Dimensionierung der Variablen
    3. Dim rngZelle As Range
    4. Dim strFilename As Variant
    5. Dim strFilter As String
    6. Dim ScaleValue As Single
    7. Dim ScaleValue2 As Single
    8. Dim objPic As IPictureDisp
    9. Dim Source As String
    10. Dim i As Integer
    12. If ActiveSheet.Comments.Count = 0 Then
    13. MsgBox "No comments in entire sheet"
    14. Exit Sub
    15. End If
    17. 'Dateiauswahl filtern
    18. strFilter = "JPG Files (*.jpg), *.jpg" _
    19. & ", GIF Files (*.gif), *.gif" _
    20. & ", Bitmaps (*.bmp), *.bmp" _
    21. & ", WMF Files (*.wmf), *.wmf"
    23. ' Dialogfenster zur Auswahl eines Bildes öffnen
    24. strFilename = Application.GetOpenFilename(strFilter)
    26. ' Wenn kein Bild ausgewählt wurde, Prozedur beenden
    27. If strFilename = False Then GoTo LabelA
    29. Source = (CStr(strFilename))
    31. ' Set objPic = LoadPicture(Bild)
    32. Set objPic = LoadPicture(Source)
    34. DoEvents
    36. With objPic
    37. ScaleValue = .Width / .Height
    38. End With
    40. If MsgBox(ScaleValue, vbOKCancel) = vbCancel Then GoTo LabelA
    42. Application.CutCopyMode = False
    43. DoEvents
    45. Application.ScreenUpdating = False
    46. Application.Calculation = xlCalculationManual
    48. '** Alle markierten rngZellen durchlaufen
    49. For Each rngZelle In Selection.Cells
    50. With rngZelle
    51. If Not .Comment Is Nothing Then
    53. 'Insert The Image and Resize
    54. With .Comment.Shape
    56. .Shadow.Visible = msoFalse
    58. .LockAspectRatio = msoFalse
    59. .Width = 150
    60. ' .Width = ScaleValue * .Height
    61. .Height = .Width / ScaleValue
    62. .Fill.UserPicture strFilename
    64. DoEvents
    66. .LockAspectRatio = msoTrue
    68. ScaleValue2 = .Width / .Height
    70. i = i + 1
    71. Debug.Print i; rngZelle.Address; ScaleValue; ScaleValue2
    73. End With
    74. End If
    75. End With
    77. Application.CutCopyMode = False
    78. DoEvents
    80. Next rngZelle
    82. LabelA:
    84. Application.Calculation = xlCalculationAutomatic
    85. Application.ScreenUpdating = True
    87. Application.CutCopyMode = False
    88. DoEvents
    90. End Sub


    Visual Basic-Quellcode

    1. Sub extract_userpicture_from_comments_final()
    2. '** Dimensionierung der Variablen
    3. Dim rngZelle As Range
    4. Dim xRg As Range
    5. Dim visBool As Boolean
    6. Dim cmtTxt As String
    7. Dim i As Integer
    9. If ActiveSheet.Comments.Count = 0 Then
    10. MsgBox "No comments in entire sheet"
    11. Exit Sub
    12. End If
    14. Application.CutCopyMode = False
    15. DoEvents
    17. Application.ScreenUpdating = False
    18. Application.Calculation = xlCalculationManual
    20. '** Alle markierten rngZellen durchlaufen
    21. For Each rngZelle In Selection.Cells
    22. With rngZelle
    24. rngZelle.Select
    26. If .Comment Is Nothing Then
    27. GoTo LabelA
    28. Else
    30. 'Extract The Image
    31. With .Comment
    33. cmtTxt = .Text
    34. .Text Text:="" & Chr(10) & ""
    35. visBool = .Visible
    36. .Visible = True
    37. .Shape.CopyPicture _
    38. Appearance:=xlScreen, Format:=xlPicture
    40. DoEvents
    42. Set xRg = .Parent.Offset(0, 20)
    44. xRg.Select
    46. ' xRg.PasteSpecial
    48. ActiveSheet.PasteSpecial
    50. DoEvents
    52. Selection.ShapeRange.LockAspectRatio = msoTrue
    53. ' Selection.Width = xRg.Width
    54. Selection.Height = xRg.Height
    55. .Visible = visBool
    56. .Text Text:=cmtTxt
    57. .Shape.Fill.Solid
    58. DoEvents
    60. .Shape.TextFrame.AutoSize = True
    62. i = i + 1
    63. Debug.Print i; rngZelle.Address
    65. End With
    66. End If
    67. End With
    69. LabelA:
    71. Application.CutCopyMode = False
    72. DoEvents
    74. Next rngZelle
    76. Application.Calculation = xlCalculationAutomatic
    77. Application.ScreenUpdating = True
    79. Application.CutCopyMode = False
    80. DoEvents
    82. End Sub
    Dateien

    • Erdbeere-25.bmp

      (944,84 kB, 58 mal heruntergeladen, zuletzt: )

    • Orange-50.bmp

      (349,49 kB, 67 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Zoe4711“ () aus folgendem Grund: [code][/code] durch [vb][/vb] ersetzt

    Verbesserung

    Wegen der Laufzeitfehler @office habe ich folgende Änderung vorgenommen: Wird das Bild nicht in die Zelle eingefügt, dann wird zwar der Fehler ignoriert, aber das Einfügen des Bildes solange wiederholt bis es geklappt hat.

    Visual Basic-Quellcode

    1. On Error Resume Next


    Visual Basic-Quellcode

    1. LabelB:
    2. i = i + 1
    3. If Err = 1004 Then j = j + 1
    4. Debug.Print i; rngZelle.Address; rngZelle.Comment.Parent.Offset(0, 20).Address; Err; j
    6. On Error GoTo 0
    7. On Error Resume Next


    Visual Basic-Quellcode

    1. If Err = 1004 Then GoTo LabelB


    Und komplett:

    Visual Basic-Quellcode

    1. Sub extract_userpicture_from_comments_final_2()
    2. '** Dimensionierung der Variablen
    3. Dim rngZelle As Range
    4. Dim xRg As Range
    5. Dim visBool As Boolean
    6. Dim cmtTxt As String
    7. Dim i As Integer
    8. Dim j As Integer
    10. i = 0
    11. j = 0
    13. If ActiveSheet.Comments.Count = 0 Then
    14. MsgBox "No comments in entire sheet"
    15. Exit Sub
    16. End If
    18. Application.CutCopyMode = False
    19. DoEvents
    21. Application.ScreenUpdating = False
    22. Application.Calculation = xlCalculationManual
    24. '** Alle markierten rngZellen durchlaufen
    25. For Each rngZelle In Selection.Cells
    26. With rngZelle
    28. rngZelle.Select
    30. If .Comment Is Nothing Then
    31. GoTo LabelA
    32. Else
    34. 'Extract The Image
    35. With .Comment
    37. On Error Resume Next
    39. cmtTxt = .Text
    40. .Text Text:="" & Chr(10) & ""
    41. visBool = .Visible
    42. .Visible = True
    43. .Shape.CopyPicture _
    44. Appearance:=xlScreen, Format:=xlPicture
    46. DoEvents
    48. Set xRg = .Parent.Offset(0, 20)
    50. xRg.Select
    52. LabelB:
    53. i = i + 1
    54. If Err = 1004 Then j = j + 1
    55. Debug.Print i; rngZelle.Address; rngZelle.Comment.Parent.Offset(0, 20).Address; Err; j
    57. On Error GoTo 0
    58. On Error Resume Next
    60. ' xRg.PasteSpecial
    62. ActiveSheet.PasteSpecial Format:="Bild (Erweiterte Metadatei)", Link:=False, DisplayAsIcon:=False
    64. DoEvents
    66. If Err = 1004 Then GoTo LabelB
    68. Selection.ShapeRange.LockAspectRatio = msoTrue
    69. ' Selection.Width = xRg.Width
    70. Selection.Height = xRg.Height
    71. .Visible = visBool
    72. .Text Text:=cmtTxt
    73. .Shape.Fill.Solid
    74. DoEvents
    76. .Shape.TextFrame.AutoSize = True
    78. End With
    79. End If
    80. End With
    82. LabelA:
    84. Application.CutCopyMode = False
    85. DoEvents
    87. Next rngZelle
    89. Application.Calculation = xlCalculationAutomatic
    90. Application.ScreenUpdating = True
    92. Application.CutCopyMode = False
    93. DoEvents
    95. End Sub


    Visual Basic-Quellcode

    1. Sub insert_userpicture_in_comments_final()
    2. '** Dimensionierung der Variablen
    3. Dim rngZelle As Range
    4. Dim strFilename As Variant
    5. Dim strFilter As String
    6. Dim ScaleValue As Single
    7. Dim ScaleValue2 As Single
    8. Dim objPic As IPictureDisp
    9. Dim Source As String
    10. Dim i As Integer
    12. If ActiveSheet.Comments.Count = 0 Then
    13. MsgBox "No comments in entire sheet"
    14. Exit Sub
    15. End If
    17. 'Dateiauswahl filtern
    18. strFilter = "JPG Files (*.jpg), *.jpg" _
    19. & ", GIF Files (*.gif), *.gif" _
    20. & ", Bitmaps (*.bmp), *.bmp" _
    21. & ", WMF Files (*.wmf), *.wmf"
    23. ' Dialogfenster zur Auswahl eines Bildes öffnen
    24. strFilename = Application.GetOpenFilename(strFilter)
    26. ' Wenn kein Bild ausgewählt wurde, Prozedur beenden
    27. If strFilename = False Then GoTo LabelA
    29. Source = (CStr(strFilename))
    31. ' Set objPic = LoadPicture(Bild)
    32. Set objPic = LoadPicture(Source)
    34. DoEvents
    36. With objPic
    37. ScaleValue = .Width / .Height
    38. End With
    40. If MsgBox(ScaleValue, vbOKCancel) = vbCancel Then GoTo LabelA
    42. Application.CutCopyMode = False
    43. DoEvents
    45. Application.ScreenUpdating = False
    46. Application.Calculation = xlCalculationManual
    48. '** Alle markierten rngZellen durchlaufen
    49. For Each rngZelle In Selection.Cells
    50. With rngZelle
    51. If Not .Comment Is Nothing Then
    53. 'Insert The Image and Resize
    54. With .Comment.Shape
    56. .Shadow.Visible = msoFalse
    58. .LockAspectRatio = msoFalse
    59. .Width = 150
    60. ' .Width = ScaleValue * .Height
    61. .Height = .Width / ScaleValue
    62. .Fill.UserPicture strFilename
    64. DoEvents
    66. .LockAspectRatio = msoTrue
    68. ScaleValue2 = .Width / .Height
    70. i = i + 1
    71. Debug.Print i; rngZelle.Address; ScaleValue; ScaleValue2
    73. End With
    74. End If
    75. End With
    77. Application.CutCopyMode = False
    78. DoEvents
    80. Next rngZelle
    82. LabelA:
    84. Application.Calculation = xlCalculationAutomatic
    85. Application.ScreenUpdating = True
    87. Application.CutCopyMode = False
    88. DoEvents
    90. End Sub

    Verbesserung: Makroausführung beruhigt mit: sleep

    Hallo,

    Laufzeitfehler '1004': Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden.


    Laufzeitfehler '1004': Microsoft Excel kann die Daten nicht einfügen.


    Diese Fehler werden mutmaßlich dadurch verursacht, dass der Zugriff auf das Clipboard durch ein anderes Programm gestört wird.

    Unter answers.microsoft.com/en-us/ms…32-46f2-99f1-e4efc3cdef9f (Microsoft Excel cannot paste the data) wurde über dieses Phänomen diskutiert:

    Verbundene Zellen:
    Does your data have merged cells? It could be one of the possibilities. It may not be possible to paste data from a merged cell range into a non-merged cells range. Select the data, click on Merge and Center to toggle it off and try the copy the data again.


    Skype with its click to call functions
    Hello everybody!

    I got this problem today... besides, all MS Office 365 programs failed to provide paste options.

    After reinstalling the Office 365, uninstalling Skype with its click to call functions (in vain) i discovered that clipboard and copy & paste functions were stolen by Pushbullet software. After disabling "Universal copy & paste" function in settings of Pushbullet, copy and paste functions recovered in Excel and other MS Office suite applications.

    Hope this experience works with you. You may have other software (or add-on) that monitors clipboard and overrides MS Office functionality.


    Clipboard
    Simply shutting down my clipboard manager for the time I use Excel has 100% eliminated this error.


    Bedngte Formatierung
    This worked for me

    In Excel 2007/2010/2013:
    1. On the Home Ribbon > Conditional Formatting
    2. Clear rules from entire worksheet or cells
    3. Follow above steps for each worksheet in the file


    Mit folgender Verbesserung sind nun auch die Run-time error '1004' verschwunden:

    Visual Basic-Quellcode

    1. Option Explicit
    2. Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)


    Visual Basic-Quellcode

    1. Sleep (50)


    Und komplett:

    Visual Basic-Quellcode

    1. Option Explicit
    2. Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)
    3. Sub extract_userpicture_from_comments_final_3()
    4. '** Dimensionierung der Variablen
    5. Dim rngZelle As Range
    6. Dim xRg As Range
    7. Dim visBool As Boolean
    8. Dim cmtTxt As String
    9. Dim i As Integer
    10. Dim j As Integer
    12. i = 0
    13. j = 0
    15. If ActiveSheet.Comments.Count = 0 Then
    16. MsgBox "No comments in entire sheet"
    17. Exit Sub
    18. End If
    20. Application.CutCopyMode = False
    21. DoEvents
    23. Application.ScreenUpdating = False
    24. Application.Calculation = xlCalculationManual
    26. '** Alle markierten rngZellen durchlaufen
    27. For Each rngZelle In Selection.Cells
    28. With rngZelle
    30. rngZelle.Select
    32. If .Comment Is Nothing Then
    33. GoTo LabelA
    34. Else
    36. 'Extract The Image
    37. With .Comment
    39. On Error Resume Next
    41. cmtTxt = .Text
    42. .Text Text:="" & Chr(10) & ""
    43. visBool = .Visible
    44. .Visible = True
    45. .Shape.CopyPicture _
    46. Appearance:=xlScreen, Format:=xlPicture
    48. DoEvents
    50. Sleep (50)
    52. Set xRg = .Parent.Offset(0, 20)
    54. xRg.Select
    56. LabelB:
    57. i = i + 1
    58. If Err = 1004 Then j = j + 1
    59. Debug.Print i; rngZelle.Address; rngZelle.Comment.Parent.Offset(0, 20).Address; Err; j
    61. On Error GoTo 0
    62. On Error Resume Next
    64. ' xRg.PasteSpecial
    66. ActiveSheet.PasteSpecial Format:="Bild (Erweiterte Metadatei)", Link:=False, DisplayAsIcon:=False
    68. DoEvents
    70. If Err = 1004 Then GoTo LabelB
    72. Selection.ShapeRange.LockAspectRatio = msoTrue
    73. ' Selection.Width = xRg.Width
    74. Selection.Height = xRg.Height
    75. .Visible = visBool
    76. .Text Text:=cmtTxt
    77. .Shape.Fill.Solid
    78. DoEvents
    80. .Shape.TextFrame.AutoSize = True
    82. End With
    83. End If
    84. End With
    86. LabelA:
    88. Application.CutCopyMode = False
    89. DoEvents
    91. Next rngZelle
    93. Application.Calculation = xlCalculationAutomatic
    94. Application.ScreenUpdating = True
    96. Application.CutCopyMode = False
    97. DoEvents
    99. End Sub


    Visual Basic-Quellcode

    1. Sub insert_userpicture_in_comments_final()
    2. '** Dimensionierung der Variablen
    3. Dim rngZelle As Range
    4. Dim strFilename As Variant
    5. Dim strFilter As String
    6. Dim ScaleValue As Single
    7. Dim ScaleValue2 As Single
    8. Dim objPic As IPictureDisp
    9. Dim Source As String
    10. Dim i As Integer
    12. If ActiveSheet.Comments.Count = 0 Then
    13. MsgBox "No comments in entire sheet"
    14. Exit Sub
    15. End If
    17. 'Dateiauswahl filtern
    18. strFilter = "JPG Files (*.jpg), *.jpg" _
    19. & ", GIF Files (*.gif), *.gif" _
    20. & ", Bitmaps (*.bmp), *.bmp" _
    21. & ", WMF Files (*.wmf), *.wmf"
    23. ' Dialogfenster zur Auswahl eines Bildes öffnen
    24. strFilename = Application.GetOpenFilename(strFilter)
    26. ' Wenn kein Bild ausgewählt wurde, Prozedur beenden
    27. If strFilename = False Then GoTo LabelA
    29. Source = (CStr(strFilename))
    31. ' Set objPic = LoadPicture(Bild)
    32. Set objPic = LoadPicture(Source)
    34. DoEvents
    36. With objPic
    37. ScaleValue = .Width / .Height
    38. End With
    40. If MsgBox(ScaleValue, vbOKCancel) = vbCancel Then GoTo LabelA
    42. Application.CutCopyMode = False
    43. DoEvents
    45. Application.ScreenUpdating = False
    46. Application.Calculation = xlCalculationManual
    48. '** Alle markierten rngZellen durchlaufen
    49. For Each rngZelle In Selection.Cells
    50. With rngZelle
    51. If Not .Comment Is Nothing Then
    53. 'Insert The Image and Resize
    54. With .Comment.Shape
    56. .Shadow.Visible = msoFalse
    58. .LockAspectRatio = msoFalse
    59. .Width = 150
    60. ' .Width = ScaleValue * .Height
    61. .Height = .Width / ScaleValue
    62. .Fill.UserPicture strFilename
    64. DoEvents
    66. .LockAspectRatio = msoTrue
    68. ScaleValue2 = .Width / .Height
    70. i = i + 1
    71. Debug.Print i; rngZelle.Address; ScaleValue; ScaleValue2
    73. End With
    74. End If
    75. End With
    77. Application.CutCopyMode = False
    78. DoEvents
    80. Next rngZelle
    82. LabelA:
    84. Application.Calculation = xlCalculationAutomatic
    85. Application.ScreenUpdating = True
    87. Application.CutCopyMode = False
    88. DoEvents
    90. End Sub

Facebook
Telefonspende