Sub TextDateiErzeugen()
Dim FS As Object, MeinFile As Object
Dim Zelle As Range, Bereich As Range, Bereich2 As Range
Dim a&
Set FS = CreateObject("Scripting.FileSystemObject")
Set MeinFile = FS.CreateTextFile("C:\Users\++\Desktop\imageData.xml", True)
MeinFile.WriteLine ("<xml><SIMPLEVIEWER_DATA>")
With ThisWorkbook.Worksheets("DBA Tool")
Set Bereich = .Range("a37:a" & .Range("a65536").End(xlUp).Row)
End With
For Each Zelle In Bereich
MeinFile.WriteLine (" <IMAGE>")
MeinFile.WriteLine (" <NAME>" & Zelle.Text & "</NAME>")
MeinFile.WriteLine (" <CAPTION><CDATA></CAPTION>")
MeinFile.WriteLine (" </IMAGE>")
MeinFile.WriteLine ("")
a=a+1
if a=6 then
a=0
Set MeinFile = FS.CreateTextFile("C:\Users\++\Desktop\imageData" & x.address & ".xml", True)
MeinFile.WriteLine ("<xml><SIMPLEVIEWER_DATA>")
end if
Next Zelle
MeinFile.WriteLine ("</SIMPLEVIEWER_DATA>")
MeinFile.Close
Set FS = Nothing
Set MeinFile = Nothing
Set Bereich = Nothing
Set Zelle = Nothing
End Sub