Änderungsverlauf/Historie

[Steffl]

Hallo Carsten,

Code:

Sub Historie_anlegen()
'
' Historie_anlegen Makro
'

'
   With ActiveWorkbook
       .HighlightChangesOptions When:=xlAllChanges
       .ListChangesOnNewSheet = True
       .HighlightChangesOnScreen = False
   End With
   Range("A1:K9").Select
   Selection.Copy
   Sheets.Add After:=Sheets(Sheets.Count)
   ActiveSheet.Paste
End Sub

Kann mir jemand den Fehler sagen. Er kopiert leider nicht den Änderungsverlauf, sondern quasi immer das Register, welches unmittelbar davor ist (quasi als ob Änderungsverlauf unsichtbar wäre)

Achte hier auf eine korrekte Referenzierung indem Du das Worksheet mit angibst.

Code:

Worksheets("Historie").Range("A1:K9").Copy

und verzichte auf das selektieren.

[Carsten]

Moin Stefan,

du meinst beim Kopieren der Quelle oder beim Öffnen des neuen Registers?

Grüße
Carsten

[Steffl]

Hallo Carsten,

wo öffnest Du ein neues Register? Du fügst eins ein. Ich meinte schon beim kopieren.