Exceldatei mit Userform in eigener Instanz

Private Sub Workbook_Open() Set xlAnw = CreateObject("Excel.Application") 'neue Instanz von Excel erstellen xlAnw.Workbooks.Open ("c:\test.xls") ' Auswertungsdatei in neuer Instanz von Excel starten ThisWorkbook.Close False End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ihr beiden.
Ihr habt mich glaube ich nicht ganz verstanden.
Aber verstehe ich auch.Habe es vielleicht etwas undurchschaubar erklärt.
Ich versuche es noch einmal weil mir das ganze doch sehr wichtig ist.
Was ich momentan habe ist eine Exceldatei mit einer Userform.
Der Benutzer dieser datei sieht nur die Userform weil schon beim Workbook open die Mappe ausgeblendet wird und die Userform angezeigt wird.
Was ich mir aber wünsche und es nicht hinbekomme ist das der User nichts von Excel mitbekommt.
Das würde auch funktionieren wenn ich beim Start der Datei application.visible = false mache.
Das geht aber auch nicht weil ja der Benutzer evtl. andere ExcelDateien offen hat die er auch benötigt.
Deshalb habe ich versucht für meine Datei iin der die Userform ist eine zweite datei zu erstellen die die Userform Datei in einer neuen Instanz öffnet und ich somit dann auch application.visible = false machen kann ohne das andere evtl. geöffnete dateien ausgeblendet werden.
Hajo oder Heinz könnt ihr mir vielleicht doch noch weiter helfen ?
Würde mich sehr freuen.
Visual Basic habe ich leider nicht deshalb muss ich es in excel hinbekommen.
Danke trotzdem vielmals schon im vorraus !!
gruß Chris

'in der ersten Datei On Error GoTo error Dim myXL_Application As Object Set myXL_Application = CreateObject(Class:="Excel.Application") myXL_Application.Workbooks.Open "J:\1 Forum\U2.xls" myXL_Application.WindowState = xlMaximized myXL_Application.Visible = False Set myXL_Application = Nothing error: If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close False end if

Hallo Tino Hallo Hajo,
ich habe es gerade gestestet was Tino mir gepostet hat.
Habe eine Datei mit diesen Makros.
'Code1 in einem Modul.
Option Explicit
Dim myXL_Application As Object
Dim anz


Private Sub Workbook_Open_aus()
On Error GoTo error
Set myXL_Application = CreateObject(Class:="Excel.Application")
myXL_Application.Workbooks.Open "c:\testUserformdatei.xls" ' Auswertungsdatei in neuer Instanz  _
von Excel starten
myXL_Application.WindowState = xlMaximized
myXL_Application.Visible = False
Set myXL_Application = Nothing
error:
anz = zaehle_wb
If Workbooks.Count - anz - 1

'Code2 in einem Modul.
Option Explicit


Public Function zaehle_wb()
Dim wb As Workbook
Dim InI As Integer
For Each wb In Application.Workbooks
If Application.Windows(wb.Name).Visible = False Then InI = InI + 1
Next
'MsgBox "von " & Workbooks.Count & " sind " & InI & " ausgeblendet"
zaehle_wb = InI
End Function

es klappt auch alles wunderbar bis auf eines.
Ich starte die erster datei mit den Makros.
diese öffnet mir dann diese Excel Datei (c:\testUserformdatei.xls)
Diese wird ausgeblendet so das nur noch die userform zu sehen ist.
Das ist auch richtig so nur ein problem habe ich jetzt.
Wenn ich auf der userform auf den Button "beenden" klicke wird folgender code ausgeführt.


Private Sub btn_programm_close_Click() 'file close save data
Application.Quit
End Sub

Danach ist die userform geschlossen.und auch kein Excel mehr zu sehen.
Wenn ich aber in den Taskmanager gehe sehe ich dort.
Excel.exe was mir ja sagt das Excel irgendwo noch geöffnet ist.
Wie kann ich das verhindern.Also wie erreiche ich das auch dort das Excel geschlossen ist ?
Vielen dank noch einmal an euch !
gruß Chris

Private Sub Workbook_Open() On Error GoTo error Dim myXL_Application As Object Set myXL_Application = CreateObject(Class:="Excel.Application") myXL_Application.WindowState = xlMaximized myXL_Application.Visible = False myXL_Application.Workbooks.Open "J:\1 Forum\U2.xls" error: ThisWorkbook.Saved = True If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close False End If End Sub

Beliebteste Forumthreads (12 Monate)

Exceldatei mit Userform in eigener Instanz

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Exceldatei mit Userform in eigener Instanz

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread