For Schleife mit Variablen
18.07.2018 16:25:46
Tobias
Ich (kein Excel Experte) versuche ein Blatt in einer Datei zu vervielfältigen und in diesen Blättern jeweils nach "x" bzw "y" oder auch leeren zeilen zu filtern.
Die Dateneingabe erfolgt über eine UserForm mit mehreren Option Buttons und Check Boxen.
Jetzt hätte ich das Ganze gerne in eine For Schleife gepackt um meterweise Code zu vermeiden (dafür ist sie ja da...)
Nun komme ich aber bei der Variablenvergabe nicht so wirklich weiter.
Meine OptionButtons heißen bspw OptionbuttonRWR1; OptionbuttonRWR2; OptionbuttonRWR3;...
habe es versucht über eine Variable i zu lösen...leider will vba da nicht so wie ich
Code:
'DRUCKWERKE generieren
If fd_nr.Value > 0 Then
Sheets("Druckwerk (1)").Select
ActiveSheet.PageSetup.LeftHeader = "&B" & "Com. Nr: " & "&B" & com.Value & Chr(10) & "& _
B" & "Kunde: " & "&B" & customer.Value & Chr(10) & "&B" & "Datum: " & "&B" & Date
Columns("B").Select
Selection.EntireColumn.Hidden = True
Columns("G:H").Select
Selection.EntireColumn.Hidden = True
Columns("J:AZ").Select
Selection.EntireColumn.Hidden = True
Call filter_maschine
Dim fd
For fd = 2 To fd_nr
Worksheets("Druckwerk (1)").Copy before:=Worksheets("Slotter 1")
Next
'DRUCKWERKE FILTERN
Dim i As Integer
i = 1
For fdfilter = 1 To fd_nr
i = i + 1
ActiveSheet.PageSetup.CenterHeader = "&16" & "&B" & Chr(10) & "Druckwerk " & fd_nr
Sheets("Druckwerk (" & i & ")").Select
'Filter für keine Revolveroption
If OptionButtonRWKO & i.Value = True Then
Selection.AutoFilter Field:=17, Criteria1:=Array("z", "="), Operator:= _
xlFilterValues
Selection.AutoFilter Field:=18, Criteria1:="="
Selection.AutoFilter Field:=19, Criteria1:="="
End If
'Filter für Revolver
If OptionButtonRWR & i.Value = True Then
Selection.AutoFilter Field:=17, Criteria1:=Array("x", "y", "="), Operator:= _
xlFilterValues
Selection.AutoFilter Field:=18, Criteria1:=Array("y", "="), Operator:= _
xlFilterValues
End If
'Filter für Klippklapp
If OptionButtonRWKK & i.Value = True Then
Selection.AutoFilter Field:=17, Criteria1:=Array("y", "z", "="), Operator:= _
xlFilterValues
Selection.AutoFilter Field:=19, Criteria1:=Array("z", "="), Operator:= _
xlFilterValues
End If
'Filter für Hublift
If OptionButtonRWHL & i.Value = True Then
Selection.AutoFilter Field:=17, Criteria1:=Array("y", "z", "="), Operator:= _
xlFilterValues
Selection.AutoFilter Field:=18, Criteria1:=Array("z", "="), Operator:= _
xlFilterValues
End If
'Filter für keine Option Winkelverstellung
If OptionButtonWKO & i.Value = True Then Selection.AutoFilter Field:=20, Criteria1:= _
Array("z", "="), Operator:=xlFilterValues
'Filter für automatische Einhängeleiste (Winkel manuell)
If OptionButtonWM & i.Value = True Then Selection.AutoFilter Field:=20, Criteria1:= _
Array("x", "z", "="), Operator:=xlFilterValues
'Filter für automatische Winkeleinstellung
If OptionButtonWA & i.Value = True Then Selection.AutoFilter Field:=21, Criteria1:= _
Array("x", "="), Operator:=xlFilterValues
'Filter Farbkühlung
If CheckBoxFK & i.Value = False Then Selection.AutoFilter Field:=22, Criteria1:="="
'Filter Viskositätsregelung
If CheckBoxVR & i.Value = False Then Selection.AutoFilter Field:=23, Criteria1:="="
'Filter pH Regelung
If CheckBoxPH & i.Value = False Then Selection.AutoFilter Field:=24, Criteria1:="="
'Filter Gummiwalze
If OptionButtonGW & i.Value = True Then
Selection.AutoFilter Field:=25, Criteria1:=Array("x", "="), Operator:= _
xlFilterValues
Else: Selection.AutoFilter Field:=25, Criteria1:=Array("y", "="), Operator:= _
xlFilterValues
End If
'Filter Rakelkammer
If OptionButtonRK & i.Value = True Then
Selection.AutoFilter Field:=26, Criteria1:=Array("x", "="), Operator:= _
xlFilterValues
Else: Selection.AutoFilter Field:=26, Criteria1:=Array("y", "="), Operator:= _
xlFilterValues
End If
'Filter Negativrakel
If CheckBoxNR & i.Value = True Then
Selection.AutoFilter Field:=27, Criteria1:=Array("x", "="), Operator:= _
xlFilterValues
Else: Selection.AutoFilter Field:=27, Criteria1:=Array("y", "="), Operator:= _
xlFilterValues
End If
'Filter Eimer Füllstand
If CheckBoxEF & i.Value = False Then Selection.AutoFilter Field:=28, Criteria1:="="
Next
Else: Worksheets("Druckwerk (1)").Visible = False
End If