AW: Befehlsverkürzung
26.07.2007 06:21:46
Oberschlumpf
Hi Andrea
Versuch es mal mit diesen Codes
Für ALLE Optionbuttons
Private Sub OptionButton1_Click()
Call Berechnen(1)
End Sub
Private Sub OptionButton2_Click()
Call Berechnen(2)
End Sub
Private Sub OptionButton3_Click()
Call Berechnen(3)
End Sub
das folgende Makro nur 1x in ein allgemeines Modul
Sub Berechnen(ByVal wert As Integer)
With UF_Dat
.Label1.Caption = "Moment bitte, ich rechne"
.Label1.BackColor = &HFF& 'rot
.CB_Close.Enabled = False
.Repaint
End With
Sheets("Daten").Cells(1, 1) = wert
Buch
MsgBox "Alles durchgerechnet"
With UF_Dat
.Label1.Caption = "wählen Sie bitte aus"
.Label1.BackColor = &HFFFF& 'gelb
.CB_Close.Enabled = True
End With
End Sub
Wie du vielleicht schon erkannt hast, wird bei Klick eines Optionbuttons das Makro "Berechnen" mit Übergabe eines definierten Wertes aufgerufen.
So musst du das eigentliche Berechnungs-Makro nicht 20x wiederholen. Es wird immer mit einem anderen Wert aufgerufen - hier eben die Werte 1 - 20, für die du nur 1 Zeile in jedem Klick-Ereignis eines Optionbuttons schreiben musst.
Leider konnte ich meinen Vorschlag vorher nicht testen, da ich dafür vorher ein UF mit Optionbuttons hätte erstellen müssen. Dafür reichte die Zeit nicht mehr.
Hilft denn meine Idee?
Ciao
Thorsten