Herbers Excel-Forum - das Archiv

if blabla then ???

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: if blabla then ???
von: Bernd

Geschrieben am: 09.03.2005 08:20:02
guten morgen,
ich habe folgenden code:
Private Sub CommandButton3_Click()
Dim i As Integer
For i = 1 To 13
If Me.Controls("checkbox" & i) Then
Else
End If
Next i
End Sub

er prüft welche checkboxen von den 13 stück ein häckchen hat.
wenn nun zb checkbox 2,5,6 und 10 ein häcken hat, sollen nach buttonklick die
makros märz02, märz05, märz06 und märz10 gestartet werden.
und genau da habe ich probleme. Wie mache ich das?
vielen lieben dank für eure hilfe
gruss bernd
Bild

Betrifft: AW: if blabla then ???
von: Ramses

Geschrieben am: 09.03.2005 08:36:53
Hallo
Probier mal
Private Sub CommandButton3_Click()
Dim i As Integer
For i = 1 To 13
If Me.Controls("checkbox" & i) Then
if i < 10 Then
Application.Run "März0" & i
else
Application.Run "März" & i
End If
Else
' ?? Was willst du sonst machen
End If
Next i
End Sub

Gruss Rainer
Bild

Betrifft: super. vielen dank
von: Bernd
Geschrieben am: 09.03.2005 09:00:17
Bild

Betrifft: AW: if blabla then ???
von: UweD

Geschrieben am: 09.03.2005 09:02:37
Hallo

so ginge es:
Private Sub CommandButton3_Click()
Dim i As Integer
For i = 1 To 13
If Me.Controls("checkbox" & i) Then
Application.Run "März" & Format(i, "00")
Else
'mach nichts
End If
Next i
End Sub


Gruß UweD
 Bild