Wechsel zwischen 2 Mappen
26.03.2014 08:57:40
ANNAnas
ich bin mittlerweile mit meinen Latein am Ende...
Der vermeindlich leichte wechsel zwischen 2 Excel Dateien ist schwieriger zu realisieren als ürsprünglich gedacht.
Die Idee hinter mein Vorhaben:
in der Start.xlms steht eine Userform die alle Dateien aus dem Ordner X ausflistet und man diese mit einem Doppelklick öffnet. Die USerform von Start bleibt im Hintergrund geöffnet und die 2. Datei mit der anderen USerform öffnet sich. Mit dem Buttom Speichern & Beenden soll die 2. Datei sauber geschlossen werden und dann wieder zur Start Datei springen...leider funktioniert das nicht wie gewollt.
Der Quelltext aus der Start.xmls:
Workbook
Private Sub Workbook_Activate() 'Userform wird sofort gestartet
Application.Visible = False
UserForm1.Show
End Sub
in dessen Userform1:
'Listbox zur Auswahl der vorhandenen Einträge in dem unten angegebenen Ordner
Private Sub Listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Pfad As String
Pfad = "C:\Neuer Ordner\" 'Pfad zu den Dateien Anpassen!!!!!!!!!
Unload UserForm1
Workbooks.Open Pfad & Trim(ListBox1.List(ListBox1.ListIndex))
End Sub
Arbeitsmappe:
Private Sub Workbook_Open() 'Userform wird sofort gestartet
UserForm1.Show
End Sub
'Beenden Schaltfläche Ereignisroutine
Private Sub CommandButton4_Click()
'hier wird geprüft, ob in der Textbox25 einen Wert enthält der > 0 und nicht leer ist
If TextBox25.Value = "" Or TextBox25.Value = "0" Then
MsgBox "Das Feld Prüfer muss gefüllt werden um fortzufahren!"
Exit Sub
'die Sub wird verlassen, ohne dass das Userform geschlossen wird!
End If
ThisWorkbook.Save
' ThisWorkbook.SaveAs "C:\Sicher\" & ThisWorkbook.Name
'Application.Visible = True
ThisWorkbook.Close
Workbooks("start.xlsm").Activate
End Sub
MfG