Wertebereich automatisch anpassen
08.01.2007 13:22:55
Peter
ich versuche dich nun auf diesem Weg wiederholt zu erreichen und hoffe, daß du mir noch weiterhelfen möchtest.
Nun wieder zum Excel-Tool:
1. Ich habe die von mir im vollständigen Excel-Tool derzeit maximal getestete Punktmenge in die Beispieldatei eingefügt. (5115 Punkte)
2. Mit dem Recorder habe ich mir dann die Anpassung des Wertebereichs im Diagramm mitgeschnitten.
Sub Wertebereich()
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).XValues = "=Datenquelle!R2C1:R5116C1"
ActiveChart.SeriesCollection(1).Values = "=Datenquelle!R2C2:R5116C2"
End Sub
3. Danach habe ich die Formatierung Achsen angepasst, so dass ich die gewünschte Ansicht erhalte. (nicht mit dem Recorder mitgeschnitten, im vollständigen Tool füntionierts schon automatisch!)
4. In das Blatt "Datenquelle" habe ich folgenden Code eingefügt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:Z7000")) Is Nothing Then
Else
Sheets("Hilfe").Range("$E$2").Value = Date
'Application.Run ("Wertebereich")
End If
End Sub
wobei ich das Datum nur zur Kontrolle anzeigen lasse.
Das Makro "Wertebereich" ist bis jetzt nur der Mitschnitt vom Recorder.
Ich würde dich darum bitten es so umzuschreiben, dass sich der Wertebereich automatisch nach der Größe der eingefügten Datenmenge anpasst und ein fortkommen beim Zoom und Startpunkt gewährleistet ist.
Die Beispieldatei hat jetzt eine Größe von ca. 700 KB, wie kann ich dir meinen Arbeitsstand zukommen lassen?
Gruß
Peter