Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
580to584
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige