Code verkürzen

Hallo VBA-Cpmmunity,
gibt es einen Weg den folgenden Code zu verkürzen? Vielen Dank schonmal im Voraus.


Private Sub global_pst_Click()
If global_pst.Value = True Then
pos_pst.Value = False
mobile_pst.Value = False
web_pst.Value = False
scale_pst.Value = False
lpp_pst.Value = False
End If
End Sub

Private Sub pos_pst_Click()
If pos_pst.Value = True Then
global_pst.Value = False
End If
End Sub

Private Sub mobile_pst_Click()
If mobile_pst.Value = True Then
global_pst.Value = False
End If
End Sub

Private Sub web_pst_Click()
If web_pst.Value = True Then
global_pst.Value = False
End If
End Sub

Private Sub scale_pst_Click()
If scale_pst.Value = True Then
global_pst.Value = False
End If
End Sub

Private Sub lpp_pst_Click()
If lpp_pst.Value = True Then
global_pst.Value = False
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
probiers mal so:

Private Sub pos_pst_Click()
If ActiveControl.Value = True Then global_pst.Value = False
End Sub

die Programmzeile kannst du per Copy-Paste in die weitern Click-Eventmakros übernehmen, da über das ActiveControl automatisch auf das gerade angeklickte Element referenziert wird.
wenn der auszuführende Code etwas länger ist, würde ich ihn in ein allgemeines Makro auslagern und in den EventMakros nur aufrufen, mit übergabe des zu verwendenden Steuerelements:

Sub global_pst_Leeren(obj as object)
if obj.Value  = True then
global_pst.value = Valse
End if
End sub

die Klick-Events sehen dann so aus:

Private Sub pos_pst_Click()
Call global_pst_leeren(activecontrol)
End Sub

wenn sehr viele dieser Elemente hast, die immer das gleiche ausführen sollen, könntest du über Klassenprogrammierung nachdenken, da musst du nur ein Click-Eventmakro anlegen, welches du dann für alle gültig setzt.
Das ist dann aber schon höhere Schule und loht sich erst bei vielen Elementen, bzw vornehmlich dann, wenn die Elemente erst zur Laufzeit per Code erzeugt werden.
Gruß Daniel

Sub global_pst_Leeren(obj As Object) If obj.Value = True Then global_pst.Value = False End If End Sub Private Sub pos_pst_Click() Call global_pst_Leeren(ActiveControl) End Sub Private Sub mobile_pst_Click() Call global_pst_Leeren(ActiveControl) End Sub Private Sub UserForm_Click() End Sub Private Sub web_pst_Click() Call global_pst_Leeren(ActiveControl) End Sub Private Sub scale_pst_Click() Call global_pst_Leeren(ActiveControl) End Sub Private Sub lpp_pst_Click() Call global_pst_Leeren(ActiveControl) End Sub

Private Sub global_pst_Click() If global_pst = True Then pos_pst = False mobile_pst = False web_pst = False scale_pst = False lpp_pst = False End If End Sub Private Sub pos_pst_Click() If pos_pst then global_pst=false End Sub Private Sub mobile_pst_Click() If mobile_pst then global_pst=false End Sub ....

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Code verkürzen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread