.Find - Putting Variable in Search verursacht Laufzeitfehler 13 - Typenkonflikt

Question

Warum funktioniert das:

Set rowNonBlankFound = Rows(rowToUse).Find(what:="*", after:=Cells(rowToUse, leftMostCol), LookIn:=xlValues, SearchDirection:=xlNext)

Aber dies nicht:

Dim direction As String direction = "xlNext" Set rowNonBlankFound = Rows(rowToUse).Find(what:="*", after:=Cells(rowToUse, leftMostCol), LookIn:=xlValues, SearchDirection:=direction)

ich Laufzeitfehler 13 - Typenkonflikt?

Answer 1

SearchDirection ist kein Argument vom Typ String, aber vom Typ XlSearchDirection können Sie keine Zeichenfolge an es übergeben, da es keine Konvertierung von einem zum anderen gibt. xlNext ist nicht identisch mit "xlNext"

Verwenden folgenden Code:

Dim direction As XlSearchDirection 
direction = xlNext 
Set rowNonBlankFound = Rows(rowToUse).Find(what:="*", after:=Cells(rowToUse, leftMostCol), LookIn:=xlValues, SearchDirection:=direction) 

Answer 2

Richtung ist eine Aufzählung enter link description here braucht eine Zahl sein oder eine Aufzählung equiv