Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallo,
im Prinzip so:
... replace(Split(arrLines(6), ";")(15),chr(34),"")
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:1 Nutzer sagt Danke an schauan für diesen Beitrag 28
• Hardbopper
Registriert seit: 17.12.2014
Version(en): 365
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
