SHEETS KOPIEREN
19.06.2003 12:36:38
KLAUS
ICH HABE FOLGENDE FRAGE
ICH HABE FOLGENDEN CODE
Sub Absenden()
Application.Screen.Updating = False
ThisWorkbook.Worksheets(1).copy
ActiveWorkbook.SendMail"Email@.de"
ActiveWorkbook.Close savechanges:=False
Application.OnTime NextTime,"Versenden"
End Sub
Bei diesem code schickt er per Email jeweils das Blatt 1
Ich möcht dass Excel z.B. das Blatt 1-20 schickt von der Mappe
Was muss ich an dem Code ändern??
Danke im Voraus
Gruss Klaus