Habe ein Makro, das die verschiedenen Tabellenblätter automatisch an verschiedene E-Mail Adressen sendet. Dazu werden die Blätter aber "zwischengespeichert". Dabei gehen aber die Makros verloren ...
Habe versucht die Makros wieder automatisch zu importieren, was mir aber nicht geglückt ist.
Kann mir jemand weiterhelfen?
Hier der bisherige code:
Sub Mail_every_Worksheet()
Dim Mldg, Stil, Titel, Antwort, Text1
Mldg = "xxxx"
Stil = vbYesNo + vbQuestion + vbDefaultButton1
Titel = "xxxx"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Dim sh As Worksheet
Dim wb As Workbook
Dim strdate As String
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
If sh.Range("a2").Value Like "*@*" Then
strdate = Format(Now, "dd-mm-yy")
sh.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs sh.Name & " " & strdate & ".xls"
.SendMail ActiveSheet.Range("a2").Value, _
"xxxxxx"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End If
Next sh
Application.ScreenUpdating = True
Else
End If
End Sub
Habe versucht diese zeile nach .SaveAs einzufügen, funktioniert aber nicht.
.VBProject.VBComponents.Import "H:\xx\xx\Makros\Modul3.bas"
Wäre toll wenn jemand eine Lösung wüsste.
greetings reto e.