CheckBox

Forumthread: CheckBox
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: CheckBox

CheckBox

15.03.2006 11:00:57

Rosenwasser

Hallo Experten,
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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: CheckBox

15.03.2006 11:23:19

u_

AW: CheckBox

15.03.2006 11:23:19

Hallo,


Private Sub CheckBox2_Change()
With Sheets("ZSK70")
If CheckBox2 = True Then
.Range("B16") = .Range("M16")
TextBoxP2.Text = .Range("F16").Value
.Range("N16") = 1
Else
.Range("B16") = 0
TextBoxP2 = ""
.Range("N16") = 0
End If
TextBox30.Value = Format(.Range("I8"), "#,##0.00")
End With
End Sub

Gruß
Geist ist geil!