Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Userform wird nicht angezeigt...

Betrifft: Userform wird nicht angezeigt... von: Andi
Geschrieben am: 31.08.2004 11:40:37

Hallo,

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
  


Betrifft: AW: Userform wird nicht angezeigt... von: mar.s
Geschrieben am: 31.08.2004 14:52:14

hallo andi,
hab mal am code rumgebastelt.
Im CommandButton1_Click Ereignis habe ich folg. geändert
Zeile(8) Worksheets(strWKS).visible=true gelöscht
Zeile 11 gelöscht
anstatt end - exit sub
Die Worksheet - Codes müssen in jedem Worksheet drinstehen.
Grüsse Mar.S


 

Beiträge aus den Excel-Beispielen zum Thema "Userform wird nicht angezeigt..."