Variablenübergabe in R1C1-Schreibweise
09.09.2005 22:26:07
reiner
ich übergebe in einem per Makro generierten Diagramm den anzuzeigenden Bereich mit Variablen für Zeilenanfang(Range), -Ende(Range) und Spaltennummer(String).
Bislang ist es mir aber noch nicht gelungen die in Spalte (B) enthaltenen Uhrzeitangaben als Zelladressen per Variable(String) an den Code für die X-Achse zu übergeben.
Der Code hierfür ist folgendermaßen aufgebaut:
'ActiveChart.SeriesCollection(1).XValues = "=Test!R1C2:R5C2"
Meine Versuche scheitern daran, dass ich die Variablen nicht in der vorliegenden Form übergeben kann.
Mit nachfolgendem Code ist es möglich die Zelladressen in die R1C1-Schreibweise umzuwandeln und in den Variablen mcA und mcE für eine evtl. weitere Verwendung zu speichern.
Set mc = Worksheets("Test").Cells(Zeilenanfang.Row, 2)
MsgBox mc.Address(ReferenceStyle:=xlR1C1) ' R1C1
mcA = mc.Address(ReferenceStyle:=xlR1C1)
Set mc = Worksheets("Test").Cells(vEnde.Row, 2)
MsgBox mc.Address(ReferenceStyle:=xlR1C1) ' R1C1
mcE = mc.Address(ReferenceStyle:=xlR1C1)
Es ist aber scheinbar nicht möglich diese Variablen wie nachfolgend dargestellt anstelle der erforderlichen R1C1-Schreibweise an den Code zu übergeben.
ActiveChart.SeriesCollection(1).XValues = "=Test!mcA:mcE"
Wenn jemand eine gute Idee hat, bitte ich um Rückmeldung
Reiner