Hallo, VBA Gemeinde,
Ich bin VBA-Neuling, soll jedoch im Rahmen meines dualen Studiums in Betrieb eine Aktualisierung einer Excel Tabelle mittels einer aus dem Programm erzeugter CSV Datei automatisieren.
ohne die eigentlichen Probleme dieser Aufgabe anzusprechen:
Ich möchte das möglichst alles mit einem Klick ausführen, sprich in der zu aktualisierenden Tabelle auf einen Makro Button drücken, um die Daten anhand iher ID abzugleichen, Daten, die in der CSV nicht mehr enthalten sind, löschen und neue Eintragungen in die Tabelle eintragen.
1. Schritt und Kern der Frage:
ich habe das folgende Makro mit dem Recorder aufgenommen:
Sub CSV_Formatieren()
'
' CSV_Formatieren Makro
'
'
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
)), TrailingMinusNumbers:=True
End Sub
Da ich das aber in das Makro der Hauptexceldatei packen möchte, da jeden Tag eine neue CSV Datei aus dem System kommt, will ich das Makro von der Exceldatei auf die CSV Datei anwenden.
Welchen Code brauche ich dafür?
hoffe ihr könnt mir hier weiterhelfen, und danke im Voraus!
Gruß
Kevin
|