Hallo Leute,
Ich möchte Formate und Werte einer Tabelle einfügen, hier mein Codeausschnitt:
Sheets(wksBlattNeu.Name).Activate
Sheets(wksBlattNeu.Name).Cells(Zelle3, Spalte3).Select 'Blatt in das eingefügt werden soll
'einfügen
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Es wird die Fehlermeldung "Die Paste Special Methode des Range Objekts konnte nicht ausgeführt werden" ausgegeben.
Was kann da falsch sein?
mfg florian |