Hallo zusammen,
und herzlich willkommen zu meinem ersten Beitrag in diesem Forum, welches mir schon bei so manchem VBA-Problem helfen konnte.
Leider finde ich zu meinem jetzigen Problem, egal wo im www, keine wirkliche Hilfe.
Mein Problem ist folgendes:
Über eine Inputbox lasse ich den Benutzer eine Zelle irgendwo in der aktuellen Arbeitsmappe wählen.
Die Auswahl wird dann in eine WENNDANN-Formel eingesetzt, die Formel wird in eine Zielzelle eingefügt und schon habe ich meinen Zellbezug, der auch bei einer Änderung der gewählten Quelle immer aktualisiert wird.
Bei der Auswahl der Quellzelle in der InputBox wird immer ein absoluter Zellbezug eingetragen und selbst wenn ich diesen in einen relativen ändere erscheint in der WENNDANN-Formel immer ein absoluter Bezug.
Wie bekomme ich es also hin, daß die Auswahl in der InputBox und am Ende in der Formel einen relativen Bezug erhält?
Der bisherige Code:
Dim rng As Variant
Set rng = Application.InputBox("Bitte Zelle markieren", "Auswahl", Type:=8)
Range("A7").Formula = "=IF('" & rng.Parent.Name & "'!" & rng.Address & "=0,"""",'" & rng.Parent.Name & "'!" & rng.Address & ")"
Ich hoffe, mir kann irgendwer helfen.
Danke im voraus.
Gruß,
André