StandardModule: basMain
Sub XL2HTML()
Dim iRow As Integer, iCol As Integer
Dim sFile As String
sFile = Range("K1").Value
Close
On Error GoTo ERRORHANDLER
Open sFile For Output As #1
On Error GoTo 0
Print #1, ""
Print #1, "
Print #1, ""
Print #1, "
Print #1, "
Print #1, ""
MsgBox "Datei wurde angelegt:" & vbLf & sFile
End
ERRORHANDLER:
MsgBox "Bitte den Verzeichnisnamen überprüfen!"
End Sub