![](/forum/profile/get-photo.asp?memberid=30&type=profile&rnd=592) Extreme Veteran
Beiträge: 565
![500](http://www.donkarl.com/forum/images/decorations/multiple/500.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif)
| Hallo,
Botti - 12.11.22 08:31
ist nicht ganz so easy.
Normalerweise würde ich sagen, schön modular aufgebaut, aber für die Fehlersuche ist es ein Albtraum. Probier mal, ob das funktioniert:
Sub TestExcel()
Dim objExcel As Object
Dim mySheet As Object
Dim objMappe As Object
Dim objSheet As Object
Set objExcel = CreateObject("Excel.Application")
Set objMappe = objExcel.Workbooks.Add
Set objSheet = objExcel.activeSheet
objSheet.Cells(1, 2) = "huhu"
objExcel.Visible = True
Set objSheet = Nothing
Set objMappe = Nothing
Set objExcel = Nothing
End Sub
Ganz ohne DoEvents und Klassen (wo ich dein Problem vermute).
----- Gruss - Peter |