AW: Nachtrag
15.05.2012 11:31:49
KlausF
Hallo Michael,
probier mal das aus:
Sub html_ausw()
'Umwandlung der Tabellen in HTML
Dim pfad As String
pfad = ThisWorkbook.Path
If Right(pfad, 1) Application.PathSeparator Then pfad = pfad & Application.PathSeparator
If pfad = "" Then
MsgBox "Die Datei muß zuerst gespeichert werden"
Exit Sub
End If
With ActiveWorkbook.WebOptions
.Encoding = msoEncodingMacRoman
End With
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim intLZ As Long
intLZ = Worksheets("Auswertung").Range("A2").CurrentRegion.Rows.Count + 1
Worksheets("Auswertung").Select
Worksheets("Auswertung").Columns("A:I").AutoFit
Worksheets("Auswertung").Range("$A2:$K" & intLZ).Select
ActiveWorkbook.SaveAs FileName:=pfad & "\Auswertung.htm", FileFormat:=xlHtml, PublishOption:= _
xlSelection
Worksheets("Auswertung").Range("A1").Select
Worksheets("_Torschützen").Select
Worksheets("_Torschützen").Columns("E:J").AutoFit
Worksheets("_Torschützen").Range("$E2:$J" & intLZ).Select
ActiveWorkbook.SaveAs FileName:=pfad & "\torschuetzen.htm", FileFormat:=xlHtml, PublishOption: _
=xlSelection
Worksheets("_Torschützen").Range("A1").Select
Worksheets("_Scorer").Select
Worksheets("_Scorer").Columns("E:J").AutoFit
Worksheets("_Scorer").Range("$E2:$J" & intLZ).Select
ActiveWorkbook.SaveAs FileName:=pfad & "\scorer.htm", FileFormat:=xlHtml, PublishOption:= _
xlSelection
Worksheets("_Scorer").Range("A1").Select
Worksheets("_Strafzeiten").Select
Worksheets("_Strafzeiten").Columns("E:J").AutoFit
Worksheets("_Strafzeiten").Range("$E2:$J" & intLZ).Select
ActiveWorkbook.SaveAs FileName:=pfad & "\strafzeiten.htm", FileFormat:=xlHtml, PublishOption:= _
xlSelection
Worksheets("_Strafzeiten").Range("A1").Select
Worksheets("_Fairplay").Select
Worksheets("_Fairplay").Columns("E:J").AutoFit
Worksheets("_Fairplay").Range("$E2:$J" & intLZ).Select
ActiveWorkbook.SaveAs FileName:=pfad & "\fairplay.htm", FileFormat:=xlHtml, PublishOption:= _
xlSelection
Worksheets("_Fairplay").Range("A1").Select
Worksheets("Auswertung").Select
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox ("Alle Tabellen in HTML umgewandelt.")
End Sub
Ohne die ganze Selektiererei gehts nicht ...
Gruß
Klaus