Hallo Leute.
Kann mir jemand sagen wie ich in folgendem Makro den definierten "bereich" im wverweis richtig anspreche (Fett markiert)?
Sub wverweis()
' wverweis Makro
Dim bereich As Range
Set bereich = Rows(11).Find("tofind", LookIn:=xlValues, lookat:=xlWhole)
If Not bereich Is Nothing Then
Range(Cells(11, 8), Cells(11, bereich.Column - 1)).Select
Else
MsgBox "nix gefunden"
End If
ActiveCell.FormulaR1C1 = "=HLOOKUP(R[-18]C[-5],bereich,1,TRUE)"
Range("K40").Select
End Sub
Danke!
Lg Kash
|