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

Beiträge aus den Excel-Beispielen zum Thema "Wenn-funktion"