Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen

Procedure von mehreren Arbeitsblättern

Betrifft: Procedure von mehreren Arbeitsblättern von: Sven
Geschrieben am: 20.08.2004 13:24:40

Hi,

ich hab folgenden Code auf mehreren Arbeitsblättern:

Private Sub CheckBox1_Change()
    Call box(CheckBox1)
End Sub

Private Sub CheckBox2_Change()
    Call box(CheckBox2)
End Sub

Private Sub CheckBox3_Change()
    Call box(CheckBox3)
End Sub


Sub box(ByVal objCalling As Object)
welchebox = objCalling.Name
Select Case welchebox
Case "CheckBox1"
i = "6"
Case "CheckBox2"
i = "7"
Case "CheckBox3"
i = "8"
End Select

If objCalling.Value And Range("D" & i).Value > 5 Then
Range("I" & i & ":L" & i) = Empty
Range("H" & i) = "1"
Range("I" & i & ":L" & i).Interior.ColorIndex = 48
Range("B" & i).Font.Strikethrough = True
Else
Range("H" & i) = "0"
Range("I" & i & ":L" & i).Interior.ColorIndex = 2
Range("B" & i).Font.Strikethrough = False
End If
End Sub

Deshalb möchte ich eine wenig optimieren und die Procedure "box" als global deklarieren und von allen Arbeitsblättern aus nutzen.
Wie mach ich das am besten?
  


Betrifft: AW: Procedure von mehreren Arbeitsblättern von: harry
Geschrieben am: 20.08.2004 13:57:45

hi,
die sub einfach in ein standardmodul geben.

liebe grüße,
harry


  


Betrifft: AW: Procedure von mehreren Arbeitsblättern von: Sven
Geschrieben am: 20.08.2004 14:13:55

Manchmal isses halt doch zu einfach :-D

Danke, ging natürlich!


  


Betrifft: AW: Procedure von mehreren Arbeitsblättern von: harry
Geschrieben am: 20.08.2004 14:40:58

gib zu, dass hast du nur gepostet, damit ich auch einmal was gescheites von mir geben kann :-))


  


Betrifft: AW: Procedure von mehreren Arbeitsblättern von: Sven
Geschrieben am: 20.08.2004 14:50:23

*vorsichhinpfeift* *gr*


 

Beiträge aus den Excel-Beispielen zum Thema "Procedure von mehreren Arbeitsblättern"