Procedure von mehreren Arbeitsblättern
20.08.2004 13: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?