versuche mich jetzt schon den ganzen Morgen an einem problem: Meine Userform1 wird nicht angezeigt.
Der Code steht auf dem Tabellenblatt:
Private Sub Worksheet_Activate()
UserForm1.Show
Call Makro_fixieren_scrollen
End Sub
Private Sub Worksheet_Deactivate()
UserForm1.Hide
ActiveWindow.FreezePanes = False
End Sub
und mit diesem Code wird per Userform2 das Blatt ausgewählt:
Private Sub CommandButton1_Click()
'suchen nach Tab.blatt
Dim strWKS As String
Application.ScreenUpdating = False
If TextBox1.Value = "" Then Exit Sub
strWKS = TextBox1.Value
On Error GoTo ErrorHandler
Worksheets(strWKS).Visible = True
Worksheets(strWKS).Activate
Unload UserForm2
UserForm1.Show
Application.ScreenUpdating = True
End
ErrorHandler:
Unload UserForm2
If MsgBox("Blattname existiert nicht. Neues Prüfblattlatt anlegen?", vbYesNo) = vbNo Then
UserForm2.Show
Exit Sub
Else
Unload UserForm2
Call Makro_neues_Blatt_anlegen
UserForm4.Show
ActiveSheet.Visible = True
ActiveSheet.Name = Range("K2").Value
UserForm1.Show
End If
Unload UserForm2
Application.ScreenUpdating = True
'UserForm1.Show
End Sub
Habe schon viele Möglichkeiten probiert, komme aber einfach nicht weiter!
Gruß Andi