VBA Summenbildung in anderem Tabellenblatt über Variablen
Hallo an Alle,
sollte mal Eure HIlfe haben. Ich habe eine Exceldatei mit den Tabellenblätter: 2007, 2008, Auswertung
In dem Tabellenblatt "Auswertung" möchte ich ein VBA- Skript hinterlegen welches mir die Summe aus anderen Tabellenblättern errechnet. Hierzu habe ich bereits drei Variablen angelet
sBegin = "A"
SEnde = "D"
sJahr = "2008"
in diesem Beispiel möchte ich jetzt die Summe bilden von dem Tabellenblatt 2008 (Variable sJahr), Zeile 1 (ist fix), Spalte A bis D (Vaiablen sBegin, SEnde)
Wie kann ich bei der Summenformel den Inhalt der Variablen als Ziel angeben. Könnt Ihr mir weiterhelefen?
Gruß Alex
sollte mal Eure HIlfe haben. Ich habe eine Exceldatei mit den Tabellenblätter: 2007, 2008, Auswertung
In dem Tabellenblatt "Auswertung" möchte ich ein VBA- Skript hinterlegen welches mir die Summe aus anderen Tabellenblättern errechnet. Hierzu habe ich bereits drei Variablen angelet
sBegin = "A"
SEnde = "D"
sJahr = "2008"
in diesem Beispiel möchte ich jetzt die Summe bilden von dem Tabellenblatt 2008 (Variable sJahr), Zeile 1 (ist fix), Spalte A bis D (Vaiablen sBegin, SEnde)
Wie kann ich bei der Summenformel den Inhalt der Variablen als Ziel angeben. Könnt Ihr mir weiterhelefen?
Gruß Alex
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 103770
Url: https://administrator.de/contentid/103770
Ausgedruckt am: 22.11.2024 um 22:11 Uhr
2 Kommentare
Neuester Kommentar
Hallo captainchaos666!
Dazu brauchst Du ja eigentlich die Formel nur einmal von Hand zu erstellen, über die Eigenschaft ".Formula" auszulesen und die variablen Teile ersetzen ...
Mit Relativbezug würde das so ausssehen (die nötigen "$" für einen Absolutbezug bekommst Du sicher selber hin):
Grüße
bastla
Dazu brauchst Du ja eigentlich die Formel nur einmal von Hand zu erstellen, über die Eigenschaft ".Formula" auszulesen und die variablen Teile ersetzen ...
Mit Relativbezug würde das so ausssehen (die nötigen "$" für einen Absolutbezug bekommst Du sicher selber hin):
ActiveCell.Formula = "=SUM('" & sJahr & "'!" & sBegin & "1:" & sEnde & "1)"
bastla