|
hallo zusammen, hab folgendes problemchen....... und danke im voraus für eure Hilfe
ich generiere in einer Zelle in Excel mit for / next einige Hyperlink nacheinander.
mit einem makro sende ich die generierten hyperlinks an einen browser
leider stürzt excel dabei früher oder später ab, manchmal nach 4 seiten manchmal nach 50 seiten.
dieses makro öffnet den standartbrowser und offnet ein tab nach dem anderen. so müsste es eigentlich sein.
Sub Makro1()
Range("A5").Select
For t = 1 To 50
For x = 1 To 15
Cells(10, 2) = x
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Cells(5, 1)
Selection.Hyperlinks(1).Follow NewWindow:=True, AddHistory:=True
Next x
Cells(12, 6) = Cells(12, 6) + 1
Next t
End Sub
nachfolgende funktion öffnet den internetexploder und bleibt meist nach ein paar seiten auch stehen, zudem öffnet diese funktion immer neu den ie und nicht tabs.
Function Linkaufruf(strSeite As String)
Dim appIE As Object
Set appIE = CreateObject("InternetExplorer.application")
appIE.Visible = True 'False ist unsichtbar True ist Sichtbar
appIE.Navigate strSeite
While Not appIE.ReadyState = 4 'Warte auf Webseite
DoEvents
Wend
'appIE.Quit
'Set appIE = Nothing
End Function
ich suche ein befeh der mir den standartbrowser öffnet und einfach ein tab nach dem anderen öffnet ohne abzustürzen.
bitte um hilfe
gruess peter
|