Blätter aufrufen über 2 UserForm
26.05.2020 20:16:24
Andreas
ich habe mal wieder ein Problem bei dem ich trotz Recherche nicht weiter komme.
Mit Hilfe von 2 UserForm möchte ich zwischen den Tabellen meiner Mappe wechseln. das heisst in Abhängigkeit vom Blatt wird immer eins der beiden UserForm eingeblendet. Auf einem der beiden UserForm sind noch zusätzliche Schaltflächen vorhanden, deswegen benötige ich 2 UserForm.
Leider funktioniert das alles nicht so richtig. Beim Umschalten bleibt die Tabelle "AG_AA_AS" hängen, bzw. die aktuelle UserForm wird nicht geschlossen. In der Originalmappe sind es natürlich mehr Tabellen, aber nur diese beiden Userform.
Och hoffe ich hab mich verständlich ausgedrückt.
Beispielmappe: https://www.herber.de/bbs/user/137770.xlsm
Folgender Code steht z.B in der Tabelle:
Option Explicit
Private Sub Worksheet_Activate()
UserForm_Schaltflächen_02.Show
End Sub
Private Sub Worksheet_Deactivate()
UserForm_Schaltflächen_02.Hide
Unload UserForm_Schaltflächen_02
End Sub
Private Sub CB_Notizen_Click()
Application.ScreenUpdating = False
Unload Me
ActiveSheet.Unprotect
Sheets("Notizen").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("B101").Select
'Application.ScreenUpdating = True
End Sub
Private Sub CB_AG_AA_AS_Click()
Application.ScreenUpdating = False
Unload Me
ActiveSheet.Unprotect
Sheets("AG_AA_AS").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("B101").Select
'Application.ScreenUpdating = True
End Sub
Vielen Dank fürs lesen und die Mühe.
mfg, Andreas
Anzeige