VBA-Codemodul nach Beenden einer UserForm anzeigen

12/03/2010 - 11:31 von Andreas Killer | Report spam
Juhu. :-)

Ich hab da eine UserForm mit der ich die Module in meinen Mappen
hàndle, u.a. ist da eine ListBox drin in der alle Module aufgelistet
sind. Nun möchte ich bei einem Klick auf einen Commandbutton die
UserForm beenden und zum Code des ausgewàhlten Modules springen, aber
das gelingt mir nicht.

Um das Problem simpel nachstellen zu können braucht man eine UserForm
mit einem CommanButton und diesem Code:

Private Sub CommandButton1_Click()
Dim CP As Object 'CodePane
Set CP = ThisWorkbook.VBProject. _
VBComponents("Modul1").CodeModule.CodePane
Unload Me
CP.Show
End Sub

Und dann noch ein normales Modul "Modul1" mit diesem Code:

Sub Test()
UserForm1.Show
End Sub

Wenn man das "Unload Me" auskommentiert funktioniert es zwar, aber die
UserForm làuft noch irgendeine Idee wie man die UF zu kriegt und
trotzdem im Code bleibt?

Andreas.
 

Lesen sie die antworten

#1 Peter Schleif
12/03/2010 - 12:25 | Warnen spam
Andreas Killer schrieb am 12.03.2010 11:31 Uhr:

irgendeine Idee wie man die UF zu kriegt und trotzdem im Code bleibt?



Me.Hide

Peter

Ähnliche fragen