Eine einfache Möglichkeit, Arrays abzufüllen und Standards zu setzen. (ZB. wenn BO Queries die Tabellenköpfe wüst abfüllt).
Sub scm()
Dim scm_arr
scm_arr = Array(„“, „TATP“, „Auftrag ID“, „Auftrag“, „Projekt ID“, „Projekt“, „Planposition ID“, „Planposition“, „Teilprojekt“, „Kostenart ID“, „Kostenart“, „Kreditor ID“, „Kreditor“, „Belegart“, „Beleg Nr.“, „Belegtext“, „Geschäftsjahr“, „Periode/Jahr“, „Periode“, „Belegdatum“, „CHF“)
For i = 1 To UBound(scm_arr)
Debug.Print i
Cells(1, i).Value = i
Cells(2, i).Value = scm_arr(i)
Next i
Bemerkung: mit dem „“ am Anfang des Array fülle ich die Position 0 der Kette mit einem Blank. Der Vorteil ist dann die Steuerung der Loops, die immer bequem mit 1 beginnen und keine Kniffe benötigen.