Hallo,

dank eines anderen Forums kann ich mit folgenden Script aus Excel heraus eine XML-Datei erzeugen.

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

Dieser Code funktioniert auch.

Nun möchte ich aber, dass in der Zeile

 MeinFile.WriteLine ("       <CAPTION><![CDATA[" & Zelle.Text & "]]></CAPTION>")

der Inhalt einer anderen Spalte, z.B. G erscheint. Die vorhergehende Zeile bleibt aber bei F.
Entweder sind die Zeilen dieser Spalten gemeinsam leer oder mit Inhalten gefüllt. 
Danke Karsten