Wie können Änderungen nachverfolgt werden, ohne die Arbeitsmappe freizugeben?
Normalerweise wird beim Aktivieren der Funktion „Änderungen nachverfolgen“ in Excel automatisch auch die Arbeitsmappe freigegeben – was störend sein kann, da dadurch bestimmte Excel-Funktionen deaktiviert werden. Wie können Sie Änderungen nachverfolgen, ohne die Arbeitsmappe freizugeben? Hierzu empfehle ich Ihnen einen VBA-Code.
Änderungen ohne Freigabe der Arbeitsmappe mithilfe eines VBA-Codes nachverfolgen
Text in Outlook in eine Tabelle umwandeln
Es gibt keine direkte Lösung für dieses Problem, aber Sie können einen flexiblen VBA-Code nutzen. Gehen Sie dazu wie folgt vor:
1. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte, deren geänderte Zellen Sie nachverfolgen möchten, und wählen Sie im Kontextmenü Code anzeigen aus. Fügen Sie im erscheinenden Fenster Microsoft Visual Basic for Applications den folgenden Code in das leere Modul ein:
VBA-Code: Änderungen ohne Freigabe der Arbeitsmappe nachverfolgen:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Const xRg As String = "A1:Z1000"
Dim strOld As String
Dim strNew As String
Dim strCmt As String
Dim xLen As Long
With Target(1)
If Intersect(.Cells, Range(xRg)) Is Nothing Then Exit Sub
strNew = .Text
Application.EnableEvents = False
Application.Undo
strOld = .Text
.Value = strNew
Application.EnableEvents = True
strCmt = "Edit: " & Format$(Now, "dd Mmm YYYY hh:nn:ss") & " by " & _
Application.UserName & Chr(10) & "Previous Text :- " & strOld
If Target(1).Comment Is Nothing Then
.AddComment
Else
xLen = Len(.Comment.Shape.TextFrame.Characters.Text)
End If
With .Comment.Shape.TextFrame
.AutoSize = True
.Characters(Start:=xLen + 1).Insert IIf(xLen, vbLf, "") & strCmt
End With
End With
End Sub
Hinweis: Im obigen Code ist A1:Z1000 der Datenbereich, dessen Änderungen Sie nachverfolgen möchten.
2. Schließen Sie anschließend das Codefenster und speichern Sie es. Sobald Sie nun Werte in beliebigen Zellen innerhalb des begrenzten Bereichs ändern, werden diese Änderungen erfasst, ohne dass die Arbeitsmappe freigegeben wird. Siehe Screenshot:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins