Absoluter Zellbezug mit VBA
29.09.2017 11:21:13
Daniel
leider komm ich selber und nach langer Suche nicht weiter.
Ich möchte ein VBA Skript schreiben das eine Index/Vergleich Formel in Zellen einer Spalte einfügt. Diese Formel beinhaltet einen absoluten Bezug auf einem anderen Tabellenblatt. Ich bekomme immer den Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler. Der Sinn und Zweck der Formel ist die Übersetzung von Kürzeln ins Text während einer Auswertung zu automatisieren.
Hier ist mein Skript:
Sub test()
Dim lz As Long
Dim i As Long
lz = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To lz
Cells(i, "C").Formula = "=INDEX(Kürzel!$B$2:$B$6;VERGLEICH(A2;Kürzel!$A$2:$A$6;0))"
Next i
End Sub
Die Excel-Datei ist unter diesem Link hochgeladen:https://www.herber.de/bbs/user/116623.xlsx
Wenn ich einen Apostroph "'" vor dem "=" Zeichnen einfüge dann schreibt das VBA Skript die Formel in der Zelle rein. Ich habe danach versucht den Apostroph mit VBA zu entfernen, aber dann bekomme ich wieder den gleichen Fehler. Die Index/Vergleich Formeln funktioniert im Tabellenblatt einwandfrei. Was mache ich mit meinem Skript falsch?
Vielen Dank im Voraus für die Hilfe!