Menüband inaktiv
08.12.2020 07:22:26
Sepp
Habe ein altbekanntes Problem allerdings keine optimale Lösung gefunden.
Ich öffne über eine Userform eine Arbeitsmappe. Bei dieser ist jedoch das Menüband inaktiv.
Ich kann es nur aktivieren wenn ich das Fenster minimiere und wieder maximiere.
Das Problem tritt nur auf wenn ich die Dateien über die Userform öffne.
Wenn ich die Datei normal über den Ordner öffne scheint das Phänomen nicht auf.
Hat vielleicht irgendwer eine Lösung für mich?
Dies ist das Makro mit dem ich die Dateien öffne:
Option Explicit
Const Verz = "F:\excel\"
'******************************************
Private Sub UserForm_Initialize()
Dim Ordner
Dim FSO As Object
Set FSO = CreateObject("Scripting.filesystemobject")
For Each Ordner In FSO.getfolder(Verz).subfolders
Me.ComboBox1.AddItem Ordner.Name
Next
ComboBox1.ListIndex = 0
End Sub
'******************************************
'******************************************
Private Sub Combobox1_Change()
loadcombo2
End Sub
Private Sub ComboBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Workbooks.Open ComboBox2.List(ComboBox2.ListIndex, 1) & "\" & ComboBox2.List(ComboBox2. _
ListIndex, 0)
Unload Me
End Sub
'******************************************
Sub loadcombo2()
Dim Datei
Dim Ordner
Dim FSO As Object
Set FSO = CreateObject("Scripting.filesystemobject")
On Error Resume Next
For Each Datei In FSO.getfolder(Verz & ComboBox1).Files
ComboBox2.AddItem
ComboBox2.List(ComboBox2.ListCount - 1, 0) = Datei.Name
ComboBox2.List(ComboBox2.ListCount - 1, 1) = Datei.parentfolder.Path
Next
ComboBox2.ListIndex = 0
Set FSO = Nothing
End Sub
lg Sepp