VBA - Zahlen aus anderer xlsm Datei übernehmen

[gtacan]

Hallo,

ich versuche Zahlen aus einer anderen Datei zu bekommen und in einem Diagramm anzuzeigen, jedoch kommt immer die Fehlermeldung "out of range".

Mein Codestück:

ElseIf OptionButtonQuartal.Value = True Then
    s_von = Workbooks("C:\Users\Tim\Desktop\Zeiterfassung\202008110248091.xlsm").Worksheets("Wichtige Zahlen").Range("$E")
    s_bis = Workbooks("C:\Users\Tim\Desktop\Zeiterfassung\202008110248091.xlsm").Worksheets("Wichtige Zahlen").Range("$G")

.
.
.
ActiveChart.SetSourceData Source:=Range( "'Wichtige Zahlen'! " & s_von & "$71:" & s_bis & "$71,'Wichtige Zahlen'!" & s_von & "$74:" & s_bis & "$74,'Wichtige Zahlen'!" & s_von & "$79:" & s_bis & "$79")

Was mache ich da falsch? Ich vermute, das ich die Syntax von S_von und S_bis falsch habe.

MFG
Tim

[Lutz Fricke]

Hallo Tim,

auf jeden Fall ist da ein Leerzeichen zuviel:

Code:

ActiveChart.SetSourceData Source:=Range( "'Wichtige Zahlen'! " & s_vo

Nach "'Wichtige Zahlen'! darf kein Leerzeichen stehen.

Und warum so kompliziert?
Versuch doch einfach

Code:

    s_von = "E"
    s_bis = "G"

Gruß,
Lutz

[gtacan]

Das mit dem Leerzeichen ist durch das kopieren entstanden.

Ich will ja auf die Spalten der anderen Xlsm Datei zugreifen. Wenn ich direkt die Spalten eingeben würde, nimmt er dementsprechend nur die Spalten der geöffneten Datei.
 s_von = Workbooks("C:\Users\Tim\Desktop\Zeiterfassung\202008110248091.xlsm").Worksheets("Wichtige Zahlen").Range("$E")
 s_bis = Workbooks("C:\Users\Tim\Desktop\Zeiterfassung\202008110248091.xlsm").Worksheets("Wichtige Zahlen").Range("$G")

[steve1da]

Zur Info....

http://www.office-hilfe.com/support/show...Cbernehmen

[Lutz Fricke]

Diskussion läuft auf dem anderen Link...