Private Sub xyz_Click()
For x = 1 To 34
sptgm$ = Right$("0" & Trim$(Str$(x - 1)), 2)
sptgp$ = Right$("0" & Trim$(Str$(x) + 1), 2)
sptgnr$ = Right$("0" & Trim$(Str$(x)), 2)
Open Sheets("1").Cells(23, 2) & "abgabe" & sptgnr$ & ".htm" For Output As #1
Print #1, "<html>"
... |