Laufzeitfehler '91'
23.06.2004 09:28:37
Marcel
Habe folgenden Code hingebastelt.
Aber ich bekomme an einer Stelle immer die Fehlermeldung
Objektvariable oder With-Blockvariable nicht festgelegt.
Sub Worksheet_Change(ByVal Target As Range)
'ActiveSheet.Unprotect "test"
nu = ActiveCell.Address
' beim ändern des Zelleninhaltes wird Makro gestartet
If Target.Row <> 1 And (Target.Column < 1 Or Target.Column > 225) Then Exit Sub
'Fehlermeldungen ausschalten
Application.DisplayAlerts = False
'oder Tatum und Zeit in Zellen eintragen
An dieser Stelle HÄNGT es immer
Range("F:F").Find(Date).Select
Dim dates As Date
Dim times As Date
dates = ActiveCell
da = ActiveCell.Address
Range(da).Offset(0, 1).Select
times = ActiveCell
dats = (" " & dates & " " & times & " ")
nowi = (" " & Now & " ")
If (nowi) < (dats) Then GoTo eksit
' Ganzes Blatt markieren, Zellen schützen und Formeln ausblenden
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = True
' Blatt schützen mit Namen test
ActiveSheet.Protect "test"
Range("a1").Select
MsgBox ("Es sind keine Eingaben mehr möglich!")
'Application.Quit
Exit Sub
eksit:
Range(nu).Select
End Sub
Anzeige