Aktueller Reiter in UserForm anzeigen
27.06.2020 16:28:50
Eberhard
Ich kann über einen Doppelklick eine UserForm öffnen. In der UserForm befindet sich ein Label. Dort zeigt es mir je nach dem welches Tabellenblatt ich angeklickt habe einen Text an. Dies funktioniert auch. Wechsle ich aber jetzt das Tabellenblatt durch Klick auf den Reiter, dann sollte sich auch der Text im Label ändern. Doch leider funktioniert dies nicht!
Folgenden Code habe ich versucht:
Private Sub UserForm_Initialize()
With Label5
Label1.Font.Size = 14
Label1.TextAlign = 2
Label1.Font.Italic = True
If ActiveSheet.Name = "Etiketten Beschriften" Then
Label5.Caption = ("Kunde suchen für Etiktten Beschriften!")
Else
Label5.Caption = ("Kunde suchen für Pneu & Rad Tage!")
End If
End With
End Sub
Gruss Daniel