kann hier mal jemand bitte auf den Code schauen, hab ich aus dem Forum aber läuft leider nicht. ´Bekomme immer Fehleranzeige " PasteSpezial Methode des Range-Obj. kann nicht ausgeführt werden.
Private Sub CommandButton7_Click()
Dim bytMsg As Byte
Sheets("Fin.-Anfrage").Copy
With ActiveSheet.UsedRange
.Copy
End With
Application.CutCopyMode = False
bytMsg = MsgBox("Datei wurde in neue Mappe kopiert." & vbLf & _
"Soll der Bereich in Werte umgewandelt werden?", vbYesNo)
If bytMsg = vbYes Then
'Hier Fehleranzeige
Range("C2:AG267").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
With ActiveWorkbook 'Kopie speichern
.SaveAs "c:\temp\mail_" & Format(Now, "DDMMYY_hhmmss") & ".xls"
.Close
End With
'und hier muss der Code für das Versenden der Mail hin.
End If
End Sub
Vielen Dank schon mal.
Gruß Torge