ich arbeite gerade an einer Prozedur, die mir anhand einer IBAN alle weiteren Infos wie BLZ, Kontonummer, und Bankname ermittelt und ausgibt. Hierbei habe ich noch folgende Probleme:
- Laufzeitfehler "91" Objektvariable nicht definiert!
Dieser Fehler tritt öfter auf. Einmal funktioniert die Prozedur ohne Fehler, dann tritt bei einem anderen Aufruf der Fehler wieder auf.
Woran kann es liegen? Was kann ich gegen den Fehler tun? Ich möchte ungern mit "On Error resume next" arbeiten, dazu möchte ich auch gerne bei jedme Aufruf ein Ergebnis.
- Das Auslesen des Banknamens klappt super, weil hier auch ein eindeutiger Klassenname (such) enthalten ist. Wie setze ich das ganze für BLZ und Kontonummer um? Dort sind keine eindeutigen Klassen erhalten. Wüsste jemand eine Lösung?
Ja ich weiß, ich könnte mir hierzu auch die passenden Stellen aus der IBAn ziehen - trotzdem würde mich auch hier ein Lösungsansatz interessieren.
Danke und Viele Grüße
Marco
Seite die ausgelesen werden soll(Beispiel):
view-source:https://nifox.de/ibanreverse?ibannr=DE41500105170123456789
Mein Script:
Sub BankdatenAusIBAN()
'On Error Resume Next
Dim appIE As Object
Const IBANurl As String = "https://nifox.de/ibanreverse?ibannr="
Dim IBAN, BANKNAME, BLZ, KTNR As String
IBAN = "DE41500105170123456789"
Set appIE = CreateObject("internetexplorer.application")
appIE.Visible = False
With appIE
.Navigate IBANurl & IBAN
End With
Do While appIE.Busy
DoEvents
Loop
Set allRowOfData = appIE.document.getElementsByClassName("such")
BANKNAME = allRowOfData(0).innerText
appIE.Quit
Set allRowOfData = Nothing
Set appIE = Nothing
Debug.Print BANKNAME
Debug.Print BLZ
Debug.Print KTNR
End Sub