ActiveCell.Adress

Question

Hallo!

ich habe folgenden Code:

Dim test as string
test =ActiveCell.Address(0, 0)

Range("B16").Activate
ActiveCell.FormulaR1C1 = "=" & test

An die Zelle für die Variable test komme ich über eine Makro-Suche.
Im nächsten Schritt müsste in die Zelle A16 sozusagen "=test-eins nach links".

Zum Beispiel so:
Über meine Suche bekomme ich für "test" D39 heraus. Dann steht in Zelle B16 "=D39". Jetzt muss aber in Zelle A16 "=C39" stehen.

Hat wer eine Idee???

Vielen Dank im Voraus.
MfG mcscool188

Answer 1

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]

Answer 2

Genau so war es gemeint! Vielen Dank!!!