Private Sub UserForm_Initialize()

 

'Die CheckBox kann die beiden Werte True und False annehmen:

Check1.Value = True

Check2.Value = False

 

End Sub

 

 

Private Sub Button_Take_Click()

 

Dim last As Integer

last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

 

Cells(last,1).Value = Text_Name

 

'Zwei Möglichkeiten, Informationen der CheckBox ins Tabellenblatt einzutragen

If Check1.Value = True Then Cells(last,2).Value = "Ja"

If Check1.Value = True Then Cells(last,2).Value = Check1.Caption

 

'Wenn mehrere Informationen in einer Zelle stehen sollen

If Check1.Value = True Then Cells(last,2).Value = Cells(last,2).Value & " + " & Check2.Caption

 

End Sub




Auf einen Blick - Alle Folgen der VideoReihe!

Du hast ein Thema das noch nicht behandelt wurde? Lass es mich wissen :)


Jetzt abonnieren & kein Video

mehr verpassen!

Meine Arbeit unterstützen

Meine Empfehlungen

(Bücher und mehr)