ich habe folgenden Code, möchte aber die Datei als neues Excel Blatt öffnen, da die UserForm geöffnet bleiben muss.
Nur der untere beschriebene Code öffnet mir die Datei in der geöffneten Excel Tabelle und dann kann man nicht an der Datei arbeiten solange die UserForm noch offen ist.
Vielleicht habt ihr eine schnelle Lösung.
Vielen Dank für eure Hilfe.
Lieben Gruß
Amina
Private Sub CommandButton17_Click()
' Beispiel: C:\MAPPE2.XLS (richtig!) öffnen
Dim bExists As Boolean
Dim oWorkbook As Object
' Unload UserForm1
' Application.WindowState = xlMaximized
' Prüfen ob Datei bereits geöffnet ist
bExists = False
With Application
For Each oWorkbook In .Workbooks
If UCase$(oWorkbook.Name) = "MAPPE2.XLS" Then
' Jetzt aktivieren
Windows(oWorkbook.Name).Activate
bExists = True
Exit For
End If
Next
End With
' Mappe neu laden!
If Not bExists Then
On Error Resume Next
Workbooks.Open Filename:="C:\Beispiel\Test.xls", ReadOnly:=False
On Error GoTo 0
End If
End Sub