Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CheckBox

Forumthread: CheckBox

CheckBox
15.03.2006 10: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
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CheckBox
15.03.2006 10:23:19
u_
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!
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige