automatische Dokumentation von Zellwerten
Zellwerten
ich habe ein kleines Excel Problem...
Vor ein paar Wochen habe ich hier eine Frage eingestellt, die sich mit einer automatischen Dokumentation von Zellwerten beim Start einer Excel-Datei beschäftigt hat. Mir wurde auch prima geholfen, aber nun wollte ich diese Lösung um einen Zellschutz erweitern. Das heißt, dass die Datei geöffnet wird und zunächst der Zellschutz beim Öffnen automatisch entfernt werden muss, bevor dann diese Routine ablaufen soll:
( Diese Routine steht in "Diese Arbeitsmappe")
Option Explicit
Private Sub Workbook_Open()
With Sheets("XYZ")
If IsError(Application.Match(CLng(Date - 1), .Columns(1), 0)) Then
With .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
.Value = Date - 1
.Offset(0, 1) = Sheets("ABC").Range("M4").Value
.Offset(0, 2) = Sheets("ABC").Range("M8").Value
.Offset(0, 3) = Sheets("ABC").Range("M12").Value
.Offset(0, 4) = Sheets("ABC").Range("M16").Value
.Offset(0, 5) = Sheets("ABC").Range("M32").Value
.Offset(0, 6) = Sheets("ABC").Range("M20").Value
.Offset(0, 7) = Sheets("ABC").Range("M36").Value
.Offset(0, 8) = Sheets("ABC").Range("M24").Value
.Offset(0, 9) = Sheets("ABC").Range("M28").Value
.Offset(0, 10) = Sheets("ABC").Range("M57").Value
End With
Me.Save
End If
End With
End Sub
Ich hoffe ihr könnt mir helfen...
Vielen Dank im Voraus.
Markus