UserForm löschen verursacht Fehler
06.12.2013 13:43:53
Johannes
ich erstelle über ein Makro ein UserForm. Vorher prüfe ich ob bereits eines mit dem betreffenden Namen vorhanden ist und frage nach ob dieses ggfl. gelöscht werden soll. Falls der User angibt, dass das bestehende UserForm gelöscht werden soll führe ich nachfolgenden Code aus. Jetzt kommt es aber immer wieder vor, dass ich in der Zeile, in der der Name vor dem Löschen umbenannt werden soll, eine Fehlermeldung erhalte, dass der Pfad/die Datei nicht gefunden werden kann. Wenn ich dann das Makro nocheinmal ausführe, dann hängt sich Excel komplett auf. Bin im Moment etwas ratlos, da es auch schon sehr oft ohne Probleme funktioniert hat. Danke für eure Hilfe.
Gruß
Johannes
Sub UserForm_löschen(sUFName As String)
Dim sTMP As String
sTMP = "TMP" & Replace(Date, ".", "") & Replace(Time, ":", "") 'eindeutige Temp-Bezeichnung _
erzeugen
With ActiveWorkbook.VBProject
'Userform löschen
.VBComponents.Item(sUFName).Name = sTMP 'vor dem Löschen umbenennen damit der Name anschließ _
end wieder zur Verfügung steht
.VBComponents.Remove .VBComponents(sTMP)
End With
End Sub
Anzeige