Funktionsname aus Variable
14.10.2003 16:58:12
Silvia
Ich wollte fragen ob ich Funktionen durch Variable aufrufen kann:
und zwar hab ich mehrere Checkboxen die cbAI, cbAAG, cbUHV, usw heißen, sie haben also alle als erste 2 Buchstaben cb, dahinter kommt dann die eigentliche bezeichnung.
und dann hab ich noch genausoviele Funktionen mit den Namen AI, AAG, UHV, usw..
mit folgendem Code möchte ich die funktionen aufrufen, wenn die Checkboxen true sind:
Private Sub UF2_berechnen_Click()
Dim cb As Object
For Each cb In Me.Controls
If TypeName(cb) = "CheckBox" Then
If cb.Value = True Then
Call Right(cb.name, Len(cb.name) - 2)
End If
End If
Next cb
Unload Me
End Sub
oder aber:
If cb.Value = True Then
Dim FktName as string
FktName = Right(cb.name, Len(cb.name) - 2)
Call FktName
End If
lg, Silvia
Anzeige