Office: (Office 2010) Relativer & Absolter Zellbezug mit VBA

Hallo zusammen,

ich benötige mal wieder Hilfe bei einem Thema welches meine Excel VBA Kenntnisse übersteigt aber eigentlich wahrscheinlich ganz einfach ist *wink.gif*

Ich habe eine Ausgangstabelle "Daten" in der ich unterschiedliche Kennzahlen ermittel. Wenn ich hier eine neue Spalte hinzufüge, füge ich automatisch beim Blatt "Zusammenfassung" ebenfalls eine neue Spalte hinzu mit Zellbezügen zum Datenblatt "Daten". Das mache ich deshalb, weil im Blatt "Daten" eventuell noch die eine oder andere Zeile eingefügt werden kann und sich somit die Bezüge auf dem Blatt "Zusammenfassung" mit aktualisieren sollen.
Soweit habe ich das auch hinbekommen nur leider scheitere ich jetzt gerade am Thema absoluter und relativer Bezug.
Ich übergebe die Daten zwischen den Tabellen mit:

Code:

Das Ergebnis ist leider ein absolter Zellbezug z.B. ='Daten'!$K$22

Da sich der Zellbezug ja automatisch anpassen soll benötige ich natürlich einen relativen Zellbezug.
Normalerweise würde ich ja beim R1C1 einfach R[15]C[22] schreiben und hätte meinen relativen Bezug aber wenn ich das mit den Variablen mache erkennt VBA das nicht wirklich. Was muss ich ändern, damit ich einen relativen Zellbezug hier raus bekomme?

Vielen Dank im Voraus für euren Support.

VG

Basti256

:)

 

Hi Basti,

wie wäre es damit:

Code:

 

Hallo Ralf,

danke für die Unterstützung.
Klappt leider nicht. Beim Ausführen des Codes öffnet sich ein Windows Fenster in dem man eine Datei zum "Werte aktualisieren" auswählen soll?!
Hast du einen Verbesserungsvorschlag?

VG

Basti

 

...das liegt ganz sicher nicht an meiner Codezeile. Was vorher in Deinem Code abläuft kann ich ohne Kenntnis Deiner Datei leider nicht beurteilen...

 

Hi Basti,
vorab zwei Bemerkungen:

intZeile usw. lassen vermuten, dass du da Integer-Variablen verwendest. Long wäre besser.
VBA arbeitet ohnehin mit Long-Zeilen. und Spaltennummern. Und mehr als 32000 kann man leicht haben...

Willst du wirklich eine Zelle selektieren? Wenn nicht, kannst du statt
Sheets("Zusammenfassung").Cells(intZeile, intSpalte).Select
ActiveCell.FormulaR1C1 = ...
einfacher und kürzer und weniger störungs- und fehleranfällig schreiben:
Sheets("Zusammenfassung").Cells(intZeile, intSpalte).FormulaR1C1 = ...

Schau dir mal dieses Beispiel an: Code:

Das Wesentliche am relativen Bezug ist ja, dass Zeile/Spalte der Zelle, in der die Formel steht, auch eine wichtige Rolle spielen.

Nun noch zum "Werte aktualisieren": Das rührt vermutlich daher, dass es eine Verknüpfung zu einer anderen Mappe o.ä. gibt.