Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
152to156
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
152to156
152to156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zellenveränderung mitloggen

zellenveränderung mitloggen
28.08.2002 15:13:31
andi
Hallo,
ich habe ein grosses excel sheet, sobald eine veränderung in einer zelle stattfindet, möchte ich diese mitloggen...in welcherZelle diese veränderung stattgefunden hat.
Wie kann ich herausfinden, ob eine veränderung stattgefunden hat, und in welcher zelle
danke andi

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: zellenveränderung mitloggen
28.08.2002 16:18:56
Martin
Hallo Andi

aus einem Forum (wo weiß ich nicht mehr) habe ich folgenden Code kopiert. Man muß diesen Code z. B. unter Tabelle1 im Visual-Basic-Editor eingeben. Gleichzeitig muß ein Tabellenblatt mit dem Namen "Protokoll TAB1" existieren. Das Makro protokolliert fast alles


Public varValue As String
Public strAddress As String

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim intRow As Integer

If CStr(Target.Formula) <> varValue Then
With Worksheets("Protokoll TAB1")
intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(intRow, 1).Value = strAddress
.Cells(intRow, 2).Value = "'" & varValue
.Cells(intRow, 3).Value = "'" & Target.Formula
.Cells(intRow, 4).Value = Now()
.Cells(intRow, 5).Value = Environ("Username") & " " & Application.UserName

varValue = CStr(Target.Value)
End With
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

varValue = CStr(ActiveCell.Formula)
strAddress = ActiveCell.Address
End Sub


Anzeige
Re: zellenveränderung mitloggen
29.08.2002 07:11:48
andi
super, danke

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige