Variable für Auswahlfeld

Public Sub getSheets()
'Übersicht
'Übersicht Makro
Dim objWs As Worksheet
Dim var1 As Variant, var2 As Variant, var3 As Variant, var4 As Variant, var5 As Variant, var6  _
As Variant, var7 As Variant
'Tabellengruppen
Const cstrGroup1 As String = "AAA,BB,CC"
Const cstrGroup2 As String = "DD,EE,FF,GG,HH,II"
Const cstrGroup3 As String = "JJ,KK,LL,MM,NN,OO,PP"
Const cstrGroup4 As String = "QQ,RR,SS,TT"
Const cstrGroup5 As String = "UU"
Const cstrGroup6 As String = "VV,XX,ZZZ"
Const cstrGroup7 As String = "ABC,DEF,KLM"
var1 = Split(cstrGroup1, ",")
var2 = Split(cstrGroup2, ",")
var3 = Split(cstrGroup3, ",")
var4 = Split(cstrGroup4, ",")
var5 = Split(cstrGroup5, ",")
var6 = Split(cstrGroup6, ",")
var7 = Split(cstrGroup7, ",")
'Auswahlfelder
With Sheets("Übersicht")
.ComboBox1.Clear
.ComboBox1.AddItem "Computer"
.ComboBox2.Clear
.ComboBox2.AddItem "Handys"
.ComboBox3.Clear
.ComboBox3.AddItem "Solutions"
.ComboBox4.Clear
.ComboBox4.AddItem "Internet"
.ComboBox5.Clear
.ComboBox5.AddItem "Projekte"
.ComboBox6.Clear
.ComboBox6.AddItem "Allgemeines"
.ComboBox7.Clear
.ComboBox7.AddItem "Kunden"
For Each objWs In ThisWorkbook.Worksheets
If Not objWs.Name = .Name Then
If IsNumeric(Application.Match(objWs.Name, var1, 0)) Then
.ComboBox1.AddItem objWs.Name
End If
If IsNumeric(Application.Match(objWs.Name, var2, 0)) Then
.ComboBox2.AddItem objWs.Name
End If
If IsNumeric(Application.Match(objWs.Name, var3, 0)) Then
.ComboBox3.AddItem objWs.Name
End If
If IsNumeric(Application.Match(objWs.Name, var4, 0)) Then
.ComboBox4.AddItem objWs.Name
End If
If IsNumeric(Application.Match(objWs.Name, var5, 0)) Then
.ComboBox5.AddItem objWs.Name
End If
If IsNumeric(Application.Match(objWs.Name, var6, 0)) Then
.ComboBox6.AddItem objWs.Name
End If
If IsNumeric(Application.Match(objWs.Name, var7, 0)) Then
.ComboBox7.AddItem objWs.Name
End If
End If
Next
.ComboBox1.ListIndex = 0
.ComboBox2.ListIndex = 0
.ComboBox3.ListIndex = 0
.ComboBox4.ListIndex = 0
.ComboBox5.ListIndex = 0
.ComboBox6.ListIndex = 0
.ComboBox7.ListIndex = 0
End With
End Sub