Office: Userform löschen und erstellen

MichaelMichael · 14. November 2006

Hallo,

ich will eine Userform löschen und erstellen. Wenn sie noch nicht da ist klappt es. Wird der Löschfall durchlaufen fällt das Makro in der Zeile

.Properties("Name") = "UserFormTEST"

mit Laufzeitfehler 75 Fehler beim Zugriff auf Pfad/Datei auf den Bauch.

Code:

Private Sub Workbook_Open()

Dim objtmp As Object

With ActiveWorkbook.VBProject
For Each objtmp In .VBComponents
If objtmp.Type = 3 Then
If objtmp.Name = "UserFormTEST" Then
.VBComponents.Remove objtmp
End If
End If
Next
End With

Set objtmp = ActiveWorkbook.VBProject.VBComponents.Add(3)
With objtmp
.Properties("Caption") = "Temporary Form"
.Properties("Name") = "UserFormTEST"
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was ist beim Löschen falsch? Was geht kaputt?

MfG Michael

:)

chris-kaiser · 16. November 2006

hiho

:-)

Code:

Private Sub Workbook_Open()

Dim objtmp As Object

With ActiveWorkbook.VBProject
For Each objtmp In .VBComponents
If objtmp.Type = 3 Then
If objtmp.Name = "UserFormTEST" Then
.VBComponents.Remove objtmp
End If
End If
Next
End With

ActiveWorkbook.Save

Set objtmp = ActiveWorkbook.VBProject.VBComponents.Add(3)

With objtmp
.codemodule.Name = "UserFormTEST"
.Properties("Name") = "UserFormTEST"
.Properties("Caption") = "Temporary Form"
End With

Set objtmp = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MichaelMichael · 16. November 2006

Hallo Chris,

es funktioniert. Anscheinend werden durch das Speichern einige Sachen geradegezogen.

Thx.

MfG Michael

Office: Userform löschen und erstellen

Userform löschen und erstellen

Userform löschen und erstellen

Userform löschen und erstellen - Similar Threads - Userform löschen erstellen

Userform unterdrücken - wenn Datei von andere Datei geöffnet wird

UserForm in Office 2019 für MacOS fehlt

Userform Login Benutzername in Zelle schreiben

Userform => Eintragen, Speichern, Ändern und Löschen mit PW

UserForm mit den Funktionen: suchen, ändern, löschen

UserForm Textfelder deaktivieren UND löschen

Checkbox in Userform Inhalt löschen?