Makro wird nur auf meinem Computer korrekt ausgefü
21.08.2007 10:14:41
Sascha
Folgender Code funktioniert bei mir einwandfrei:
Code:
Private Sub ExportButton_Click()
Sheet1.Select
Dim fName As String
fName = ThisWorkbook.Path & "\" & Sheets("Standardanalyse").Cells(2, 2) & "_" & Sheets(" _
Standardanalyse").Cells(4, 7) & "_" & Sheets("Standardanalyse").Cells(3, 7) & ".htm"
'Set a reference to the Publish object
ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
fName, "Standardanalyse", "R1C2:R87C11", xlHtmlStatic).Publish
Sheets("Standardanalyse").Select
Range("A1").Select
MsgBox "Report erfolgreich exportiert nach: " & fName
End Sub
Gebe ich das Excel-Sheet jedoch an Kollegen weiter, laufen diese in einen Runtime Error, "Publish" failed dort.
Woran kann das liegen? Im Prinzip sind die Office-Pakete identisch konfiguriert und in der gleichen Version...