Danke für den Hinweis dieses Problem habe ich bereits behoben.
Allerdings weiß ich immer noch nicht wie ich den Ausgewählten bereich in den Wverweis einbaue
Hier der aktuelle Code. Vl kannst du mir sagen wie ich das sonst am besten angehe:
Sub wverweis()
' wverweis Makro
Dim auswahl, rng1, rng2 As Range
Set auswahl = Rows(11).Find("tofind", LookIn:=xlValues, lookat:=xlWhole)
If Not auswahl Is Nothing Then
Range(Cells(11, 8), Cells(11, auswahl.Column - 1)).Select
Else
MsgBox "nix gefunden"
End If
Set rng1 = Range("F15")
Range("K40").Select
ActiveCell.FormulaR1C1 = "=HLOOKUP(" & rng1 & "," & auswahl & ",1,TRUE)"
Range("K40").Select
BZW wie schreibe ich die ausgewählte Range (
Range(Cells(11, 8), Cells(11, auswahl.Column - 1)).Select) auf eine Variable, dass ich diese dann einbauen kann?
LG
|