[Excel] VBA: nur bestimmten Bereich als CSV speichern

[amn.ssy]

Hallo,

ich hab' mir mal ein paar Beispiele zu o.g. Problem angeschaut, ohne jedoch wirklich weiter zu kommen.
Aber immerhin hab' ich schon ein kleiner Ansatz:

Sub SaveDataAsCSV()
Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
Dim ProjPath As String: ProjPath = (Environ("HOMEDRIVE")) & "\MSnT Projects\"
Dim DataPath As String: DataPath = ProjPath & "Data\"
Dim actUser As String: actUser = (Environ("USERNAME"))
Dim fName As String

With ActiveSheet
    fName = wbName & " " & ActiveSheet.Name & " (" & actUser & " " & Format(Date$, "mm.yyyy") & ")"
End With

'Bereich D4 bis J + Letzte Zeile als DataPath & fName.CSV speichern
'letzte verwertbare Zeile ergibt sicht aus
'ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row

If Not fso.FolderExists(DataPath) Then fso.CreateFolder (DataPath)
'
'
'

MsgBox "Your file has been saved at " & vbCrLf & DataPath & fName

End Sub

Wie bekomme ich einen bestimmten Bereich als CSV gespeichert ...
und analog dazu wie wähle ich via Filebrowser o.ö. eine solche Datei wieder aus um sie ab D4 zu importieren?

Vielen Dank, LG und frohe Ostern

_opiwahn_

 

[Yaslaw]

Spontane Idee
1) Sektor markieren
2) in ein neues Sheet kopieren
3) neues Sheet mit shhets(newSheet).saveAs() als CSV speichern
4) neues Sheet verwerfen

 

[amn.ssy]

Hab die letzten Tage noch mal eingehender recherchiert und konnte das ganze jetzt auch lösen.

Danke und LG
opiwahn

 

[Yaslaw]

Der Lösungsansatz wäre auch für andere Leute Interessant.