Hallo zusammen,
würde mich freuen, wenn mir jemand helfen könnte - ich habe bisher vergeblich versucht, selbst eine Lösung zu finden.
Ich will per Makro immer das aktive Sheet als Webseite speichern, als Dateiname möchte ich jeweils den Sheetname haben. Mit dem Makrorekorder bin ich bisher nur soweit gekommen:
Range("A1:N27").Select
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"W:\Dienstpläne Demand\Tagespläne nächste Woche.htm", "11.07.-17.07.", _
"$A$1:$N$27", xlHtmlStatic, "Tagespläne_21986", "")
.Publish (True)
.AutoRepublish = True
End With
ChDir "W:\Dienstpläne Demand"
Danke im Voraus!
Werner