Sub ERMITTELN() 'INTERNETBILD FESTLEGEN WO LIEGT ES
Dim objIE1 As Object
Set objIE1 = CreateObject("InternetExplorer.Application") ' Für IE Fenster 1
objIE1.Top = 0 ' Position von oben
objIE1.Left = 0 ' Position von links
objIE1.Width = 1280 ' 1280 1280 ' Fenster breite
objIE1.Height = 1024 ' 800 1024 ' Fensterhöhe
objIE1.Visible = True ' Objekt für IE Fenster 1
objIE1.Navigate "http://books.google.de/books" ' Objekt für IE Fenster Adresse ORGINAL
'objIE1.fullscreen = True
objIE1.Toolbar = 3 '
objIE1.addressbar = True
'end
Sub ' Apostroph entfernen nicht vergessen
'**** bis hierhin kopieren ************
' Nach Beendigung des Codes sollten die zwei Objecte gelöscht werden
'objE1.Exit
' info das gleich nur mit yesno schleife, wenn es denn benötigt wird
Do While Not objIE1.ReadyState = 4
DoEvents
Loop
MsgBox " Alles ok"
objIE1.Quit
'Set Internet = Nothing
End Sub
'***************************