Clever-Excel-Forum

Hallo,

im Prinzip so:

... replace(Split(arrLines(6), ";")(15),chr(34),"")

zur Abrundung:

Mit 

Sub MeineBank_oeffnen()
    Set wshshell = CreateObject("WScript.Shell")
    wshshell.Run "https://www.MeineBank.de/"
End Sub

öffne ich in Excel die Homepage meiner Bank und speichere mit Hilfe eines bereitgestellten Befehls den aktuellen Kontoauszug im Verzeichnis Downloads. Nach der Übertragung der relevanten Daten in ein Tabellenblatt des Ordners "Konten" (siehe oben bei schauan) lösche ich die CSV-Datei im Verzeichnis Downloads:

 Sub KillEmAll()
  'löscht alle .csv im Verzeichnis
  Const strVerz As String = "c:\Users\MeinName\Downloads\"
  Kill strVerz & "*.csv"
End Sub

Nochmals allen Beteiligten herzlichen Dank

Hardbopper