Laufzeitfehler bei .CreateEventProc()
17.12.2007 17:29:00
Reinhard
in diesem Codesegment (Gesamtcode nachfolgend) kommt der im Segment und Betreff beschriebene Fehler bei
Zei=...
With ThisWorkbook.VBProject.VBComponents("Userform1").CodeModule
'T = Application.VBE.VBComponents("Userform1").CodeModule.CreateEventProc("Click", "cboLw")
'Laufzeitfehler 57017, Ereignisbehandlingsroutine ist ungültig
Zei = .CreateEventProc("Click", "cboLw")
'.InsertLines Zei + 1, "MsgBox ""huhu"""
.InsertLines Zei + 1, " '''''''"
End With
Grad eben in XL2002 getestet, da kommt auch der gleiche Fehler.
Wie kriege ich den weg?
Danke ^ Gruß
Reinhard
Private Sub UserForm_Initialize()
'Verweis auf MS Vba Extensibility muß gesetzt sein!
Dim N As Byte, T As Control, Zei As Long
Call Laufwerke
With UserForm1
For N = 1 To UBound(Lw)
Set T = UserForm1.Controls.Add("Forms.CheckBox.1", "chkLw" & N, True)
T.Top = 30
T.Left = N * 20
T.Value = True
Set T = UserForm1.Controls.Add("Forms.Label.1", "lblLw" & N, True)
T.Top = 45
T.Left = N * 20 + 3
T.Caption = Left(Lw(N), 1)
Next N
Set T = UserForm1.Controls.Add("Forms.Label.1", "lblLaufwerke", True)
T.Top = 15
T.Width = 150
T.Caption = "Zu durchsuchende Laufwerke auswählen:"
Set T = UserForm1.Controls.Add("Forms.CommandButton.1", "cboLw", True)
T.Top = 30
T.Left = UserForm1.Controls("lblLw" & N - 1).Left + 15
T.Width = 150
T.Height = 30
T.Caption = "Ausgewählte Laufwerke durchsuchen" & Chr(13) & "und Liste erstellen."
'DoEvents
End With
With ThisWorkbook.VBProject.VBComponents("Userform1").CodeModule
'T = Application.VBE.VBComponents("Userform1").CodeModule.CreateEventProc("Click", "cboLw")
'Laufzeitfehler 57017, Ereignisbehandlingsroutine ist ungültig
Zei = .CreateEventProc("Click", "cboLw")
'.InsertLines Zei + 1, "MsgBox ""huhu"""
.InsertLines Zei + 1, " '''''''"
End With
End Sub