Schleife vereinfachen
30.05.2007 14:33:45
Specke
ich habe ein Makro geschrieben, in dem ich 4 Sub's habe, die das gleiche machen, nur die Speichervariablen sind unterschiedlich benannt.
Ich wollte das Makro vereinfachen und die Sub' nur einmal aufschreiben und die Variablen als Parameter mitgeben. Leider bekomme ich das nicht hin.
Hier eine Kurzform der Sub:
Sub Auswirkung_ok_Click()
j = 1
For i = 1 To UF_Auswirkung.Controls.Count - 1
If UF_Auswirkung.Controls("CheckBox" & i) = True Then
CheckBox_Name = UF_Auswirkung.Controls("CheckBox" & i).Caption
k = InStr(1, CheckBox_Name, " / ")
Auswirkung_deutsch(j) = Left(CheckBox_Name, k)
Auswirkung_englisch(j) = Right(CheckBox_Name, Len(CheckBox_Name) - k - 2)
j = j + 1
End If
Next i
If j > 1 Then
Auswirkung_gewählt = True
Anzahl_Auswirkung = j - 1
End If
UF_Auswirkung.Hide
End Sub
Auswirkung müsste ersetzt werden durch Grund, Status oder Auftrag.
Im Moment fällt mir keine elegante Lösung ein :-(
Vielen Dank und Gruß
Specke