Private Sub CommandButton1_Click()

'Name und Alter in Tabelle1 eintragen

Dim last As Integer

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

ActiveSheet.Cells(last,1).Value = TextBox1.ValueActiveSheet.Cells(last,2).Value = TextBox2.Value

'Caption des ToggleButton in Tabelle1 eintragen

ActiveSheet.Cells(last,3).Value = ToggleButton1.Caption

End Sub

Private Sub TextBox_Change()

If ToggleButton1.Value = True Then

'Falls der Button aktiviert ist

ToggleButton1.Caption = "Alter"

Range("A2").CurrentRegion.Sort Key1:=Range("B2"), Header:=xlYes

Else

'Falls der Button nicht aktiviert ist

ToggleButton1.Caption = "Name"

Range("A2").CurrentRegion.Sort Key1:=Range("A2"), Header:=xlYes

End if

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)