Procedure von mehreren Arbeitsblättern
20.08.2004 15:24:40
mehreren
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?
Anzeige