Daten sichern
22.12.2019 13:17:52
Marquardt
Sub sichern()
Dim ff As Integer, strSAV As String
Const strDatei As String = "\\Test\Dokumente\Rechnungsprüfung.CSV"
ff = FreeFile
strSAV = Format(Now, "DD.MM.YYYY hh:mm") & ";"
strSAV = strSAV & Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(Sheets(2). _
Range("A2:o2").Value)), ";")
Open strDatei For Append As #ff
Print #ff, strSAV
Close #ff
End Sub
Hallo liebe Excel-Anwender,
ich möchte den Speicherort (Const strDatei As String = "\\Test\Dokumente\Rechnungsprüfung.CSV")
aus einer Zelle beziehen.
Aber alle versuche, auch das Suchen im Netz war nicht erfolgreich.
Hat jemand eine Idee bzw. kann mir jemand helfen?
Danke Detlef.
Anzeige