SVerweis in VBA

[MisterBurns]

Code:

Cells(Zeile, 15).FormulaLocal = "=SVERWEIS(A" & Zeile & ",[MASTER.xls]Sheet1!$A:$E,5,0)"

[snb]

PHP-Code:

Sub M_snb()
   If MsgBox("Möchten die Plant angezeigt bekommen?", vbYesNo) = vbYes Then
       With Sheet1.Cells(2, 15)
          .Value = "=VLOOKUP($A2,[MASTER.xls]Sheet1!$A:$E, 5, 0)"
          .AutoFill .Resize(Sheet1.Columns(15).SpecialCells(2).Count-1)
        End With
    End If
End Sub 


[alkt94]

Hallo zusammen,

Es hat funktioniert! Es lag nur an Kleinigkeiten.
Danke an @Klaus Dieter, MisterBurns und @maninweb!

Der Code sieht nun fertig so aus:

Code:

Sub Plantbezug()
   Dim Eingabewert As String, z As Integer
   Eingabewert = MsgBox("Möchten die Plant angezeigt bekommen?", vbYesNo)
   Zeile = 2
   Do While (Cells(Zeile, 1) <> "")
       If Eingabewert = vbYes Then
           Cells(Zeile, 15).Formula = "=VLOOKUP(A" & Zeile & ", [MASTER.xls]Sheet1!$A:$H,8,0)"
           Zeile = Zeile + 1
       End If
   Loop
End Sub

[snb]

https://www.clever-excel-forum.de/Thread...#pid177064  übersehen ?