benutzerdefinierte Ansicht bei Weiterleitung
17.03.2015 15:26:32
Roy
ich habe folgendes Problem, bei dem ihr mir hoffentlich behilflich sein könnt. Ich verschicke per Commandbutton und dazugehörigem Makro einen im Vorfeld über die benutzerdefinierte Ansicht um Leerzeilen bereinigten Bereich via Outlook an meine Kollegen. In der von mir erstellten Mail ist die benutzerdefinierte Ansicht intakt - spcih keine Leerzeilen zu sehen. Wird die Mail allerdings weitergeleitet, sind alle vormals ausgeblendeten Leerzeilen wieder eingeblendet, was ich unterbinden möchte. Am liebsten wäre mir daher ein echter Screenshot einer definierten Range. Ich habe es auch schon mit Range("x:x").CopyPicture xlScreen, xlBitmap probiert. Leider trat das gleiche Problem auf.
Hier mein Code für diese Funktionalität
Sub Outlook_senden()
Columns("B:B").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("H:H").EntireColumn.AutoFit
Columns("I:I").EntireColumn.AutoFit
Columns("J:J").EntireColumn.AutoFit
Columns("K:K").EntireColumn.AutoFit
Columns("L:L").EntireColumn.AutoFit
Columns("M:M").EntireColumn.Hidden = True
Columns("N:N").EntireColumn.Hidden = True
Columns("P:P").EntireColumn.Hidden = True
Range("B2:L204").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.Subject = ActiveSheet.Range("P2") 'Dies ist der Betreff
.Item.To = ActiveSheet.Range("P1") 'Dies ist der Empfänger
.Item.Send
End With
ActiveWorkbook.EnvelopeVisible = False
End Sub
Vielleicht hat ja jemand eine Idee dieses Problem zu beheben
Vielen Dank vorab