Hallo Leute,
ich habe ein Problem mit meinem Code, der Code soll eigentlich bezwecken, dass wenn ich das Fidor Internet Explorer Fenster schließe das andere Fenster automatisch maximiert wird, was leider nicht funktioniert, da Word einfach nicht aus der Schleife rauskommt und sich aufhängt.
Hier ist mein Code:
ich habe ein Problem mit meinem Code, der Code soll eigentlich bezwecken, dass wenn ich das Fidor Internet Explorer Fenster schließe das andere Fenster automatisch maximiert wird, was leider nicht funktioniert, da Word einfach nicht aus der Schleife rauskommt und sich aufhängt.
Hier ist mein Code:
Quellcode
- Private Const SM_CXSCREEN As Long = 0
- Private Const SM_CYSCREEN As Long = 1
- #If VBA7 Then
- Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
- #Else ' VBA6 (für Office Versionen <= 2007)
- #End If
- Public IEApp, IEDocument As Object
- Public Sub IE_Fenster_links_und_rechts()
- MonitorBreite = GetSystemMetrics(SM_CXSCREEN)
- MonitorHöhe = GetSystemMetrics(SM_CYSCREEN)
- Dim Passwort As String
- 'Passwort = InputBox("Passwort eingeben:")
- Set IEApp = CreateObject("InternetExplorer.Application")
- IEApp.Visible = True
- IEApp.navigate "https://banking.fidor.de/login"
- 'Call wait
- IEApp.Application.Width = 960
- IEApp.Application.Height = 1050
- IEApp.Top = 0
- IEApp.Application.Left = 0
- Set IEApp2 = CreateObject("InternetExplorer.Application")
- IEApp2.Visible = True
- IEApp2.navigate "https://farm01.afterbuy.de/afterbuy/auktionsliste.aspx?AWebayname=& _
- AWFilter=5&AWSuchwort=&AWRENummer=&AWFilter2=0&awmaxart=100&maxgesamt=500&AWEmail=&AWDatumVon=&AWDatumBis=&AWBezug=EndeDerAuktion&AWPLZ=&AWBetrag=&AWBetragBezug=1&AWStammID=&AWLaenderkennung=&AWLaenderkennungBezug=rechnung&AWLabelDynSearchField1=ShippingAddress&AWDynSearchField1=&AWLabelDynSearchField2=PaymentStatus&AWDynSearchField2=&AWLabelDynSearchField3=PaymentShipMethod&AWDynSearchField3=&killordersession=0&art=SetAuswahl"
- IEApp2.Application.Width = 960
- IEApp2.Application.Height = 1080
- IEBreite = IEApp2.Application.Width
- IEHöhe = IEApp2.Application.Height
- IEApp2.Top = 0
- IEApp2.Application.Left = MonitorBreite - IEBreite
- marker = 0
- Do
- Set objShell = CreateObject("Shell.Application")
- IE_count = objShell.Windows.Count
- For x = 0 To (IE_count - 1)
- On Error Resume Next ' sometimes more web pages are counted than are open
- my_url = objShell.Windows(x).Document.Location
- my_title = objShell.Windows(x).Document.Title
- If my_title Like "Fidor Bank AG - Login" & "*" Then 'compare to find if the desired web _
- page is already open
- Set ie = objShell.Windows(x)
- marker = 1
- Exit For
- Else
- End If
- Next
- Loop Until marker = 0
- If marker = 0 Then
- IEApp2.navigate "https://farm01.afterbuy.de/afterbuy/auktionsliste.aspx?AWebayname=& _
- AWFilter=37&AWSuchwort=&AWRENummer=&AWFilter2=0&awmaxart=100&maxgesamt=500&AWEmail=&AWDatumVon=&AWDatumBis=&AWBezug=EndeDerAuktion&AWPLZ=&AWBetrag=&AWBetragBezug=1&AWStammID=&AWLaenderkennung=&AWLaenderkennungBezug=rechnung&AWLabelDynSearchField1=ShippingAddress&AWDynSearchField1=&AWLabelDynSearchField2=PaymentStatus&AWDynSearchField2=&AWLabelDynSearchField3=PaymentShipMethod&AWDynSearchField3=&killordersession=0&art=SetAuswahl"
- IEApp2.Application.Width = 1920
- IEApp2.Application.Height = 1280
- IEBreite = IEApp2.Application.Width
- IEHöhe = IEApp2.Application.Height
- IEApp2.Top = 0
- IEApp2.Application.Left = MonitorBreite - IEBreite
- Else
- End If
- End Sub