Änderungen nachverfolgen mit VBA

Tinu · 2012-10-10T16:14:18+00:00

Liebe VBA Cracks Ich möchte beim Öffnen des Workbooks die Nachverfolgung der Änderungen automatisch einschalten. Das habe ich so versucht: Private Sub Workbook_Open() With ActiveWorkbook .HighlightChangesOptions When:=xlNotYetReviewed, where:="A7:L280" .ListChangesOnNewSheet = False .HighlightChangesOnScreen = True End With End Sub Offenbar ist da aber noch ein Fehler drin. Es funktioniert nämlich nicht :( Für Eure Hilfe bin ich sehr dankbar. Grüsse aus der Schweiz Tinu

Hallo Tinu,
da das Ganze sich in Verbindung mit einer freigegebenen Arbeitsmappe abspielt gibt verschiedene Ursachen für eine Fehlermeldung. Deshalb sollten ein paar Prüfungen eingebaut werden und die Warnmeldungen deaktiviert werden.
Gruß
Franz

Private Sub Workbook_Open()
With ActiveWorkbook
'Prüfen, ob Änderungen verfolgen aktiviert ist
If .MultiUserEditing = True Then
If .KeepChangeHistory = True Then
Application.DisplayAlerts = False
.Sheets("Tabelle1").Activate 'erforderlich, wenn mehrere Blätter vorhanden
.HighlightChangesOptions When:=xlNotYetReviewed, Who:="Jeder", Where:="A7:L280"
.ListChangesOnNewSheet = False
.HighlightChangesOnScreen = True
Application.DisplayAlerts = True
Else
MsgBox "Verfolgen der Änderungen ist nicht aktiviert!" & vbLf _
& "Änderungen können nicht angezeigt werden!", _
vbInformation + vbOKOnly, _
"Änderungen in Arbeitsmappe verfolgen"
End If
Else
MsgBox "Diese Datei ist zur Zeit nicht freigegeben!" & vbLf _
& "Änderungen können nicht angezeigt werden!", _
vbInformation + vbOKOnly, _
"Änderungen in Arbeitsmappe verfolgen"
End If
End With
End Sub

Hallo Franz
Vielen Dank für Deinen Input. Es hat zwar so nicht funktioniert, aber es hat mich auf die richtige Spur gebracht. Weil es sich um eine freigegebene Arbeitsmappe handelt, muss die Prozedur als Makro in der persönlichen Makro-Arbeitsmappe (PERSONAL.XLSB) stehen und aufgerufen werden.
Meine Prozedur sieht so aus:

Sub Tracker()
'Änderungen nachverfolgen
Dim filenametotal As String
ActiveWorkbook.KeepChangeHistory = True
ActiveWorkbook.ChangeHistoryDuration = 365
filenametotal = ActiveWorkbook.Worksheets("lies mich").Range("C27")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs filenametotal, FileFormat:=xlExcel8, AccessMode:=xlShared
With ActiveWorkbook
.HighlightChangesOptions When:=xlNotYetReviewed, Where:="A7:L5000"
.ListChangesOnNewSheet = False
.HighlightChangesOnScreen = True
Application.DisplayAlerts = True
End With
End Sub

Nochmals vielen Dank, viele Grüsse und ein schönes Weekend
Tinu

Änderungen nachverfolgen mit VBA

Forumthread: Änderungen nachverfolgen mit VBA

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial