Sub Spline()
Dim strDateiname As Variant, strPath As Variant, strErgaebnis As String
Dim i As Long, lngZeile As Long
Dim wbkOeffnen As Workbook
strPath = Application.GetOpenFilename(("Excel Datei(en) (*.xlsx),*.xlsx, (*.csv),*.csv"), , "Datei auswählen", , False)
Set wbkOeffnen = Workbooks.Open(strPath, , , , , , , , , , , , False)
strDateiname = "spline.scr"
lngZeile = Range("A" & Rows.Count).End(xlUp).Row
Open strPath & strDateiname For Output As #1
Print #1, "SPLINE"
For i = 2 To lngZeile
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