Logfile in Tabelle speichern
11.02.2015 07:26:14
Hans
ich habe diesen Code hier im Forum gefunden und direkt angewendet:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim strDatei As String, strText As String, intFile As Integer, c As Range
intFile = FreeFile
strDatei = ThisWorkbook.Path & "\LogBuch_" & Replace(ThisWorkbook.Name, ".xls", "") & ".txt"
Open strDatei For Append As intFile
For Each c In Target.Cells
strText = Format(Now, "DDMMYY_hhmmss") _
& vbTab & Environ("username") _
& vbTab & Sh.Name _
& vbTab & c.Address _
& vbTab & c.Value
Print #intFile, strText
Next c
Close intFile
End Sub
Ich habe aber csv statt txt ausgewählt und möchte alles in eine Tabelle schreiben, was auch sehr gut funktioniert, außer dass alles in die Spalte A geschrieben wird. Ich habe schon nach einer Alternative für vbTab gesucht, um in die nächste Spalte zu springen, aber leider vergebens. Gibt es eine Alternative zu vbTab, so dass ich in die nächste Spalte schreiben kann?
Anzeige