Excel 2010 Excel 2013

Sub Workbook_Open()
Dim x As Integer
Dim strArray() As Variant
strArray = Array("Bahnhof", "Abfahrtszeit", "Ankunftszeit", "Zugnummer", "Datum")
With Sheets("Tabelle4").ComboBox21
.AddItem "ZvFQS Einfügen"
.AddItem "ZvF Ausfall"
.AddItem "ZvF Verspätung"
.ListIndex = 0
For x = 1 To 5
Sheets("Tabelle4").Cells(1, x) = strArray(x - 1)
Next x
End With
End Sub