Einblenden Tabellenblatt über UserForm
13.12.2022 11:31:39
Zulu
ich bin mal wieder auf eure Hilfe angewiesen.
Ich habe eine Userform erstellt in welcher ein Tabellenblatt ausgewählt wird und das dazugehörige Passwort in einer Textbox eingegeben werden muss. Wenn das Passwort korrekt ist möchte ich, dass das Tabellenblatt eingeblendet wird. Die Combobox zur Eingabe des Tabellenblatts habe ich tbWerk genannt.
Der aktuelle Code sieht wie folgt aus:
Private Sub CommandButton1_Click()
Dim Ergebnis As Range
Set Ergebnis = blattKey.Columns(4).Find(what:=tbWerk, lookat:=xlWhole)
If blattKey.Cells(Ergebnis.Row, 6).Value = tbPasswort Then
Worksheets(tbWerk).Visible = True
Else
MsgBox "Das Passwort ist falsch"
End If
End Sub
Das Problem ist die Zeile in welcher das Tabellenblatt angesprochen wird. Wie kann ich die Eingabe übergeben?
Danke schonmal für eure Mühe und viele Grüße