Excel Visual Basic - Spaltenangabe anstatt von "AW" in Zahl

[HemSA]

Hallole an alle - und Allafffff.

Ich habe ein Problem in Excel Visual Basic:

Code: Alles auswählen

    Range("C2:C14").Select
    Selection.Copy
    Sheets("22").Select
    Range("AW3:AW15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.ChartObjects("Grafik 15").Activate
    ActiveChart.SeriesCollection(1).Select
    Application.CutCopyMode = False
    ActiveChart.SeriesCollection(1).Values = "='22'!R3C49:R15C49"

Für eine Auswertung mit einem Makro möchte ich den "AW" Teil in "Range("AW3:AW15").Select" durch eine Zahl ( Integer ) die dem Datum entspricht ersetzen.

Ebenso für den aktivierten Teil der Grafik "ActiveChart.SeriesCollection(1).Values = "='22'!R3C49:R15C49" die Zahl "49" durch eine Datumszahlvariable ( Integer ) ersetzen.

Absicht: In einem taeglichem aktuellem Arbeitsblatt "A" will ich in mehreren Arbeitsblaettern "B" eine Monatsübersicht machen. Für jeden neuen Tag im aktuellem Arbeitsblatt "A" soll automatisch die richtige Spalte in den Arbeitsblaettern "B" für die Kopierarbeit aktiviert werden ( die dem neuem Datum entspricht ). Und dann für eine Grafik im Arbeitsblatt "B" dem Datum entsprechenden richtige Datenquelle ( Spalte ) aktiviert werden ( durch aendern der Zahl "49" im obigem Beispiel so das die Grafik mit der richtigen Spalte dargestellt wird )

Habe schon ziemlich alle Versionen der Formatierung durchgespielt, aber es hat nie geklappt.

Hat eine / einer da eine Idee?

Danke im Vorraus.
Michael

[Waldixxl]

Hallo Michael

Werte von Zellen ersetze oder schreibe ich immer mit der Funktion Cells
Cells(Zeile, Spalte) = 22
Cells(1, 1) = 22 weist dem Feld A1 den Wert 22 zu
ebenso können damit Zellen gelesen werden > Wert = Cells(1, 1), Natürlich kann vor Cells(1,1)
auch das Arbeitsblatt und Arbeitsmappe im bekannten Format angegeben werden.

Ich hoffe das hilft Dir weiter
mfG
Walter

[HemSA]

Hallo Walter,
das mit dem "Cells" bringt mich schon weiter.

Danke nochmal.
Michael

[Pelagio]

Hallo HemSA,

es ist auch möglich 'Cells(Row, Col)' in 'Range("A2:A5").Value = 15' zu benutzen:
'Range(Cells(2,1), Cells(5,1)).Value = 15'
In diesem Falle wir die 15 in den Zellen A2 - A5 eingetragen.