Laufzeitfehler
28.10.2005 09:03:34
Torben
vielleicht kann mir jmnd helfen folgender Code :
Sub Mail_Senden()
Dim strdate As String
strdate = Date
Sheets("Tabelle1").Select
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
'ActiveSheet.Protect Password:="xxxx"
ActiveSheet.Name = Application.UserName & "_" & strdate
Range("A1").Select
Application.CutCopyMode = False
Application.Dialogs(xlDialogSendMail).Show "test@test.de", "Betreff"
ActiveWindow.Close
Range("A1").Select
End Sub
Fehler der ausgegeben wird "Die MEthode Paste für das Objekt Worksheet ist fehlgeschlagen"
Bitte um Eure Hilfe !!!