Probleme mit der .FIND Methode
21.08.2018 16:36:55
Bastian
ich bin derzeit dabei einen "wieviel Stunden habe ich an welchem Tag gearbeitet Plan" zu entwerfen.
Nun ist es aber vorgekommen das ich, nachdem eigentlich schon alles soweit lief auf einmal die Fehlermeldung bekommen habe:
" Die Objektvariable oder die With-Blockvariable wurde nicht festgelegt"
Hier der Code Dazu:
If ActiveSheet.Columns(4).Find(Format(Date, "MMMM")).Select Then
MsgBox "Der Monat ist noch nicht zu ende"
Exit Sub
Else
Wie gesagt im Test und eine ganze Weile danach lief alles gut. Nunja, ich habe mich der Fehlermeldung gebeugt und einen WITH-Block mit eingebaut, doch nun bekomme ich den Fehler:"Methode oder Datenobjekt nicht gefunden"
Hier der geänderte Code:
Dim Blatts As Worksheet
Set Blatts = ActiveSheet
With Blatts.Columns(4)
If Blatts.Find(Format(Date, "MMMM")).Select Then
MsgBox "Der Monat ist noch nicht zu ende"
End With
Exit Sub
Else
Hier die Mappe
https://www.herber.de/bbs/user/123467.xlsm
Ich hoffe mir kann Jemand helfen.
Danke im Voraus