ich habe hier ein skript zum csv Import in ein Tabellenblatt gefunden. Jedoch möchte ich einiges Ändern, weiß aber leider nicht wie.
Hier mein aktuelles skript:
Sub Datei_Importieren()
Dim strFileName As String, arrDaten, arrTmp, lngR As Long, lngLast As Long
Const cstrDelim As String = ";" 'Trennzeichen
strFileName = "C:\test.csv"
If strFileName "" Then
Application.ScreenUpdating = False
Open strFileName For Input As #1
arrDaten = Split(Input(LOF(1), 1), vbCrLf)
Close #1
For lngR = 0 To UBound(arrDaten)
arrTmp = Split(arrDaten(lngR), cstrDelim)
If UBound(arrTmp) > -1 Then
With ActiveSheet
lngLast = .Cells(Rows.Count, 1).End(xlUp).Row + 1
lngLast = Application.Max(lngLast, 2)
.Cells(lngLast, 1).Resize(, UBound(arrTmp) + 1) _
= Application.Transpose(Application.Transpose(arrTmp))
End With
End If
Next lngR
End If
End Sub
Nun möchte ich im Code noch das Tabellenblatt angeben in das importiert werden soll und es soll immer wieder erneut ab A2 importiert werden. Aktuell hängt das skript einen neuen Import unten an.Ich hoffe auf Hilfe ;-)
Gruß