Per VBA 2.xls öffnen - schließen->visible=false
17.04.2013 11:13:43
Florian
ich habe folgendes Problem:
Start.xls öffnet im Hintergrund eine Liste und macht sich unsichtbar (visible=false).
Nun kommt es vor, dass diese Liste gelegentlich gebraucht wird.
Ich habe ein Makro geschrieben, dass via CommandButton eine UserForm oben rechts öffnet. Die UserForm enthält nur einen Schließen-Button welcher die Liste wieder unsichtbar macht und Start.xls aktiv setzt.
Leider ist die Liste nicht Nutzbar so lange die UserForm geöffnet ist.
Gibt es da eine Möglichkeit?
Die Liste darf keine Makros enthalten! Daher muss der Button aus der Start.xls kommen.
Makro Liste-Anzeigen-Button
Private Sub CommandButton100_Click()
Application.Workbooks("ET_Preisliste HT.xls").Activate
Application.ActiveWindow.Visible = True
Workbooks("ET_Preisliste HT.xls").Worksheets(2).Range("B3").Select
If CloseMode = 1 Then
Cancel = True
Application.Workbooks("ET_Preisliste HT.xls").Activate
Application.ActiveWindow.Visible = False
End If
' With UserForm1
' .Caption = "Schließen"
' .StartupPosition = 0
' .Top = Application.Top
' .Left = Application.Width - .Width
' .Show vbModal
' End With
End Sub
Makro Liste-Ausblenden-Button
Private Sub CommandButton1_Click()
Unload Me
Application.Workbooks("ET_Preisliste HT.xls").Activate
Application.ActiveWindow.Visible = False
End Sub
Danke und Gruß
Flo
Anzeige