Ich hoffe das geht überhaupt so wie ich es meine.
Aktuell steht halt da:
Private Sub Workbook_Open()
UserForm.Show
End Sub
Und Im betreffenden Tabellenblatt steht:
Private Sub Worksheet_Activate()
UserForm4.Show
End Sub
Vg Marco
Private Sub Workbook_Open()
UserForm.Show
End Sub
Private Sub Worksheet_Activate()
UserForm4.Show
End Sub
Vg Marco
Private Sub Worksheet_Activate()
With UserForm1
.StartUpPosition = 0
.Top = 150
.Left = 20
.Show vbModeless
End With
End Sub
Gruß