Hallo,
ich bin neu hier, also erstmal ein herzliches Hallo an alle. Ich hoffe ich kann hier noch viel lernen und in Zukunft, wenn ich mich etwas besser auskenne, auch etwas zum Forum beitragen.

Die Suche nach meinem Problem hat nichts ergeben, vielleicht habe ich auch einfach nach den falschen Stichworten gesucht, das Problem hatten bestimmt schon viele Leute.

Ich möchte gerne ein Makro für Excel erstellen, welches ich auf verschiedene Dateien und Worksheets (mit unterschiedlichen Namen) anwenden kann. Ich brauche das für die Auswertung von Messdaten. Die Worksheets werden beim abspeichern automatisch benannt, und ich habe jetzt ca. 300 solcher Worksheets.

Mein Problem ist folgender Befehl, der in der Diagrammerstellung (die ich gerne automatisiert hätte) enthalten ist:

ActiveChart.SeriesCollection(1).Name = "='04_10___'!$C$2"
(bzw. ActiveChart.SeriesCollection(1).Values = "='04_10___'!$C$3:$C$38")
(bzw. ActiveChart.SeriesCollection(1).XValues = "='04_10___'!$A$3:$A$38")

Meine Frage ist ob ich dem Makro irgendwie klarmachen kann, dass es statt '04_10___' den Namen des aktuell ausgewählten Worksheet einfügt?

EDIT: Ich benutze Excel 2007 und den integrierten VBA-Debugger (Microsoft Visual for Applications 2007)

Oddy schrieb:

den Namen des aktuell ausgewählten Worksheet

kriegst du in VBA mit ActiveSheet.Name.
Allerdings bin ich mir nicht sicher, ob es in deinem Fall nicht besser wäre, den Code objektorientiert in das Sheet selbst zu verlagern und dafür ohne ActiveSheet und ActiveChart zu arbeiten.

Ist das Chart-Objekt ein eigenes Sheet oder ist es Teil des Worksheet?

Wow, das ging ja schnell! Danke, ich werde das gleich mal probieren.

Das Chart-Objekt ist Teil des Worksheet.

petaod schrieb:

den Code objektorientiert in das Sheet selbst zu verlagern

Meinst du damit ein Objekt in das Worksheet einzufügen und das Makro daran anzubinden?

Das Worksheet selbst ist schon ein Objekt.
Das kannst du beliebig erweitern mit Methoden und Properties.
Einfach den Code nicht in ein Modul schreiben, sondern in den Code-Bereich des Worksheets.

Wenn du so ein Worksheet kopierst, werden die User-Methoden mit kopiert.
Alles was du da drin adressierst, wird auf sich selbst bezogen.
Also Name gibt immer den Sheet-Namen des Worksheets, in dem der Code steht.

Beispiel:

Noch eleganter ist es natürlich, wenn das Chart selbst einen Namen hat und $C$2 noch ein NamedRange, aber wir wollen ja nicht gleich alle Designschwächen auf einmal lösen

Aha, ich verstehe!
Dazu wie man ein Worksheet kopiert habe ich auf Google genug gefunden. Das ist dann vielleicht besser, als den Code einmal separat im "Personal" Workbook als Modul abzuspeichern.

Vielen Dank für die schnelle und anfängerfreundliche Hilfe! Dann mache ich mich jetzt mal ans probieren.

EDIT: Oh man, mit dem Befehl und dem Kommentar den du jetzt noch eingefügt hast komme ich mir vor wie der erste blutige Anfänger (was ich ja auch bin). Aber ich komme schon noch dahinter.

Okay, ich nochmal; habe lange rumprobiert und gegoogelt und ich komme nicht drauf.

Das Problem bei meinem Code

sind ja die hier: ' '
Weil er mir dann "ActiveSheet.Name" in die Excel-Funktion eingibt, anstatt den Namen des Aktiven Sheets, wie ich es eigentlich will.

Ich möchte, dass er mir das am Ende so ausspuckt : ' SheetX '!C2

So langsam bin ich echt am verzweifeln. Wenn ich Anführungszeichen um die ' mache Also

Dann gibt es einen Syntaxfehler.

Hoffe ihr könnt mir weiterhelfen
Beste Grüße
Oddy

Du verwendest ActiveSheet/ActiveChart.
Du hast dich also für die Modul-Variante entschieden und nicht für das Worksheet-Objekt.
Aber auch da sollte man nicht die "Active"-Objekte verwenden, sondern diese namentlich nennen.

Mit deinem Syntaxfehler:
Vergleiche deinen Code
ActiveChart.SeriesCollection(1).Name = "= ' "ActiveSheet.Name" ' !$C$2"
mit meinem
Charts(1).SeriesCollection(1).Name = "='" & Name & "'!$C$2"
und überlege dir, wozu die ​& wohl da sind

Ja, ich habe mich für die Modulschreibweise entschieden, weil mir das, wenn es mal funktioniert, Arbeit ersparen sollte. Und weil ich mir Sorgen mache, dass ich beim kopieren wieder neue Fehler erzeuge.

Ich verstehe nicht ganz warum, wenn ich die Objekte direkt anspreche, denn erzeuge ich wieder neue Fehler (Obwohl ich den Chart vorher mit Parent.Name extra nochmal entsprechend benannt habe). Deswegen bin ich beim uneleganten Active* geblieben. Auch wenn das im Allgemeinen anfälliger für Fehler ist. Der Code funktioniert so immerhin.

Oh ja, ich sehe, die & sind wichtig. Und jetzt funktioniert es auch fast. Das einzige Problem ist, dass der Befehl nur funktioniert, wenn ich Leerzeichen zwischen jedem Sonderzeichen einfüge, also wenn ich "= ' " & ActiveSheet.Name & " ' !$C$2" schreibe. Allerdings steht dann der Name des Sheets mit zwei Leerzeichen da (eins vorne und eins hinten, z.b. ' 04_10___ ') und somit stimmt der Name nicht mehr.

Wenn ich den Code so schreibe wie du, "= '" & ActiveSheet.Name & "' !$C$2" (keine Leerzeichen zwischen " und ') dann gibt er mir einen Runtime Error 1004. Das war auch der Grund warum ich die & gestern weggelassen habe, ich dachte das liegt and den &. Wenn ich ein anderes Leerzeichen weglasse, dann bekomme ich wieder den Syntaxfehler.
Das ist doch irgendwie komisch... Ich verstehe nicht was da los ist.

Ja, ich weiß, es dauert eine Weile, bis man die objektorientierte Denke mal drauf hat.
Danach fragt man sich, wie man je anders programmieren konnte.
Aber wichtiger ist, dass du mit deiner Methode klar kommst, deshalb will ich dir jetzt auch nichts aufschwatzen.

Runtime Error 1004

Dann hast du sonst noch ein (anderes) Problem.
Wenn deine Sheet-Namen keine Blanks beinhalten, kannst du es auch mal ohne die Apostrophen versuchen.
ActiveChart.SeriesCollection(1).Name = "=" & ActiveSheet.Name" & "!$C$2"

Ich schätze mal, dass der 1004 daher rührt, dass du versuchst, das Objekt ActiveChart zu verwenden.
Das gibt es aber nicht weil du gerade keines angeklickt hast.
Ich hatte oben schon erwähnt, dass die Active-Objekte Schrott sind, weil sie von der User-Aktion abhängen und deswegen NIE verwendet werden sollen.

Adressiere die Objekte über den Namen oder den Index! Oder arbeite objektorientiert
Mit dem Debugger kann man solche Fehler aber doch leicht lokalisieren.

Ja, das sollte eigentlich der Fehler sein, aber das komische an der Sache ist ja, dass ich den Fehler nicht bekommen habe, als ich die Leerzeichen wie im vorigen Beitrag erwähnt gesetzt habe.
Der Fehler tritt auch auf, wenn ich nur die einzelne Zeile ausführe, nachdem ich mich versichert habe, dass das Objekt ausgewählt ist.

Naja, ich versuche jetzt mal die Objekte direkt anzusprechen, wie es sich gehört. Auch wenn ich da schon wieder den nächsten Error habe (Runtime 9). Ich sag bescheid, ob es läuft, wenn ich mich da durchgearbeitet habe.
Die Apostrophen zu löschen bringt leider nix.

Soo, der Code läuft! :))
Ich weiß aber ehrlich gesagt nicht wieso, auf einmal gings einfach...
So sieht der funktionierende Code aus (bzw. der Teil, der mir Probleme bereitet hat)



danke für die Hilfe!!!

Schön, dass es läuft.
Wahrscheinlich hätte ich es etwas anders gelöst:
Fehler sind allerdings nicht auszuschliessen, da nicht getestet.
Aber vom Prinzip dürfte klar sein, dass ich die ganzen "Active"- und "Selection"-Objekte versuche zu vermeiden, damit eventuelle User-Interaktionen nicht stören können.