habe über das Forum (von Hoffi) einen Code erhalten, einmal funktioniert danach nicht.
Wieso ?
'
Sub VF_UF_kopieren()
'Dim s As String
'Dim sf As String
'Dim wb As Workbook
'sf = "C:\Test.xls"
's = "C:\test.frm"
'Set wb = Workbooks.Open(sf)
'ThisWorkbook.VBProject.VBComponents("UserForm1").Export s
'wb.Activate
'If ActiveWorkbook.VBProject.VBComponents("UserForm1") Is Nothing Then <<<<
' ActiveWorkbook.VBProject.VBComponents.Import s
' Kill s
'Else
'MsgBox "UF vorhanden"
' Kill s
' Exit Sub
'End If
'End Sub
bleibt hier stehen: Wenn ich die UF handich kopiere und anschließend aufrufe, erkennt mein Makro dies und bestätigt mit "UF vorhanden", vielleicht hat jemand einen Tip,
Danke im voraus,
mfg Walter