Office: (Office 2010) VBA Druckbereich als html speichern

Hallo Leute

Beim Verwalten meiner ehemaligen Schulkameraden(innen) werden Informationen auch als htm-Seiten benötigt, da sie später auf die Webseite der ehemaligen Klasse hochgeladen werden.

Dazu verwende ich folgenden Code:

Sheets("Adressen").Select 'Sheet wird ausgewählt
ActiveSheet.Unprotect 'Der Schutz wird aufgehoben (erforderlich zum Einlesen unten)
' Application.Goto Reference:="Print_Area" 'Ist deaktiviert, da Druckbereich im Sheet definiert ist
With ActiveWorkbook.PublishObjects("Klassenliste_upd_10519") 'Soll den Druckbereich als htm-Seite speichern
.Filename = _
Range("Adressen!Kla_Liste_htm").Text 'Einlesen von Pfad und Filename für die Speicherung
.Publish (False)
.AutoRepublish = False
End With
Range("Cursor_Home").Select
Sheets("Anmeldung KlaZuKu2017").Select 'Das obige wiederholt sich für 3 weitere Druckbereiche auf 3 weiteren Sheets
' Application.Goto Reference:="Print_Area"
With ActiveWorkbook.PublishObjects("Klassenliste_upd_1980")
.Filename = _
Range("Adressen!Anm_Liste_htm").Text
.Publish (False)
.AutoRepublish = False
End With
etc.

Der Code zwischen den "With" und "End With" stammt von einer Makro-Aufzeichnung der Speicherung als htm/html, wobei ich den Filename aus einer Zelle abrufe.

Das funktioniert auf all meinen Win7pro-Rechnern mit Excel 2010 problemlos.
Lade ich die Datei auf einen MAC mit Excel2010 für MAC, bleibt der Code in der oben kursiv geschriebenen Zeilen hängen.

Das Argument "Klassenliste_upd_10519" resp. "Klassenliste_upd_1980" gibt mir Rätsel auf:
1. "Klassenliste_upd" ist offensichtlich der frühere Namen der xlsm-Datei. Sie ist längst umbenannt worden.
2. die Zahlen danach (10519 und 1980) sagen mir absolut nichts.

Jegliche Versuche am Code zur Erstellung der htm-Seiten etwas zu ändern, schlugen bisher fehl.

Kann mir jemand einen Vorschlag machen, wie ich den Code so anpassen kann, dass der frühere Dateiname und unverständliche Zahlen darin nicht mehr vorkommen?
Ich bin wirklich für jeden Hinweis sehr dankbar und danke dafür schon im Voraus.

:)

 

lade die Datei hoch.

 

Besten Dank für Deine Reaktion. Habe wohl gestern bei 36°C vor lauter Bäumen den Wald nicht mehr gesehen. Sorry!

Zwischenzeitlich habe ich das Problem lösen können. Folgender Code (ohne DivID) funktioniert auch auf dem MAC und lässt sich per FTP auch problemlos hochladen und publizieren:

ActiveSheet.Unprotect
With ActiveWorkbook.PublishObjects.Add(xlSourcePrintArea, _
Range("Adressen!Kla_Liste_htm"), "Adressen", "", _
xlHtmlStatic, "", "")
.Publish (True)
.AutoRepublish = False
End With


Wünsche noch eine schönes Wochenende.

 

applaus