Hallo mcscool188,
keine Ahnung, ob ich Dir das Ergebnis, was Du Dir vorgestellt hast, vor allem weil Du etwas wirr mit den Zellbezeichnungen hin und her springst (A16, B16, ?????), jetzt liefern kann, aber nachfolgendes Beispiel trägt Dir in Zelle B16 die Formelverknüpfung auf die aktive Zelle und in Zelle A16 die Formelverknüpfung der aktiven Zelle - eine Spalte nach links ein.
On Error Resume Next
Range("B16").FormulaLocal = "=" & ActiveCell.Address(0, 0)
Range("A16").FormulaLocal = "=" & ActiveCell.Offset(0, -1).Address(0, 0)
On Error GoTo 0
Ich hoffe, Du hast das so gemeint. Wenn nicht, etwas besser erklären.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]