Sverweis mit VBA
26.03.2018 10:52:25
Peter
ich möchte, dass wenn Spalte A eine Zahl enthält
es in der Spalte R ein SVerweis mit dem Wert der Spalte A und Bezug auf die Spalte A und B von Tabelle3 nehmen soll. Außerdem soll in Spalte S eine Formel eingefügt werden (diese funktioniert auch bereits).
lediglich der SVerweis funktioniert nicht. Kann mir jemand weiterhelfen?
Außerdem habe ich noch eine Frage:
Mein Makro schaut immer ob die Spalte A leer ist. Manchmal steht dort aber ein Wort. Und ich benötige die Formeln nur bei Zahlen kann ich es so einstellen, dass er nicht nur wenn es nicht leer ist die Formeln in Spalte R und S einfügt sondern wenn dort in A ein Wort statt einer Zahl steht auch keine Formeln einfügt?
Vielen Dank im Voraus!
Peter
Sub Verweise()
Dim LoLetzte As Long
Dim LoI As Long
With Worksheets("Tabelle3")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
For LoI = 12 To LoLetzte
If .Cells(LoI, 1) "" Then
.Cells(LoI, 18).Formula = "=SVERWEIS(A" & LoI & ";Tabelle2!A:B;2;FALSCH)"
.Cells(LoI, 19).Formula = "=J" & LoI & "*R" & LoI & "/100"
End If
Next LoI
End With
End Sub