(VBA) externen Verweis in einer Formel durch eine Variabel ersetzen

26/02/2008 - 09:41 von Walter | Report spam
Hallo,

sicherlich ist der Betreff für euch nicht ganz verstàndlich.
Was möchte ich?

Ich habe diverse Makros in denen in vielen Zellen Formeln eingetragen
werden. Diese Formeln enthalten Verweise zu externe Dateien.

Ziel ist diese Formeln im Makro so zu veràndern, dass ich sie nicht
monatlich überarbeiten muss, also variabel gestalten möchte. Die
Dateiangaben sollen in der Excel-Datei auf einem separaten Blatt
stehen.

Beispiel:
ALT:
Range("E3").FormulaR1C1 = "=OFFSET('[Planung 2008-01.xls]Werkzeug'!
R1C1,MATCH(""Anfangsbestand"",'[Planung 2008-01.xls]Werkzeug'!
R1C1:R47C1,0)-1,MATCH(R19C2,'[Planung 2008-01.xls]Werkzeug'!R3,0)-1)"
NEU:
auf dem Blatt "Verweise" steht in Zelle B2 "="'[Planung
2008-01.xls]Werkzeug'!"
Planwz = sheets ("Verweise").cells (2, 2)
Range("E3").FormulaR1C1 "=OFFSET(Planwz&R1C1,MATCH(""Anfangsbestand"",Planwz&R1C1:R47C1,0)-1,MATCH(R19C2,Planwz&R3,0)-1)"

Sollten zu meinen Erlàuterungen noch Fragen bestehen, dann postet sie
gerne.

Ist mein Vorhaben umsetzbar?

Gruß
Walter
 

Lesen sie die antworten

#1 Robert Gelbmann
26/02/2008 - 11:07 | Warnen spam
Hallo Walter!

"Walter" schrieb ...
[...]
Ich habe diverse Makros in denen in vielen Zellen Formeln eingetragen
werden. Diese Formeln enthalten Verweise zu externe Dateien.

Ziel ist diese Formeln im Makro so zu veràndern, dass ich sie nicht
monatlich überarbeiten muss, also variabel gestalten möchte. Die
Dateiangaben sollen in der Excel-Datei auf einem separaten Blatt
stehen.
[...]



Du bist ja schon auf dem richtigen Weg, nur darf die Variable beim
Zusammenstellen der Formel logischerweise nicht Bestandteil des
(Formel)-Textes sein:

Range("E3").FormulaR1C1 = "=OFFSET(" & Planwz &
"R1C1,MATCH(""Anfangsbestand""," & Planwz &
"R1C1:R47C1,0)-1,MATCH(R19C2," & Planwz & "R3,0)-1)"

P.S.: Du solltest dir dringend überlegen, Bereichsnamen (bis Excel
2003: Einfügen / Namen / Definieren) statt der absoluten
Zellbezugsangaben zu verwenden!

In der Hoffnung geholfen zu haben, verbleibe ich mit einem leisen


Servus aus Wien,
-Robert Gelbmann-

The world is quiet here.

Ähnliche fragen