Supportnet / Forum / Tabellenkalkulation

Hallo Leute, ich habe einen Excel-Tool als eine Schablone zur monatlichen Auswertung der Maschinenbelastung erstellt . 80 Maschinen 80 Sheets fürs Dateneintragen (wieviele Std. je Kalendertag Ausfall, Produktion,Rüsten,...usw.) + 1 Sheet mit der Auswertung und Diagrammen. Diese Schablone muss für jeden Monat wegen Monatsnamen, verschiedener Tagen/Datum der Wochenenden und Feiertagen noch extra vorgerichtet werden. Problem1: Jeden Monat muss in 18 Diagrammentitel und in die 80 Sheets aktueller Monatsname eingetragen werden. Dafür habe ich ein Makro aufgezeichnet. Dabei wird der Eintrag (aktueller Monatsname) einer Zelle(weiter x-Zelle) kopiert und dann zuerst in bestimmte Zelle der 80 Maschinen-Sheets eingefügt (funktioniert prima!), und danach sollte der selbe Eintrag den Diagrammentitel an bestimmte Position eingefügt werden. Das funktioniert aber nicht; es wird der Eintrag eingefügt, den die x-Zelle zum Zeitpunkt des Aufzeichens enthielt. Ich habe in Makro reingeschaut, und dort steht beim Einfügen in die Zellen "...paste" und beim Einfügen in die Diagrammentitel "...="bla-bla-bla" "(also der Eintrag, der in der x-Zelle zum Zeitpunkt des Aufzeichens drinstand). Frage: Warum wohl? Wie soll die Code ausschauen damit man in die Diagrammentitel einen änderbaren Eintrag einer Zelle einfügen kann? MfG

Hallo RIDDIK,

da bin ich auch wieder.

du hast in deinem Code bestimmt eine Zeile die etwa so aussieht:

.ChartTitle.Characters.Text = "Hier steht der Diagrammname"

wenn du den Diagrammnamen abhängig von einer Zelle machen möchtest, muss du auf die Zelle verweisen.

.ChartTitle.Characters.Text = Range("Hier die Zellbezeichnung")

MfG

JöKe

Danke nochmal.

Das würde ja gehen, wenn ich den kompleten Titel gleich dem Inhalt einer Zelle machen wollen würde. Ich möchte aber nur eun Teil des Titels ändern bzw. den Inhalt einer Zelle im Titel zwischen zwei anderen Wörter einfügen.

Ist das machbar?

MfG

Ja das geht so:

.ChartTitle.Characters.Text = " 1. feste Text " & Range("B1") & " 2. feste Text[u/]"

Gruß

Und nochmal Danke.

letzte Frage:

Wie kann ich da anstatt einfach Range("B1") noch das Sheet "so und so" einfügen, wiel die Zelle befindet sich in einem anerem Blatt?

so:

.ChartTitle.Characters.Text = "Text1 " & Sheets("Tabelle2").Range("B1") & " Text2"

Gruß

Danke. Läuft super! Genau das, was ich gebraucht habe.