Hallo Ich habe folgenden Code:
For i = 4 To LZeil
Select Case Cells(i, 2)
Case "AI"
AI FstOB, XMLName(Cells(i, 3)), i * 10, Cells(i, 4)
Case "AI_TC"
AI_TC FstOB, XMLName(Cells(i, 3)), i * 10, Cells(i, 4)
Case Else
MsgBox "FC/FB Typ " + Cells(i, 2) + " für " + Cells(i, 3) + " in Zeile " & i...