Einfache Textdatei erstellen

Hallo,
ich habe eine Tabelle, bei der sich auf Blatt5 immer nur ein Wert ändert, dieser jedoch sehr oft (Eingabe erfolgt in Zelle G7.
Könnt Ihr mir sagen, wie ich hierzu eine Textdatei erstelle, in der alle Eingaben in G7 auf diesem Blatt protokoliert (könnte z.B. bei Workbook_Close geschehen) ?
Mein Probleme bzw. Fragen dabei sind folgende:
1) Wie kann ich in VBA einen anderen Ordner als Speicherort für das Textfile definieren, als den der aktuellen Tabelle ?
2) Wie lasse ich eine separate Textdatei pro Anwender erstellen (Login über Environ auslesen und dann ?) ?
3) Wie stelle ich sicher, dass ggf. hierbei zuvor erzeugte Textdateien für einen Anwender weiter aktualisiert werden, so dass nicht bei jedem Öffnen der Tabelle automatisch immer eine neue Textdatei erstellt wird ?
Gibt es hier jemanden, der sich damit auskennt ?
Rückmeldung garantiert.
VG, Tim

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit ' https://www.herber.de/ _ forum/archiv/1256to1260/t1258105.htm ' Code von Christian Dim mstrOld As String Dim RaBereich As Range Private Sub Worksheet_Change(ByVal Target As Range) Dim strDatei As String, strText As String Dim intFile As Integer, rng As Range Const strDELIM As String = "|" 'Logfile Delimiter - ggf. anpassen intFile = FreeFile With ThisWorkbook strDatei = .Path & "\LogBuch_" & Replace(.Name, ".xls", "") & ".txt" End With Open strDatei For Append As #intFile If LOF(intFile) = 0 Then strText = "Zeistempel|User|Zelle|alter-Wert|neuer-Wert|" Print #intFile, strText End If If Range("G7") mstrOld Then strText = _ Format(Now, "YYYYMMDD-hhmmss") & strDELIM & _ Environ("username") & strDELIM & _ "G7" & strDELIM & _ mstrOld & strDELIM & _ Range("G7") & strDELIM Print #intFile, strText End If Close #intFile End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set RaBereich = Intersect(Range("G7"), Range(Target.Address)) If Not RaBereich Is Nothing Then mstrOld = Range("G7") End If End Sub

Hallo Hajo,
vielen Dank - das war eine große Hilfe !
Ich habe es jetzt so angepasst, wie ich es brauche und das klappt sehr gut, ich habe jedoch noch nicht herausgefunden, wie ich folgendes umsetzen kann:
1) Die Textfiles sollen z.B. in folgendem Ordner gespeichert werden und zwar jeweils unter dem Name des Anwenders mit dem Zusatz "_SearchLog", also z.B. "abcd_SearchLog":
C:\Users\Notebook\Desktop\My Documents\SearchLogs".
2) Wie kann ich unterhalb der Überschrift im Textfile noch eine Leer- oder Sonderzeichen-Zeile einfügen, um das Ganze etwas abzugrenzen ?
Option Explicit
' https://www.herber.de/ _
forum/archiv/1256to1260/t1258105.htm
' Code von Christian
Dim mstrOld As String
Dim RaBereich As Range

Private Sub Worksheet_Change(ByVal Target As Range)
Dim strDatei As String, strText As String
Dim intFile As Integer, rng As Range
Const strDELIM As String = "|"
intFile = FreeFile
With ThisWorkbook
strDatei = .Path & "\SearchLog_" & Replace(.Name, ".xls", "") & ".txt"
End With
Open strDatei For Append As #intFile
If LOF(intFile) = 0 Then
strText = "Search Value|User Login|"
Print #intFile, strText
End If
If Range("G7")  mstrOld Then
strText = _
Range("G7") & strDELIM & _
Environ("username")
Print #intFile, strText
End If
Close #intFile
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set RaBereich = Intersect(Range("G7"), Range(Target.Address))
If Not RaBereich Is Nothing Then
mstrOld = Range("G7")
End If
End Sub

VG und nochmals danke, Tim

Private Sub Worksheet_Change(ByVal Target As Range) Dim strDatei As String, strText As String Dim intFile As Integer, rng As Range Const strDELIM As String = "|" intFile = FreeFile With ThisWorkbook strDatei = "C:\Notebook\Desktop\My Documents\SearchLogs" & Environ("username") & " _ _SearchLog" & Replace(.Name, ".xls", "") & ".xls" End With Open strDatei For Append As #intFile If LOF(intFile) = 0 Then strText = "Search Terms:" Print #intFile, strText End If If Range("G7") mstrOld Then strText = _ Range("G7") Print #intFile, strText End If Close #intFile End Sub

Option Explicit Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long Private Sub Worksheet_Change(ByVal Target As Range) Dim strDatei As String, strText As String Dim intFile As Integer, rng As Range Const strDELIM As String = "|" intFile = FreeFile strDatei = Environ("USERPROFILE") & "\SearchLogs\SearchLog_" & Environ("USERNAME") & ".txt" If MakeSureDirectoryPathExists(strDatei) <> 0 Then Open strDatei For Append As #intFile If LOF(intFile) = 0 Then strText = "Search Terms:" Print #intFile, strText End If If Range("G7") <> mstrOld Then strText = _ Range("G7") Print #intFile, strText End If Close #intFile Else MsgBox "Verzeichnis nicht gefunden!", vbExclamation, "Hinweis" End If End Sub

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einfache Textdatei erstellen

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread