Paste und PasteSpecial

      
Sub TelefonlisteErstellen(dummytrue As Boolean)
  Dim lngZeilenzahl As Long
  Dim rngDatenbereich As Range
  Dim rngAktZelle As Range
  Dim strBlattname As String
  Dim intI As Integer
  Dim blnVorhanden As Boolean
  Dim intAntwort As Integer
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Set rngAktZelle = ActiveCell
  
  'Prüfen ob schon ein Blatt "Telefonliste" existiert
  strBlattname = "Telefonliste"
  blnVorhanden = False
  For intI = 1 To Sheets.Count
    If Sheets(intI).Name = strBlattname Then blnVorhanden = True
  Next
  If blnVorhanden = True Then
    intAntwort = MsgBox("Vorhandene Telefonliste überschreiben?", 36, "Frage")
    If intAntwort = vbNo Then
      Application.ScreenUpdating = True
      Application.EnableEvents = True
      rngAktZelle.Activate
      Exit Sub
    Else
    'ZielBlatt leeren
    Worksheets(strBlattname).UsedRange.Clear
    End If
  End If
  
  'Start des Datenbereichs in Zelle A9
  'Letzte benutzte Zeile ermitteln
  lngZeilenzahl = Cells(Rows.Count, 1).End(xlUp).Row
  Set rngDatenbereich = Union(ActiveSheet.Range(Cells(9, 1), Cells(lngZeilenzahl, 2)), _
                           ActiveSheet.Range(Cells(9, 10), Cells(lngZeilenzahl, 10)))
  rngDatenbereich.Copy
  
  'Blatt "Telefonliste" erzeugen
  If blnVorhanden = False Then
    Sheets.Add After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = "Telefonliste"
  Else
    Worksheets(strBlattname).Activate
    Cells(1, 1).Activate
  End If
  'Einfügen der Daten in Blatt "Telefonliste"
  ActiveSheet.Paste                 '<-----geht
  
'  ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False   '<-----geht nicht! Anwendungs od. Objektorientierter Fehler
  
  
  'Mitgliederliste darstellen und Cursor auf Ausgangsposition
  Application.EnableEvents = True
  Worksheets("Mitglieder").Activate
  rngAktZelle.Activate
  Application.ScreenUpdating = True
End Sub