Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Änderungen in MSG Box Anzeigen

Änderungen in MSG Box Anzeigen
22.07.2006 22:52:00
André
Guten Abebd,
nach langem Probieren habe ich Aufgegeben und hoffe nun hier Hilfe zu bekommen.
Also, ich möchte in einer MSG Box (die eventuell in den Hintergrund zu stellen ist) die letzten Änderungen von Zellwerten (ich sage mal 20 )in einer Exel Datei und den verschiedenen Tabellenblättern dokumentieren. Diese MSG Box sollte aber auch beim öffnen der Datei die letzten Änderungen noch Anzeigen.
Danke und Gute Nacht

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Änderungen in MSG Box Anzeigen
22.07.2006 23:48:58
Jens
"die eventuell in den Hintergrund zu stellen ist"
Das geht schon mal nicht und wenn das beim nächsten Öffnen auch verfügbar sein soll, muss es irgendwo gespeichert werden. Wenn innerhalb der Mappe, muss zwangsläufig immer gespeichert werden, was aber nicht immer erwünscht ist.
Zwei Varianten, in die Registry mit SaveSetting oder in eine Textdatei, Anzeige
in einer nichtmodalen Userform.
mfg Jens
AW: Änderungen in MSG Box Anzeigen
23.07.2006 17:59:22
André
Hallo,
o.k. in den Hintergrund geht nicht. Das mit dem Anzeigen nach dem öffnen ist auch schlecht.
Aber die letzten aktuellen Zelländerungen in einer MSG Box Anzeigen lassen das geht doch? Oder!
Danke André
Anzeige
AW: Änderungen in MSG Box Anzeigen
23.07.2006 18:10:31
Jens
Hi,
geht schon, nur bleibt die Frage, wo die Änderungen gespeichert werden sollen?
mfg Jens
AW: Änderungen in MSG Box Anzeigen
25.07.2006 05:05:15
André
Hallo Jens,
in einer extra Exel-Datei oder einer zusätzlichen Arbeitsmappe?!
Danke André
AW: Änderungen in MSG Box Anzeigen
23.07.2006 18:45:57
Josef
Hallo André!
Kopiere den Code in deine Datei. Achte darauf welcher Code wohin gehört.
Die Logdatei wird im Verzeichnis der Datei angelegt.
Mit dem Makro "showLog" kanst du die Logdatei öffnen.
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Ueberwachung (Me.Name & ";" & Sh.Name & ";" & Target.Address(0, 0) & ";" & _
  Target.Text & ";" & Application.UserName & ";" & Now)
End Sub


' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function Ueberwachung(ByVal strLog As String)
'by Josef Ehrensberger
Dim strText As String, strfile As String
Dim lngLine As Long
Dim varValues(19) As Variant

On Error GoTo FEHLER

strfile = ThisWorkbook.Path & "\log.txt"

If Dir(strfile) = "" Then
  Close #1
  Open strfile For Output As #1
  Print #1, strLog
  Close #1
Else
  
  varValues(0) = strLog
  Close #1
  
  Open strfile For Input As #1
  lngLine = 1
  Do While Not EOF(1)
    Line Input #1, strText
    varValues(lngLine) = strText
    lngLine = lngLine + 1
    If lngLine > UBound(varValues) Then Exit Do
  Loop
  Close #1
  Open strfile For Output As #1
  For lngLine = 0 To UBound(varValues)
    Print #1, varValues(lngLine)
  Next
  Close #1
End If

FEHLER:
Close #1
End Function


Sub showLog()
Dim dummy
Dim strfile As String

strfile = ThisWorkbook.Path & "\log.txt"

If Dir(strfile) = "" Then
  MsgBox "Logfile nicht gefunden!", 64, "Hinweis"
Else
  dummy = Shell("NOTEPAD " & strfile, vbNormalFocus)
End If

End Sub


Gruß Sepp

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige