Hallo,
folgenden Code habe ich erstellt, welcher dazu dienen soll, die Tabellenblätter 2 bis 5 abzupsiechern, taucht aber immer Fehler auf:
Kann einer mir sagen was ich da falsch mache?
Dim a As String
Dim b As Integer
For b = 2 To 5
a = MsgBox("Sollen alle HTML-Sites aktualisiert abgespeichert werden?", vbYesNo, "Achtung")
If a = vbNo Then
ActiveSheet.Range("a1").Select
Else
With Sheets(b)
Sheets(b).Select
ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"C:Test\qm_" & Sheets(b) & ".htm", "", xlHtmlStatic, _
"QM-SQL_AllinOne_22669", "").Publish (True)
End With
End If
Next b
LG
Urmila