CheckBox
15.03.2006 10:00:57
Rosenwasser
Kann unterstehenden Code vereinfacht werden?
Dass ziel ist mit einen CheckBox Werther in ein Arbeitsblatt "ZSK70" zu ändern, wenn einen Arbeitsblatt "Extruder" die Focus hat.
Private Sub CheckBox2_Change()
If CheckBox2 = True Then
Sheets("ZSK70").Range("B16") = Sheets("ZSK70").Range("M16")
TextBoxP2.Text = Sheets("ZSK70").Range("F16").Value
Sheets("ZSK70").Range("N16") = 1
Else: Sheets("ZSK70").Range("B16") = 0
TextBoxP2 = ClearContents
Sheets("ZSK70").Range("N16") = 0
End If
TextBox30.Value = Format(Sheets("ZSK70").Range("I8"), "#,##0.00")
End Sub
Vielen Dank