UserForm
Erik
Habe eine UserForm erstellt mit drei Button,mein Problem ist der letzte "Materialbibliothek", dieser soll eine andere UserForm "materialbibliohhek" ( erstellt für Seite "Projekt")öffnen aber auf der aktuellen Seite bleiben. Dies macht er aber nicht sondern er öffnet die UserfORM AUF DER sEITE "Projekt", so wie ich es ihm gesagt habe.
kann nir einer den Befehl dafür sagen das er auf der aktuellen Seite bleibT?
Gruss ERIK
Private Sub CommandButton1_Click()
Dim frm As UserForm10
Set frm = UserForm10
If frm.OptionButton1.Value Then iKenn = 1 'Material
If frm.OptionButton2.Value Then iKenn = 2 'Beschläge
If frm.OptionButton3.Value Then iKenn = 3 'Materialbibliothek
Sheets("Projekt").Activate
Select Case iKenn
Case 1
Sheets("Material").Select
Range("D7").Select
Case 2
Sheets("Beschläge1").Select
Range("D7").Select
Case 3
UserForm9.Show
Case Else
MsgBox "Fehler, Sie haben keine Auswahl getroffen!"
End Select
Unload Me
Exit Sub
End Sub