Speichern unter
20.11.2018 11:51:53
Tommy
Ich speichere eine Datei als html mit dem unten stehenden Code.
Wie bekomme ich nun hin, das ich den Dateinamen aus den Tabellenblat Daten. Zelle A1 eingeben kann?
Sub html_veroeffentlichen()
Sheets("Monatsansicht").Select
With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"U:\Groups\BuT-MWP\MesswartePlanung\MesswBelegPlanAkt.htm", _
"Monatsansicht", "", xlHtmlStatic, "Schichtplan", "")
.Publish (True)
.AutoRepublish = False
End With
Worksheets("Jahresplan Vorplanung").Activate
End Sub