Excel VBA Activate-Methode des Range-Klasse ist fehlgeschlagen

Question

ich einen Code haben, die ich in einem anderen Makro verwendet und wotked, dass jetzt nicht funktioniert und ich erhalte immer Laufzeitfehler 1004 in der Zeile mit activate:

Sub initialize() 

dim MonthName as string 
dim MainWB as workbook 
dim VisualWS as worksheet 

MonthName = cells (1,1).value 
Set MainWB = ThisWorkbook 
Set VisualWS = MainWB.Worksheets("Visual") 

With VisualWS 
    .Range("L1:W1").Find(MonthName, , xlValues, xlWhole).Activate 
End With 

MonthCol = ActiveCell.Column 

End Sub 

Answer 1

nach dem docs on Range.Find , die "Methode gibt Nothing zurück, wenn keine Übereinstimmung gefunden wird."

Wahrscheinlich findet Ihre Methode .Range(). Find() keine Übereinstimmungen und gibt daher Nothing zurück, die keine Funktion Activate hat.

Versuchen Sie stattdessen:

Dim findResult As Range 
Set findResult = .Range("L1:W1").Find(MonthName, , xlValues, xlWhole) 
If findResult <> Nothing then findResult.Activate 

Answer 2

Find könnte gut Nothing zurückkehren, so würde ich lieber schreiben:

With VisualWS 
    set target = .Range("L1:W1").Find(MonthName, , xlValues, xlWhole) 
End With 
If target is Nothing Then 
    DoSomething 
else 
    MonthCol = target.Cells(1,1).Column 
End if 

(ungetestet)