Ich möchte zu einer Ziffer, welche ab dem zweiten Blatt in A1 steht, die dazugehörige Bezeichnung aus dem ersten Blatt "Konti" (Spalte B) ziehen und diese dann im Feld B1 eintragen. Irgendwas mache ich falsch.
Sub Konten_bezeichnen()
Dim i As Long
For i = Sheets("Konti").Index + 1 To Sheets.Count
With Worksheets(i)
Range("B1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Konti!C[-1]:C,2,FALSE)"
End With
Next i
End Sub
Vielen Dank für Eure Hilfe.Gruss
Frédéric