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
|