Sub musterlog()
Dim appExcel As Object
Dim sWorkbook As Object
Dim sPfad As String
Dim sFile As String
Dim strWorkbook As String
sPfad = ActiveWorkbook.Path
sFile = "musterdatei.XLS"
strWorkbook = sPfad & "\" & sFile
Set appExcel = CreateObject("Excel.Application")
appExcel.Workbooks.Open strWorkbook
appExcel.Visible = True
appExcel.Sheets("Tabelle1").Activate
Set appExcel = Nothing
End Sub
<span class="postbody">die Tabelle und das gewählte Blatt werden zwar geöffnet aber trotzdem ist die Tabelle "x" aktiv und wird angezeigt aber nicht die "musterdatei.xls"
Das selbe passiert auch wenn ich eine Worddatei öffne;
Die Worddatei wird zwar geöffnet aber nicht angezeigt, trotz visible=true
</span><span class="postbody">vielleicht kann jemand helfen, wäre super..</span>