Hallo zusammen,
ich habe ein kleines Probelm mit dem Schließen von Tabs im IE. Mit nachstehendem Code sollen alle Tabs die im >Dokument.Title Wenn ich es anhand des LocationName mache funktioniert es; leider ist dieser zu pauschal und lässt mich die Tabs nicht eindeutig anprechen.
Sub CloseTabs()
Dim objWindow As Object
Dim objShell As Object
On Error GoTo Fin
Set objShell = CreateObject("Shell.Application")
For Each objWindow In objShell.Windows
'If objWindow.LocationName Like "*" & "Amazon" & "*" Then objWindow.Quit
If objWindow.document.Title Like "*" & "Amazon" & "*" Then objWindow.Quit
Next objWindow
Fin:
Set objShell = Nothing
If Err.Number 0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub
Vielen Dank für Eure Unterstützung.Beste Grüße
leehmer