Tabelle automatisch erweitern
01.10.2002 09:39:11
Katharina
Es ist bestimmt ganz einfach, aber ich komm mal wieder nicht drauf!
Ich habe eine Tabelle mit Messwerten, die nur jeden Montag weitergeführt wird. Also habe ich ein Feld, welches mir die Kalenderwoche ausgibt. Nun soll die Tabelle per Makro einfach immer um die nächste Zeile (die neuen DAten der neuen Kalenderwoche ergänzt werden.
Aber wie mache ich das dynamisch?
Sub erweitern()
Dim KW As Integer
Sheets("Messdaten").Select
Cells(8, 1).Select ' dasteht Kalenderwoche drin
KW = ActiveCell.Value
ActiveSheet.ChartObjects("Diagramm").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Messdaten").Range( _
"A7,C7,A24:A???,C24:C???"), PlotBy:=xlColumns
End Sub
an den beiden Stellen, wo die 3 Fragezeichen sind. soll meine Variable KW eingetragen werden. Wer weiss Rat?
Habt Dank schonmal!!!
Katharina