VBA Excel zu XML

[Tabellenkalk]

Hallo,

Ich habe ein Excel mit drei Spalten:

ID || Name || Level

Beispieldaten?

For Each Zelle In Bereich

wo ist denn End For?

If Zelle.Offset(0, 2).Text = 1 Then
        spalte = "Region"
    End If
    If Zelle.Offset(0, 2).Text = 2 Then
        spalte = "Company"
    End If
    If Zelle.Offset(0, 2).Text = 3 Then
        spalte = "Site"
    End If

MeinFile.WriteLine ("   <" & spalte & ">")

Diese Ausgaben sollten dann doch auch in der For-Schleife und in den If-Bereichen abgehandelt werden, oder?

Hat jemand einen Denkanstoß für mich?

hth
Gruß
Kalk