ich habe folgendes Problem: Mit ua Code sollen Werte und Formate einer Zeile kopiert werden. Es wird jedoch immer folgende Fehlermeldung ausgegeben: "Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden."
Der Code hat auch schon funktioniert, nur nach einer 'Layout'-Änderung an der Tabelle wird zwar kopiert, aber bei den Formaten hakt es.
Option Explicit
Dim DS As Object
Dim letzterDS As Long
Private Sub cmdUebernehmen_Click()
letzterDS = Range("A65536").End(xlUp).Row
If Cells(9, 3) = Cells(letzterDS, 3) Then
MsgBox "Doppelter Datensatz", vbExclamation, Title:="Motorola-Log"
Exit Sub
End If
Set DS = Range("A9:V9")
DS.Copy
With Cells(letzterDS + 1, 1)
.PasteSpecial Paste:=xlValues
.PasteSpecial Paste:=xlFormats
End With
End Sub
Gruß aus Brandenburg
Tim Brandt