VBA: Excelformel in String speichern

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,
ich habe folgendes Problem:
Mit nachfolgendem Programmcode will ich eine Sverweis-Formel in Abhängigkeit vom Buchstaben in Zelle B2 erzeugen:

Private buchstabe As String

Public Sub gruppe()
buchstabe = Range("B2").Value
Cells(26, 26) = Chr(61) + "SVERWEIS(" + "G" + buchstabe + "1" + Chr(34) + ";Spiele!BC2:BI400;4;WAHR)"
' Es soll hin =SVERWEIS("GX1";Spiele!BC2:BI400;4;WAHR)
' X in Abhängigkeit vom Wert in Zelle "B2"
End Sub

Erzeugt werden soll: =SVERWEIS(„GA1“;Spiele!$BC$2:blush:BI$400;4;WAHR) mit X als variabler Wert je nach Inhalt von B2

Leider kommt folgender Fehler:
Laufzeitfehler 1004: Anwendungs- oder Objektorientierter Fehler

Kann mir jemanden helfen und sagen wo hier der Fehler liegt?

Liebe Grüße
Dirk

#2

Hallo Dirk,

probier’s mal so:

Private buchstabe As String

Public Sub gruppe()
 buchstabe = Range("B2").Value
 Cells(26, 26).FormulaLocal = "=SVERWEIS(" & Chr(34) & "G" & buchstabe & "1" & Chr(34) & ";Spiele!$BC$2:blush:BI$400;4;WAHR)"
End Sub

Gruß, Andreas

#3

Vielen Dank Andreas, genau das was ich gesucht habe.