Worksheet Name
19.08.2019 18:30:32
Tom
ich möchte eine Schleife erstellen, die durchlaufen werden soll, wenn das Arbeitsblatt einen bestimmten Namen hat. Dafür habe ich den folgenden VBA-Code geschrieben:
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
If Worksheet.Name = "Operator-1" Then
'Add child to root
Set elem = root.appendChild(XDoc.createElement("Child"))
'elem.Text = "Child"
'Add Attribute to child
elem.setAttribute "attr1", "value.attr1"
elem.setAttribute "attr2", "value.attr2"
'Add child to child
Set elem2 = elem.appendChild(XDoc.createElement("Child-2"))
elem2.Text = "Child-Child"
'Add child to root
Set elem3 = root.appendChild(XDoc.createElement("Child"))
elem3.Text = "Root-Child"
'MsgBox ActiveWorkbook.Worksheets(I).Name
End If
Next I
Jedoch kommt ein Fehler mit: Objekt erforderlich.
Weiss leider gerade nicht, was falsch ist?
Anzeige