UserForm bei T.blattwechsel andere Userform ......

ansprechen.
Guten Morgen zuerst.
Ich habe hier eine Tabelle mit 10 Tabellenblättern. 9 davon verwenden eine UserForm2, die widerrum eine andere UserForm1 anspricht um Bilder anzuzeigen. Ist es möglich, daß wenn ich das Tabellenblatt wechsel, die Hauptuserform, die auf der Arbeitsmappe gebunden ist, dann auch eine andere Userform nutzt, da ich diese auf das jeweilige Tabellenblatt binden muss?
UserForm2 ist auf die Arbeitsmappe gebunden. Auf der Arbeitsmappe ist folgender Code eingebunden


Private Sub Workbook_Open()
UserForm2.Show vbModeless
Worksheets(2).Activate
Worksheets(1).Activate
End Sub

Die UserForm2 selbst hat diesen Code


Private Sub CommandButton1_Click()
UserForm1.Show
End Sub


Private Sub UserForm_Initialize()
With Me
.StartUpPosition = 0
.Top = 130
.Left = 825
End With
End Sub

Ich gehe davon aus,daß es unerheblich ist, welchen Code die UserForm1 hat. Deshalb poste ich diesen Code nicht. Für Tipps oder Hilfestellungen, sofern ich sie mit meinem Wissen verarbeiten kann, wäre ich dankbar und wären hilfreich.
mfG
Andreas Müller

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andreas,
hier ein Beispiel, wie man den Code unter DieseArbeitsmappe anpassen muss, um beim Aktivieren eines Blattes ein entsprechendes Userform anzuzeigen.
Zusätzlich muss du im Code deiner Userforms für die Buttons, die die Bearbeitung im Userform beenden/abschliessen ggf. eine Anweisung
Me.Hide
oder
Unload Me
einfügen, damit die Prozeduren nicht in eine Verschachtelung geraten, sondern immer kontrolliert zu der Prozedur zurückkehren, die das Userform aufruft.
Gruß
Franz
Codebeispiel für DieseArbeitsmappe (Blatt Nr. 1 ist dabei das Blatt, bei dem Userform2 nicht angezeigt werden soll):


Private Sub Workbook_Open()
If ActiveSheet.Index  1 Then UserForm2.Show
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Userform anzeigen wenn Blatt aktiviert wird
Select Case Sh.Index
Case 1
'do nothing
Case 2 To 10
UserForm2.Show vbModeless
Case Else
MsgBox "Für Blatt """ & Sh.Index & " (" & Sh.Name _
& ")"" isr kein Case beim Aktivieren des Blatts festgelegt!"
End Select
End Sub

Code-Beispiel für Userform 2:


Private Sub CommandButton1_Click()
'Userform1 anzeigen
Me.Hide
UserForm1.Show
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub

Code-Beispiel für Userform 1:


Private Sub CommandButton1_Click()
'OK-Button
'do something Code
MsgBox "OK-Button geklickt!"
Unload Me
End Sub
Private Sub CommandButton2_Click()
'Abbrechen-Button
Unload Me
End Sub

Private Sub CommandButton1_Click() 'Userform anzeigen wenn Blatt aktiv Select Case ActiveSheet.Index Case 1, 2 'do nothing Case 3 UserForm1.Show Case 4 UserForm3.Show Case 5 UserForm4.Show Case 6 UserForm5.Show Case 7 UserForm6.Show Case 8 UserForm7.Show Case 9 UserForm8.Show Case 10 UserForm9.Show Case Else MsgBox "Für Blatt """ & ActiveSheet.Index & " (" & ActiveSheet.Name _ & ")"" ist kein Case für den Userformbutton festgelegt!" End Select End Sub

Private Sub CommandButton1_Click() 'Userform anzeigen wenn Blatt aktiv Select Case ActiveSheet.Name Case "Tabelle1", "Tabelle2" 'do nothing Case "Tabelle3" UserForm1.Show Case "Tabelle4" UserForm3.Show Case "Tabelle5" UserForm4.Show Case "Tabelle6" UserForm5.Show Case "Tabelle7" UserForm6.Show Case "Tabelle8" UserForm7.Show Case "Tabelle9" UserForm8.Show Case "Tabelle10" UserForm9.Show Case Else MsgBox "Für Blatt """ & ActiveSheet.Name _ & """ isr kein Case für Anzeige Userform festgelegt!" End Select End Sub

Beliebteste Forumthreads (12 Monate)

UserForm bei T.blattwechsel andere Userform ......

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UserForm bei T.blattwechsel andere Userform ......

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread