in Word kann man ein Dokument als "Webseite, gefiltert" speichern,
in Excel (2003) wird diese Option nicht angeboten.
Kennt jemand einen Trick oder ein Tool, um trotzdem zu einem ballastfreien, editierbaren HTML-Code zu gelangen?
hG
Rolf
Sub UWEntscheidDrucken()
Dim strDatei As String
strDatei = TempInternetVerzeichnis & "\Compliance.html"
Close #1
Open strDatei For Output As #1
With Worksheets(1)
Print #1, "<HTML>"
Print #1, "<B><U><FONT FACE=""Arial"" SIZE=3><P>" & .Range("B1") & "</P></B></U></FONT>"
Print #1, "<FONT FACE=""Arial"" SIZE=2>"
Print #1, "<B><P>" & .Range("B4") & ": " & "</B>" & .TextBox1 & "<BR>"
Print #1, "<B>" & .Range("B6") & ": " & "</B>" & .TextBox2 & "<BR>"
Print #1, "<B>" & .Range("B8") & ": " & "</B>" & .TextBox3 & "</P"
Print #1, "<P><B><U>" & .Range("B12") & "</B></U></P>"
Print #1, Zeilenschaltung(.TextBox4) & "</P>"
Print #1, "<P><B><U>" & .Range("B14") & "</B></U></P>"
Print #1, Zeilenschaltung(.TextBox5) & "</P>"
Print #1, "<P><B><U>" & .Range("B16") & "</B></U></P>"
Print #1, Zeilenschaltung(.TextBox6) & "</P>"
Print #1, "<P><B><U>" & .Range("B18") & "</B></U></P>"
Print #1, Zeilenschaltung(.TextBox7) & "</P>"
Print #1, "<P><B><U>" & .Range("B20") & "</B></U></P>"
Print #1, Zeilenschaltung(.TextBox8) & "</P>"
Print #1, "</HTML>"
End With
Close #1
ActiveWorkbook.FollowHyperlink Address:=strDatei, NewWindow:=True
End Sub