Makro zum erstellen einer Liste
19.09.2007 11:34:00
Benjamin
ich habe ein Makro das jedesmal wenn es aktiviert wird, einen Eintrag mit dem aktuellen Datum in eine Textdatei schreibt.
Kann mir bitte jemand dabei helfen das Makro so zu verändern, dass nicht nur das Datum, sondern auch aus der aktuellen Tabelle das Feld A1 hinter dem Datum in die Textdatei eingefügt wird.
Das Makro sieht zur Zeit so aus:
(zum Testen einfach Makro in VBA einfügen und Ordner Test unter C erstellen)
Sub LISTE()
Dim ZeitPunkt As Date
ZeitPunkt = Now
Application.ScreenUpdating = False
'Zeitpukt der Button-Betätigung in Text-Datei speichern
Call ZeitPunktTXT(DatumZeit:=ZeitPunkt, _
DateiName:="C:\Test\ButtonKlickZeit.txt", LISTE:=False)
Call ZeitPunktTXT(DatumZeit:=ZeitPunkt, _
DateiName:="C:\Test\ButtonKlickZeitListe.txt", LISTE:=True)
Application.ScreenUpdating = True
End Sub
Sub ZeitPunktTXT(DatumZeit As Date, DateiName As String, LISTE As Boolean)
'Zeitpunkte des Buttonklicks in Text-Dateien speichern
Dim FreeNr As Byte
On Error GoTo Fehler
FreeNr = FreeFile
If LISTE = False Then
Open DateiName For Output As #FreeNr
Print #FreeNr, "ZeitPunkt Letzter Klick"
Else
Open DateiName For Append As #FreeNr
End If
Print #FreeNr, Format(DatumZeit, "DD.MM.YYYY hh:mm:ss")
Close #FreeNr
Exit Sub
Fehler:
MsgBox "Fehler Nr.: " & Err.Number & " ist aufgetreten!" & vbLf & vbLf & Err.Description
Close #FreeNr
End Sub
Ich hoffe mir kann jemand helfen
Mit freundlichen Grüßen
Benjamin