ich habe mal wieder ein Problem.
Mit einem Button in einer Userform wird das aktive Tabellenblatt gespeichert und dann versendet.
Leider wird das Blatt mit falschen Farben (siehe Bild unten) gespeichert.
1. An was kann das liegen?
2. wie können die Formeln beim speichern entfernt werden?
Public Sub Senden()
Dim Monat As String
Monat = ActiveSheet.Name
Dim Benutzername As String
Benutzername = Sheets("Übersicht").Range("Name3").Value
Dim MailAdresse As String
MailAdresse = ThisWorkbook.Sheets("Legende").Range("A75").Value
On Error GoTo Fehler
Application.DisplayAlerts = False
Dim olApp As Object
Dim AWS As String
Dim strhtml As String
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=VERZEICHNIS & Bericht1 & " " & Monat & ".xls" 'FileFormat:= _
xlNormal
AWS = ActiveWorkbook.FullName
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
HTML-Bereich
'Empfänger
.To = MailAdresse
'Betreff
.Subject = Bericht1 & " vom" & " " & Monat
'Nachricht
.HTMLBody = strhtml
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
'.Attachments.Add VERZEICHNIS1 & Bericht1 & " vom" & " " & datDatum & ".xls"
.Attachments.Add AWS
.Send
End With
Set olApp = Nothing
ActiveWorkbook.Close
Fehler:
Application.DisplayAlerts = True
End Sub
Original: aktives Blatt
....nach dem speichern