Hallo zusammen,

ich habe folgedes Problem: Der Code funktioniert, jedoch habe ich sehr viele Combo - und Textboxen (>>>15) . Gibt es eine Möglichkeit mit einer weiteren Schleife von Combobox1 bzw. Textbox1 zu Combobox2 bzw. Textbox2 usw. zu springen?

Vielen Dank im Voraus.

Liebe Grüße Izzettin

 

'gayray: String Array mit 13 Einträgen (0-12)
'state: Int Wert zwischen 0-4

For j = 0 To 12 Step 1
With addstation 'meine userform
If .ComboBox1.Value = gayray(j) Then
      NeuerName = gayray(j) & .TextBox1.Value
      i = Sheets.Count 'nicht zu betrachten (nzb)
      Sheets("Fragenkatalog").Copy After:=Sheets(i)'nzb
      ActiveSheet.Name = NeuerName 'nzb
      Selection.AutoFilter Field:=10 + state, Criteria1:="x" 'nzb
      Selection.AutoFilter Field:=20 + j, Criteria1:="x" 'nbzb
      End If

If .ComboBox1.Value = gayray(j) Then
      NeuerName = gayray(j) & .TextBox2.Value
      i = Sheets.Count
      Sheets("Fragenkatalog").Copy After:=Sheets(i)
      ActiveSheet.Name = NeuerName
      Selection.AutoFilter Field:=10 + state, Criteria1:="x"
      Selection.AutoFilter Field:=20 + j, Criteria1:="x"
      End If

If .ComboBox1.Value = gayray(j) Then
      NeuerName = gayray(j) & .TextBox3.Value
      i = Sheets.Count
      Sheets("Fragenkatalog").Copy After:=Sheets(i)
      ActiveSheet.Name = NeuerName
      Selection.AutoFilter Field:=10 + state, Criteria1:="x"
      Selection.AutoFilter Field:=20 + j, Criteria1:="x"
      End If
Next