Re: Fehler: die XValues-Eigenschaft S-Objektes
09.08.2002 22:18:57
Bernhard
Hallo Herbert,
vielen Dank für die Hilfe, leider funktioniert das nicht.
Hier nochmal das ganze Makro:Sub auto_open()
Dim sPfad As String
Dim objFileSearch As FileSearch
Dim strVerzeichnis As String, strDatei As String
Dim oBlatt As Worksheet
strVerzeichnis = "d:\Projektarbeit\Diskette5\2002"
strDatei = "*.afd"
Set objFileSearch = Application.FileSearch
With objFileSearch
.LookIn = strVerzeichnis
.SearchSubFolders = True
.Filename = strDatei
.LastModified = msoLastModifiedToday
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
sPfad = .FoundFiles(1)
Workbooks.OpenText Filename:=sPfad
Columns("A:A").Select
Selection.NumberFormat = "h:mm;@"
Columns("B:T").Select
Selection.NumberFormat = "0.00"
Call Berechnung
Set oBlatt = ActiveSheet
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Linien auf zwei Achsen"
ActiveChart.SetSourceData Source:=oBlatt.Range("A2:M145"), PlotBy:= _
xlColumns
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(2).Delete
ActiveChart.SeriesCollection(2).Delete
ActiveChart.SeriesCollection(2).Delete
ActiveChart.SeriesCollection(2).Delete
ActiveChart.SeriesCollection(2).Delete
ActiveChart.SeriesCollection(2).Delete
ActiveChart.SeriesCollection(2).Delete
ActiveChart.SeriesCollection(1).Name = "=""Außentemperatur"""
ActiveChart.SeriesCollection(2).XValues = "='0103'!R2C11:R145C11"
ActiveChart.SeriesCollection(2).Name = "=""Arbeit"""
ActiveChart.SeriesCollection(3).XValues = "='0103'!R2C11:R145C11"
ActiveChart.SeriesCollection(3).Name = "=""Vergleich"""
ActiveChart.Location Where:=xlLocationAsNewSheet
Call EditDiagramm
Call Speichern
Else
MsgBox "Datei wurde nicht gefunden!"
End If
End With
End Sub
Die Datei wird gefunden und geöffnet. Leider steht bei XValues noch der Dateiname einer anderen Datei. Dieser Dateiname ändert sich täglich, deshalb hat das Dokument auch die Variable oBlatt zugewiesen bekommen. Dann funktioniert der Aufruf des Diagramms, allerdings nur, wenn sonst keine Zellbezüge mit Dateinamen vorhanden sind. Vielleicht macht das mein Problem etwas deutlicher.
Es wird jeden Tag eine Datei vom Typ *.afd angelegt, die geöffnet werden soll, und ein Diagramm mit zwei Y-Achsen aus den Zellen erstellt werden.
Vielen Dank nochmal für die Hilfe, vielleicht hat ja jemand eine Idee, denn ich hab leider keine Ahnung von VBA :-(
Gruß, Bernhard