VBA Brauche mal Hilfe
20.08.2015 21:22:52
Marius
Private Sub UserForm_Initialize()
Dim xlApp As Object
Dim xlWB As Object
Dim ws As Object
On Error Resume Next 'Fehlerbehandlung
Set xlApp = GetObject(, "Excel.Application")
If xlApp Is Nothing Then
Set xlApp = CreateObject("Excel.Application") 'Excel wird geöffnet
End If
'xlApp.Visible = True 'Wenn Excel angezeigt werden soll
Set xlWB = xlApp.Workbooks("C:\Users\M\Desktop\xltestmappe.xlsx")
If xlWB Is Nothing Then
Set xlWB = xlApp.Workbooks.Open("C:\Users\M\Desktop\xltestmappe.xlsx")
End If
Set ws = xlWB.Sheets("Tabelle2")
'xlApp.close 'Wenn Excel wieder geschlossen werden soll
Me.ComboBox1.Clear
For zeile = 1 To 4
Me.ComboBox1.AddItem ws.Cells(zeile, 1)
Next zeile
Me.ComboBox1.ListIndex = 4
xlWB.Close
' Excel schließen
xlApp.Quit
Set xlApp = Nothing
End Sub
Mein Problem:
Das Excel Dokument öffnet zuerst eine UserForm (UserForm2) und dann auf Knopdruck UserForm1. Dadurch dass sich die Userformen öffnen, läuft allerdings das Skript nicht durch...wie kann ich das lösen, dass das Workbook in UserForm2 erst den CommandButton 1 aktiviert, dann die Userform2 auf .hide setzt, dann alles wieder zu macht (möglichst alles unsichtbar im Hintergrund) ?