In eine datei schreiben wenn Tabelle geschlossen
30.01.2008 11:39:00
richmen
leider konnte ich über die SuFu nichts finden. Vielleicht habe ich auch einfach nach den falschen Begriffen gesucht, mein Problem ist aber nicht ganz einfach so kurz zu fassen :) Bin über jeden Tipp dazu dankbar.
Also ich erzeuge eine Liste. Wenn jemand diese Liste aufmacht, dann lass ich das in eine Textdatei schreiben, einfach um zu sehen ob sie verwendet wird.
Nun weiss ich zwar dass XY die Liste offen hatte, aber nicht wie lange.
Darum ist nun meine Idee auch zu sehen wie lange XY die Datei offen hatte, dazu müsste ich aber
beim schließen der Exceldatei auch wieder in meine Textdatei schreiben. Eine Lösung über eine Button kenne ich, aber nicht wie es ohne klappen würde.
Der Quellcode bisher steht in "dieseArbeitsmappe" und sieht wie folgt aus:
Private Sub Workbook_Open()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
t$ = UCase(Trim(Left(Buffer, BuffLen - 1)))
Open "C:\TEST.txt" For Append As #2
Print #2, ThisWorkbook.Name & Chr$(9) & Date$ & Chr$(9) & Time$ & Chr$(9) & t$
Close #2
End Sub
Damit schreibe ich einfach immer einen Eintrag wenn die Datei geöffnet wird.
Vielen Dank schonmal für die Hilfe!