Makro, Blatt Senden
20.02.2017 15:59:28
Mathi
Ich möchte die Werte und Zahlenformate eines Blattes auf ein anderes Blatt, Namens "PlanWerte", kopieren und anschließend an Outlook anhängen. Das Blatt "PlanWerte" ist ausgeblendet. Es soll nach der Aktion weiterhin ausgeblendet bleiben.
Dafür habe ich einen Code per Mekroaufzeichnung erstellt.
Sub Verschicken()
'
' Verschicken Makro
'
'
Cells.Select
Selection.Copy
Sheets("PlanWerte").Visible = True
Sheets("PlanWerte").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Copy
Application.Dialogs(xlDialogSendMail).Show
Sheets("PlanWerte").Select
Sheets("PlanWerte").Visible = False
Range("AH1:AX1").Select
End Sub
Der Code funktioniert nur, wenn der Schutzt der Mappe aufgehoben ist.
Das Blatt mit dam Namen "PlanWerte" wird kopiert und an Outlook angelegt.
Aber Der Cod kann nicht mehr das eingeblendete Blatt wieder ausblenden und ich bekommen eine Fehlermeldung.
Die Vorletzte Zeile nämlich
Sheets("PlanWerte").Visible = False
wird gelb markiert. Also diese Zeile kann nicht ausgeführt werden.
Und wenn ich den Schutzt der Mappe aktiviere, funktioniert dann garnicht mehr.
Ich habe versucht mit:
Private Sub Workbook_Open()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
With wks
.Protect Password:="Passwort", userinterfaceonly:=True
.Visible = True
.Activate
End With
Next wks
End Sub
Weiß jemand wie ich diese zwei Codes in einander integrieren kann, dass ein Blatt eingeblendet wird, eine Kopie davon erstellt und an Outlook angehängt, und danach wieder ausgeblendet wird?
Danke im Voraus
Mathi