Clever-Excel-Forum

Normale Version: VBA - Zahlen aus anderer xlsm Datei übernehmen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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
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
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")
Diskussion läuft auf dem anderen Link...