Hallo zusammen,
ich bin noch ziemlich neu in VBA und hab folgendes Problem:
Ich habe mehrere Worksheets, die ich nacheinander abspeichere und an bestimmte Empfänger verschicke. Dazu der Code:
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
mail = ws.Range("A1")
Application.ScreenUpdating = False
'Bildschirmaktualisierung abgeschaltet
Application.DisplayAlerts = False
'schaltet Meldungen aus
SavePath = "C:\temp" '"E:\Eigene Dateien"
'Kopiert aktuelles Sheet in eine neue Mappe
'welche nur diese Tabelle enthält
ActiveSheet.Copy
'Speichert die Datei unter dem Tabellennamen und einem Zeitstempel
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & "_" & Format(Now, "ddmmyyyy_hhmm") & ".xlsx"
'Mappenname wird an Variable übergeben
'und anschliessend gleich geschlossen
Application.DisplayAlerts = True
'schaltet Meldungen ein
Application.ScreenUpdating = True
etc.
Ich möchte jetzt aber nur ab Zeile 3 bis zum Ende (variabel) die jeweilige Datei verschicken.
Ich bekomme das nicht hin und hoffe, dass ihr mir da weiterhelfen könnt.
Schon mal vielen Dank im Voraus.
Franzi