CSV automtisch importieren und Verändern
Andy
seit langer Zeit bin ich mal wieder dran etwas mit VBA zu programmieren und meine Kenntnisse wieder auf Vordermann zu bekommen. Allerdings fällt mir das doch schwerer als gedacht...
Ich komme gerade nicht mehr weiter und bitte euch um eure Hilfe. Ich möchte eine CSV Datei mit Hilfe eines Makros einlesen und die automatisch generierte Tabelle weiter automatisch verändern. (Spalten hinzufügen nach bestimmten Kriterien). Habe hier im Forum ein interessantes Makro gefunden, auf dem ich aufsetzen möchte.
Kann mir jemand weiterhelfen, wie ich jetzt am geschicktesten auf die Spalten die durch das Makro eingelesen wurden zugreifen kann. Beispielsweise möchte ich Spalte A mit einer Spalte aus einer anderen Tabelle vergleichen und neue Spalten ergänzen. (SVerweise automatisieren). Insgesamt soll dann eine neues Tabellenblatt entstehen. Ist das so überhaupt möglich?
Private Sub Start_Click()
Dim strTmp, arrDaten, arrTmp, i As Long, j As Integer
Dateiname = Application.GetOpenFilename("Textdateien (*.csv), *.csv")
If Dateiname = "Falsch" Then Exit Sub
Open Dateiname For Input As #1
strTmp = Split(Input(LOF(1), 1), vbCrLf)
Close 1
arrTmp = Split(strTmp(0), ";")
ReDim arrDaten(1 To UBound(strTmp) + 1, 1 To UBound(arrTmp) + 1)
For i = 0 To UBound(strTmp)
arrTmp = Split(strTmp(i), ";")
For j = 0 To UBound(arrTmp)
arrDaten(i + 1, j + 1) = arrTmp(j)
Next
Next
With Workbooks.Add.Sheets(1)
.Cells(1, 1).Resize(UBound(arrDaten), UBound(arrDaten, 2)) = arrDaten
.Columns.AutoFit
End With
End Sub
Schon einmal vielen Dank für eure Anregungen