Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1204to1208
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
Inhaltsverzeichnis

Alle CommandButton_bei klick

Alle CommandButton_bei klick
DirkR
Hallo Excelgemeinde,
Ich habe folgenden Code und möchte diesen vereinfachen:
Private Sub CommandButton8_Click()
Call CommandButton1_Click
Call CommandButton2_Click
Call CommandButton3_Click
Call CommandButton4_Click
Call CommandButton5_Click
Call CommandButton6_Click
Call CommandButton7_Click
End Sub
Leider weiß ich nicht wie!!!!?
Ich dachte an so etwas, aber dies funzt natürlich nicht:
For I = 1 To 7
Call ("CommandButton" & I)
Next I
Ich hoffe auf Ideen!
Gruß DirkR

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Alle CommandButton_bei klick
17.03.2011 10:19:13
Rudi
Hallo,
die eigentlichen Prozeduren musst du in ein Modul auslagern, z.B.
Sub CButton1()
MsgBox 1
End Sub
Sub CButton2()
MsgBox 2
End Sub
Sub CButton3()
MsgBox 3
End Sub

etc.
Die Buttons rufen dann diese Prozeduren auf:
Private Sub CommandButton1_Click()
CButton1
End Sub
Private Sub CommandButton2_Click()
CButton2
End Sub
Private Sub CommandButton3_Click()
CButton3
End Sub

etc.
Für den letzten Button dann
Private Sub CommandButton8_Click()
Dim i As Integer
For i = 1 To 7
Application.Run ("CButton" & i)
Next
End Sub

Gruß
Rudi
Anzeige
AW: Alle CommandButton_bei klick
17.03.2011 14:54:54
DirkR
Hallo Rudi,
danke für deine Antwort, werde gleich testen.
Ich dachte, ich könnte direkt die Ereignise CommandButton_Click nacheinander aulsösen.
Gruß Dirk
AW: Alle CommandButton_bei klick
17.03.2011 10:19:45
Hajo_Zi
Hallo Dirk,
wo sind die?
Gruß Hajo
AW: Alle CommandButton_bei klick
17.03.2011 11:47:36
DirkR
Hallo Hajo,
im Modul Tabellenblatt.
Gruß Dirk

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige