Hi,
es gibt zwei Möglichkeiten zum Antworten:
einmal über den Zitatantwort-Button, dort wird das Makro mit der HTML_Formatierung zitiert. In der Vorschau und im abgesendeten Beitrag kommt es korrekt:
Zitat:ich habe es jetzt so gemacht:
Sub M_snb_erweitert()
strPfadDatei = ThisWorkbook.Path & "\" & ThisWorkbook.Name
With ThisWorkbook.Sheets("sheet4")
.ExportAsFixedFormat 0, "C:\temp\" & Cells(23, 11) & ".pdf"
.Shapes.SelectAll
Selection.Cut
Application.DisplayAlerts = False
.SaveAs "C:\temp\" & Cells(23, 11) & ".xlsx", 51
.Paste
End With
ThisWorkbook.SaveAs strPfadDatei & ".xlsb", 50
End Sub
VBA/HTML - CodeConverter für Office-Foren, AddIn für Excel/Word 2000-2013 - komplett in VBA geschrieben von Lukas Mosimann. Projektbetreuung durch mumpel
Code erstellt und getestet in Office 15
zum anderen, über den Antworten-Button, dort muß das Zitat manuel eingefügt werden.
Das Makro aus dem Ursprungsbeitrag kopiert und eingefügt, kommt es ohne Farben:
Sub M_snb_erweitert()
strPfadDatei = ThisWorkbook.Path & "\" & ThisWorkbook.Name
With ThisWorkbook.Sheets("sheet4")
.ExportAsFixedFormat 0, "C:\temp\" & Cells(23, 11) & ".pdf"
.Shapes.SelectAll
Selection.Cut
Application.DisplayAlerts = False
.SaveAs "C:\temp\" & Cells(23, 11) & ".xlsx", 51
.Paste
End With
ThisWorkbook.SaveAs strPfadDatei & ".xlsb", 50
End Sub
Das Makro aus dem Ursprungsbeitrag kopiert und mit dem Zitate-Blase-Button (quote-Tags erzeugt) und dann eingefügt, kommt es auch ohne Farben:
Zitat:Sub M_snb_erweitert()
strPfadDatei = ThisWorkbook.Path & "\" & ThisWorkbook.Name
With ThisWorkbook.Sheets("sheet4")
.ExportAsFixedFormat 0, "C:\temp\" & Cells(23, 11) & ".pdf"
.Shapes.SelectAll
Selection.Cut
Application.DisplayAlerts = False
.SaveAs "C:\temp\" & Cells(23, 11) & ".xlsx", 51
.Paste
End With
ThisWorkbook.SaveAs strPfadDatei & ".xlsb", 50
End Sub
mit quote und code-Tags ebenfalls:
Zitat:Code:
Sub M_snb_erweitert()
strPfadDatei = ThisWorkbook.Path & "\" & ThisWorkbook.Name
With ThisWorkbook.Sheets("sheet4")
.ExportAsFixedFormat 0, "C:\temp\" & Cells(23, 11) & ".pdf"
.Shapes.SelectAll
Selection.Cut
Application.DisplayAlerts = False
.SaveAs "C:\temp\" & Cells(23, 11) & ".xlsx", 51
.Paste
End With
ThisWorkbook.SaveAs strPfadDatei & ".xlsb", 50
End Sub
Das einzige, wo die Farben erscheinen, ist bei der Zitatantwort. Wenn dann der Code noch nachbearbeitet wird (da sind die HTML-Tags drin) ist es kompliziert, aber wer ändert einen zitierten Code im Zitat?