Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten-Files einlesen und Diagramme erstellen

Forumthread: Daten-Files einlesen und Diagramme erstellen

Daten-Files einlesen und Diagramme erstellen
12.03.2003 11:01:00
Holger
Hallo zusammen.
Ich habe folgendes vor: Ein Datenfile soll eingelesen und daraus ein Diagramm in einem neuen Sheet erstellt werden. Dieses File, bestehend aus 2 Sheets(1.Daten und 2.Diagramm) soll als xls-File gespeichert werden.
Dieser Vorgang soll sich bei vielen Datenfiles wiederholen, die die gleiche Datenstruktur haben.
Mein Makro ist in einem anderen File, das während der Bearbeitung nicht verändert wird.

Das Daten-File wird ohne Probleme geöffnet, der Befehl Charts.Add bringt jedoch die Fehlermeldung "Die Methode Add für das Objekt Sheets ist fehlgeschlagen". Ein Diagramm wird zwar noch erstellt, aber das Programm bricht ab.
Meine Frage: muss ich vor dem Charts.Add das Sheet mit den Daten aktivieren, und wie mache ich das? Oder kann es an etwas anderem liegen?
Wenn mir jemand weiter helfen könnte, wäre ich sehr dankbar.

Gruß,
Holger Maier

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Daten-Files einlesen und Diagramme erstellen
12.03.2003 11:53:58
gordon

Hallo Holger,

ohne relevanten Codeausschnitt kann man nur raten...

Workbbok, in welches Du Dein Diagramm einfügen willst, nicht korrekt definiert.

Gruß
gordon

Re: Daten-Files einlesen und Diagramme erstellen
12.03.2003 13:13:45
Holger

Vielen Dank schon mal für die Antwort.
So sieht der relevante Ausschnitt des Codes bis jetzt aus. Beim Befehl "Charts.Add" kommt die Fehlermeldung.


name_öffne = pfad_name & "\" & dat_name
If name_öffne = False Then Exit Sub
Workbooks.OpenText Filename:=name_öffne _
, Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(8, 1), Array(17, 1) _
, Array(30, 1), Array(41, 1), Array(50, 1))
tab_name = ActiveSheet.Name
Range(Cells(1, 1), Cells(1025, 6)).Select

Charts.Add
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SetSourceData Source:=Sheets(tab_name).Range("A1:F1025"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Diagramm1"
With ActiveChart
.HasTitle = False
'.ChartTitle.Characters.Text = "Ueberschrift"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Frequenz [Hz]"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Energieinhalt"
End With

Anzeige
Re: Daten-Files einlesen und Diagramme erstellen
12.03.2003 15:06:10
gordon

Hallo Holger,

ein paar Anmerkungen:
Variablen vollständig Dimensionieren uind richtig zuweisen, z.B.
Dim nwb as workbook
set nwb = workbooks.open...
und dann vollständig qualifiziert das chart einfügen
nwb.charts.add

range...select weglassen, erstens generell auf selects verzichten, außerdem ist es erneut als source des Diagramms angegeben - das genügt

wie ist name_öffne dimensioniert ? Kann als String eigentlich nie 'false' werden.

Gruß
gordon

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige