|
Hallo,
ich möchte eine beliebige Datei öffnen, eine Startzelle wählen, die Daten in der Datei neu arrangieren und in eine neue Datei mit freigewähltem Namen ausgeben.
Mein code sieht im Moment nur eine Statische Zellenwahl und eine feste Ausgabe vor.
Sub Spline()
Dim strDateiname As Variant, strPath As Variant, strErgaebnis As String
Dim i As Long, lngZeile As Long
'Dim x As Areas
Dim wbkOeffnen As Workbook
strPath = Application.GetOpenFilename(("Excel Datei(en) (*.xlsx),*.xlsx, (*.csv),*.csv"), , "Datei auswählen", , False) 'SPEICHERPFAD ABFRAGEN
Set wbkOeffnen = Workbooks.Open(strPath, , , , , , , , , , , , False)
strDateiname = "spline.scr" 'Speicher Namen und Ort angeben
lngZeile = Range("A" & Rows.Count).End(xlUp).Row
'Set x = Application.InputBox("Zelle/Bereich auswählen:", "Datenausgabe festlegen", Type:=8)
Open strPath & strDateiname For Output As #1
Print #1, "SPLINE"
For i = 2 To lngZeile ' Startzelle festlegen
Print #1, KommaErsetzen(Cells(i, 2).Value) & "," & KommaErsetzen(Cells(i, 3).Value) & "," & KommaErsetzen(Cells(i, 4).Value)
Next i
Close #1
ActiveWorkbook.Close SaveChanges:=False
End Sub
Private Function KommaErsetzen(Wert As String) As String
Wert = Replace(Wert, ",", ".")
KommaErsetzen = Wert
End Function
|