Sub TextDateiErzeugen()
Dim FS As Object, MeinFile As Object
Dim Zelle As Range, Bereich As Range
Set FS = CreateObject("Scripting.FileSystemObject")
Set MeinFile = FS.CreateTextFile("E:\_Userdaten\Karsten\Homepagematerial\Kundengalerie_Version2_0\imageData_erst.xml", True)
MeinFile.WriteLine ("<xml><SIMPLEVIEWER_DATA>")
With ThisWorkbook.Worksheets("Tabelle1")
Set Bereich = .Range("f1:f" & .Range("f65536").End(xlUp).Row)
End With
For Each Zelle In Bereich
MeinFile.WriteLine (" <IMAGE>")
MeinFile.WriteLine (" <NAME>" & Zelle.Text & "</NAME>")
MeinFile.WriteLine (" <CAPTION><![CDATA[" & Zelle.Text & "]]></CAPTION>")
MeinFile.WriteLine (" </IMAGE>")
MeinFile.WriteLine ("")
Next Zelle
MeinFile.WriteLine ("</SIMPLEVIEWER_DATA>")
MeinFile.Close
Set FS = Nothing
Set MeinFile = Nothing
Set Bereich = Nothing
Set Zelle = Nothing
End Sub