title image


Smiley So z. B. wird jede Änderung in eine
txt- Datei geschrieben:



Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)

Dim datei As String

Dim text As String

datei = "C:\temp\test.txt"

Open datei For Append As #1

Write #1, ThisWorkbook.Name & " " & ActiveSheet.Name & " " & ActiveCell.Address(False, False) & " " & ActiveCell.Value & " " & Now

Close #1

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: