Legen Sie die Formel so fest, dass sie die Zelle des Bereichs (z. B. A1) gegenüber dem Inhalt von A1 ist.

Question

Ich versuche, ein Makro einzurichten, das neben dem Inhalt der Zelle einen Text einfügt. Das Problem ist, dass der Code den Inhalt der Zelle daneben kopiert, ich die Formel dann aber nicht nach unten ziehen kann, um sie fortzusetzen. Ich möchte, dass die Formel mit A1 endet, nicht mit dem Inhalt von A1, der 1111 ist. Die Formel lautet beispielsweise normalerweise, ="ADDTOFRONT"&A1aber jetzt="ADDTOFRONT"&1111

Z.B:

'''''PUBLICVARS'''''
Public cll As Variant
Public clloffset As Variant

'''''ENDPUBVARS'''''
'''''MAINSUB'''''
Public Sub Add_BINWH()

cll = Application.InputBox(Prompt:="Which Cell To Add Formula? Eg: B1", Default:="B1")
Set clloffset = Range(cll).Offset(0, -1)
ActiveWorkbook.ActiveSheet.Range(cll).Formula = "=" & Chr(34) & "ADDTOFRONT" & Chr(34) & "&" & clloffset.Value

End Sub
'''''ENDMAINSUB'''''

Answer 1

Sie möchten, dass in der Zeichenfolge die Adresse und nicht der Wert eingefügt wird.

clloffset.Value

Sollte sein

clloffset.Address(0,0)