Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

if blabla then ???

Forumthread: if blabla then ?

if blabla then ?
09.03.2005 08:20:02
Bernd
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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: if blabla then ?
09.03.2005 08:36:53
Ramses
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
Anzeige
super. vielen dank
09.03.2005 09:00:17
Bernd
AW: if blabla then ?
09.03.2005 09:02:37
UweD
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
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige