Alternativ zu Sheets("?").Select
24.05.2008 08:49:00
Mister
folg. Makro ist Bestandteil des Workbook_Open Codes meiner Datei und wird beim jeden Start meiner Datei ausgeführt. Wie kann ich die Zeilen "Select" und "Unprotect" umschreiben, sodass die Tabelle "Statistik" nicht eingeblendet wird wenn das Makro läuft?
Sub Statistik()
Application.ScreenUpdating = False
Dim i As Long
Sheets("Statistik").Select
ActiveSheet.Unprotect
With Worksheets("Statistik")
.Range("T45").Value = Date
.Range("F52") = Day(DateSerial(Year([T45]), Month([T45]) + 1, 0))
For i = 7 To 37
If Sheets("Statistik").Cells(i, 2) = Day(Now) Then
.Cells(i, 4) = Date
.Cells(i, 6) = Sheets("Bestand").Range("F14")
.Cells(i, 8) = Sheets("Bestand").Range("D17")
.Cells(i, 11) = Sheets("Bestand").Range("D19")
.Cells(i, 14) = Sheets("Bestand").Range("D21")
.Cells(i, 17) = Sheets("Bestand").Range("D23")
.Cells(i, 20) = Sheets("Bestand").Range("F19")
End If
Next
End With
ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub
Ich habe es mit "With" versucht aber es kommt die Fehlermeldung, dass die Unprotect Eigenschaft nicht gesetzt werden könne.
Wer weiß Rat?
Gruß
Martin
Anzeige