Office: Änderungen nachverfolgen mit VBA aktivieren

JimmyTalent · 21. August 2010

Hallo Zusammen

Mein Makro macht bis jetzt folgendes:

1. Neue Mappe erstellen
2. Daten gezielt aus einer Mappe in die neue Mappe kopieren
3. Speichern der neuen Mappe auf Desktop unter bestimmtem Namen mit Datum etc.

Gerne würde ich aber während diesem Makro in der neuen Mappe noch die Funktion "Änderungen nachverfolgen" aktivieren.

Hätte da jemand eine Befehlszeile? denn folgendes Funktioniert leider nicht:

Code:

...

wbVPNeu.Activate
ActiveWorkbook.KeepChangeHistory = True
With ActiveWorkbook
.HighlightChangesOptions When:=xlAllChanges
.ListChangesOnNewSheet = False
.HighlightChangesOnScreen = True
End With

...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank und eine gute Woche!

Gruss
Jimmy

:)

mumpel · 23. August 2010

Hallo!

Du musst die Arbeitsmappe speichern damit die Änderungsverfolgung, welche zur Freigabe der Arbeitsmappe führt, auch gesetzt werden kann.

Application.DisplayAlerts = False
With ActiveWorkbook
.KeepChangeHistory = True
.SaveAs Filename:="C:\Users\Rene\Desktop\Mappe2", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, AccessMode:=xlShared
.HighlightChangesOptions When:=xlAllChanges
.ListChangesOnNewSheet = False
.HighlightChangesOnScreen = True
End With
Application.DisplayAlerts = True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code eingefügt mit VBA in HTML 2.0

Gruß, René

JimmyTalent · 24. August 2010

Hi René

Vielen Dank für Deine Hilfe! Gerne würde ich die Mappe mit einer bestimmten Bedingung speicher:
Code:

wbVPNeu.SaveAs Environ("userprofile") & "\Desktop\" & _
"TEST" & " - " & wbLMR.Sheets("1.3. DRUCK LMR VP").Range("B7") & " - " & Date & ".xls"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Leider kriege ich das aber nicht hin. Hat bis anhin bestens geklappt. Aber mit der neuen Bedingung (Änderungen nachverfolgen) gehts nicht mehr. Hättest Du dazu ebenfalls eine Idee wie ich das kombinieren könnte?

Vielen Dank!

Gruss
Jimmy

JimmyTalent · 25. August 2010

Hat vieleicht sonst jemand eine Idee? Vielen Dank!

jinx · 25. August 2010

Moin, Jimmy,

was sagt denn die Hilfe über freigegebene Mappen und VBA aus? *wink.gif* Erst speichern, dann freigeben, wenn möglich mit VBA-Code aus einer externen Mappe...

JimmyTalent · 25. August 2010

Hallo Zusammen

Der Ansatz von René ist schon richtig! Funktioniert auch!
Code:

Application.DisplayAlerts = False
With ActiveWorkbook
.KeepChangeHistory = True
.SaveAs Filename:="C:\Users\Rene\Desktop\Mappe2", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, AccessMode:=xlShared
.HighlightChangesOptions When:=xlAllChanges
.ListChangesOnNewSheet = False
.HighlightChangesOnScreen = True
End With
Application.DisplayAlerts = True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber die Speicherung sollte mit diesen Bedingungen erfolgen:
Code:

wbVPNeu.SaveAs Environ("userprofile") & "\Desktop\" & _
"TEST" & " - " & wbLMR.Sheets("1.3. DRUCK LMR VP").Range("B7") & " - " & Date & ".xls"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber wie kombiniere ich die beiden? Habs probiert, aber meine bescheidenen Kenntnisse reichen dazu nicht aus *frown.gif*

Gruss
Jimmy

JimmyTalent · 25. August 2010

Hallo Zusammen

Gerne würde ich mit einem Makro die Einstellung "Änderungen nachverfolgen" aktivieren, die Speicherung aber automatisieren mit bestimmten Bedingungen.
Ich habe bereits beide Codes, aber zusammen funktionieren die nicht.
Kann mir da jemand helfen?
Vielen Danke!

Gruss
Jimmy

Änderungen Nachverfolgen:
Code:

Application.DisplayAlerts = False
With ActiveWorkbook
.KeepChangeHistory = True
.SaveAs Filename:="C:\Users\Rene\Desktop\Mappe2", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, AccessMode:=xlShared
.HighlightChangesOptions When:=xlAllChanges
.ListChangesOnNewSheet = False
.HighlightChangesOnScreen = True
End With
Application.DisplayAlerts = True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Speicherbedingung:
Code:

wbVPNeu.SaveAs Environ("userprofile") & "\Desktop\" & _
"TEXT" & " - " & wbLMR.Sheets("1.3. DRUCK LMR VP").Range("B7") & " - " & Date & ".xls"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

EarlFred · 25. August 2010

Hallo Jimmy,

warum ein neuer Thread?

http://www.ms-office-forum.de/forum/...d.php?t=268582

Grüße
EarlFred

JimmyTalent · 25. August 2010

weil niemand mehr antwortet *frown.gif*

JimmyTalent · 26. August 2010

ist das gar nicht möglich?

jinx · 26. August 2010

Moin in die Runde,

Threads zusammengeführt und einen durch die Zusammenführung überflüssigen Hinweis auf den neuen Thread gelöscht (den gibt´s nun nicht mehr).

Office: Änderungen nachverfolgen mit VBA aktivieren

Änderungen nachverfolgen mit VBA aktivieren

Änderungen nachverfolgen mit VBA aktivieren

Änderungen nachverfolgen mit VBA aktivieren

Änderungen nachverfolgen mit VBA aktivieren

Änderungen nachverfolgen mit VBA aktivieren - Similar Threads - Änderungen nachverfolgen VBA

Zeichenzahl begrenzen und trotzdem Kommentare zulassen?

Änderungshistorie in Tabelle in PP anlegen

Änderungen nachverfolgen

Anzeigen von Änderungen für alle Nutzer der Mappe

"Änderungen nachverfolgen" - Prozentuale Änderung einsehbar?

Änderung nachverfolgen bei "kleinschreibung"

Nachverfolgen von Änderungen