Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1440to1444
1440to1444
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Meilensteintrendanalyse Diagramm Formatierung

Forumthread: Meilensteintrendanalyse Diagramm Formatierung

Meilensteintrendanalyse Diagramm Formatierung
10.08.2015 11:48:45
Raphael
Hallo Community,
ich versuche einen Meilensteintrendanalyse zu standardisieren.
Hierzu würde ich ganz gerne alle Zellen, welche einen Eintrag haben durchgehen und den dafür vorhergesehen Graphen mit gleichen Meilensteinsymbolen (Rauten), jedoch mit unterschiedlichen Farben versehen.
Ich habe mal meinen Fantasiecode mit Hilfe einer ähnlichen Problematik in diesem Forum verfasst, komme jedoch auf keine Lösung.
Eventuell kann mir einer von euch helfen ? ;)
Anbei die Datei inkl. Graph und Daten.
https://www.herber.de/bbs/user/99463.xlsm
Viele Grüße,
Raphael

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Meilensteintrendanalyse Diagramm Formatierung
10.08.2015 14:13:15
Beverly
Hi Raphael,
also irgendwie verstehe ich dein Vorhaben nicht so richtig - lt. deinem Code sollen nur die ersten 3 Datenpunkte jeder Reihe gefärbt werden. Beschreibe doch mal an konkreten Daten, wie gefärbt und welche Marker verändert werden sollen.

Anzeige
AW: Meilensteintrendanalyse Diagramm Formatierung
10.08.2015 14:25:37
Raphael
Hallo Karin,
ich möchte dass das Makro prüft ob Daten vorhanden sind. Wenn welche vorhanden sind, sollen die Datenpunkte im Graphen zu Rauten mit gleicher Größe werden (gleiches aussehen der Datenpunkte) jedoch mit unterschiedlicher Farbe versehen werden.
Wenn das Makro auf eine leere Zeile stößt, kann die Prozedur abgebrochen werden ;)
Hintergrund ist ein standardisierte Diagramm, in welchem jeder Daten eintragen kann ohne zusätzlich aufwendige Formatierungen vornehmen zu müssen.
Ich hoffe du kannst mir weiterhelfen ;)

Anzeige
AW: Meilensteintrendanalyse Diagramm Formatierung
10.08.2015 14:41:45
Raphael
Wäre für jeden Ansatz sehr dankbar ;)
Viele Grüße,
Raphi

AW: Meilensteintrendanalyse Diagramm Formatierung
10.08.2015 14:42:32
Beverly
Hi,
das ist mir schon klar, aber lt. DEINEM Code werden nur die ersten 3 Datenpunkte (irgendwie) gefärbt - und wie sollen die anderen gefärbt werden? Oder sollen es in jeder Datenreihe tatsächlich nur die ersten 3 sein?

Anzeige
AW: Meilensteintrendanalyse Diagramm Formatierung
10.08.2015 15:45:25
Raphael
Ah sorry. Nein es sollen alle Punkte einer Datenreihe gefärbt werden.
Sorry, hatte mich unklar ausgedrückt

AW: Meilensteintrendanalyse Diagramm Formatierung
10.08.2015 17:42:39
Beverly
Den Markertyp kannst du für die gesamte Datenreihe ändern - nach diesem Prinzip:
    Dim lngReihe As Long
With ActiveSheet.ChartObjects("Diagramm 1").Chart
For lngReihe = 1 To .SeriesCollection.Count
With .SeriesCollection(lngReihe)
.MarkerStyle = 2
.MarkerSize = 10
End With
Next lngReihe
End With

Deine Datenreihen haben mehr als 3 Datenpunkte, in deinem Code gibst du nur die Farben für 3 Datenpunkte an - das musst du dann entsprechend anpassen.

Anzeige
AW: Meilensteintrendanalyse Diagramm Formatierung
11.08.2015 10:00:13
Raphael
Hallo Karin,
vielen Dank für deine schnelle Antwort.
Leider bekomme ich bei:
Function Diagramm()
Dim lngReihe As Long
With ActiveSheet.ChartObjects("Diagramm 1").Chart
For lngReihe = 1 To 52.SeriesCollection.Count
With .SeriesCollection(lngReihe)
.MarkerStyle = 2
.MarkerSize = 10
End With
Next lngReihe
End With
End Function
Nur einen Syntaxfehler bei der 'For lngReihe = 1 To 52.SeriesCollection.Count
Hättest du noch einen Tipp für mich ?
https://www.herber.de/bbs/user/99483.xlsm

Anzeige
AW: Meilensteintrendanalyse Diagramm Formatierung
11.08.2015 10:04:36
Beverly
Hi,
meine Codezeile heißt anders - ich weiß nicht, woher bei dir die 52 kommt...

AW: Meilensteintrendanalyse Diagramm Formatierung
11.08.2015 14:21:25
Raphael
Ich habe das ganze jetzt einmal umgeschrieben was auch super funktioniert bis auf eins.....die Formatierung. Findest du den Fehler in meinem Loop ? ;)
Function Diagramm_1_erstellen()
'Tabelle erstellen
Sheets("Tabelle1").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Datentabelle_KW").Range("B10:BB43")
'Achsen anpassen
'für KWs max=52
ActiveChart.Axes(xlValue).MaximumScale = 52
ActiveChart.Axes(xlValue).MinimumScale = 0
ActiveChart.Axes(xlValue).MajorUnit = 1
ActiveChart.Axes(xlValue).Select
Selection.TickLabels.NumberFormat = "KW ##"
Selection.TickLabels.NumberFormat = "KW ##"
With ActiveChart.Axes(xlCategory).Select
Selection.TickLabels.NumberFormat = "KW ##"
Selection.TickLabels.NumberFormat = "KW ##"
End With
s = 2
k = 11
Do While Not s = 0
If Cells(k, 2) = "" Then
s = 0
Else
z = k - 10
ActiveChart.SeriesCollection(z).Select
With Selection
.MarkerStyle = 1
.MarkerSize = 7
End With
Selection.MarkerStyle = 2
Selection.MarkerSize = 14
End If
k = k + 1
Loop
End Function

Anzeige
AW: Meilensteintrendanalyse Diagramm Formatierung
11.08.2015 14:34:50
Raphael
Danke Karin!!!
Ich habe es hinbekommen ;)
Function Diagramm_1_erstellen()
'Tabelle erstellen
Sheets("Tabelle1").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Datentabelle_KW").Range("B10:BB43")
'Achsen anpassen
'für KWs max=52
ActiveChart.Axes(xlValue).MaximumScale = 52
ActiveChart.Axes(xlValue).MinimumScale = 0
ActiveChart.Axes(xlValue).MajorUnit = 1
ActiveChart.Axes(xlValue).Select
Selection.TickLabels.NumberFormat = "KW ##"
Selection.TickLabels.NumberFormat = "KW ##"
With ActiveChart.Axes(xlCategory).Select
Selection.TickLabels.NumberFormat = "KW ##"
Selection.TickLabels.NumberFormat = "KW ##"
End With
s = 2
k = 11
z = 1
Do While Not s = 0
If Cells(k, 2) = "" Then
s = 0
Else
'Formatierung Datenreihe
End If
k = k + 1
Loop
End Function


Function Diagramm()
Dim lngReihe As Long
With ActiveSheet.ChartObjects("Diagramm 31").Chart
For lngReihe = 1 To .SeriesCollection.Count
With .SeriesCollection(lngReihe)
.MarkerStyle = 2
.MarkerSize = 10
End With
Next lngReihe
End With
End Function

Anzeige
;

Forumthreads zu verwandten Themen

Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Zelle in bestimmter Art&Weise formatieren
TommiH

Hai,
ich habe eine Frage, ich habe das Problem nun zwar per VBA gelöst, aber geht das auch einfacher direkt mit einer Formatierungsanweisung? Ich habe folgende Varianten in einer (vielen) Zellen stehen und möchte das in den Zellen umformatieren.
23x1x123x134x342x12x
1x3x132x31x121x5...
18.12.2008 15:44:00
Thread-ID: 1033906
5 Beiträge
Anzeige
Bedingte Formatierung-Rahmen für bestimmte Zellen
Peter

Hallo zusammen,
ich möchte in einem Tabellenbereich alle Zellen, die eine Zahl enthalten und daher nicht leer sind, mit einem "Rahmen" versehen.
Ich versuche es z.Zt. mit "bedingter Formatierung" und dann "Formel ist" = Istzahl. Leider funktioniert das nicht. Vielleicht hat jemand von E...
20.03.2009 13:51:29
Thread-ID: 1062187
3 Beiträge
Verlassen TextBox - bestrimmtes Format
Frank

Einen recht schönen Guten Morgen allen Freunden guter Excellei!!!
Eine Frage in Bezug auf die Formatierung von TextBoxen beim Verlassen jener!!!
Folgenden Code benutze ich:
Private Sub TextBox16_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox16.Value = Val(TextBox1.Value) * Va...
28.04.2009 09:01:49
Thread-ID: 1071527
5 Beiträge
Bedingte Formatierung in Säulendiagramm
Axel

Hallo Zusammen,
hat jemand schon mal ein Säulendiagramm mit einer bedingten Formatierung versehen? Ich versuche derzeit Folgendes:
Eine einfache Datentabelle die ausschließlich Werte von 1 bis 10 enthält und Datenquelle für das Säulendiagramm ist. Ist in einer Zelle ein Wert zwischen 0...
07.05.2009 13:57:38
Thread-ID: 1073602
3 Beiträge
VBA - Autoform in Diagramm formatieren
Markus

Hallo zusammen,
ich habe in einer Arbeitsmappe ca. 30 Diagramme die zusätzlich eingefügte Autoformen enthalten.
Nun möchte ich per VBA diese Autoformen verschieben und die Größe ändern.
Lieder liefert mir der Markorecorder keine Ergebnisse da er beim markieren der Formen nichts aufz...
08.07.2009 10:40:24
Thread-ID: 1087107
4 Beiträge
bedingte Formatierung anhand Datum i. Kommentar?
Wolfgang

Hallo,
wäre denkbar, dass anhand eines Kommentars bzw. des darin enthaltenen Datums der Zellhintergrund auf gelb geändert wird, wenn seit dem Datum mehr als 4 Wochen vergangen sind und der Zellinhalt mehr als 0 beträgt? - Abgefragt werden sollen dabei die Spalten I2:K der Tabelle "Daten". U...
17.10.2009 03:03:37
Thread-ID: 1110195
9 Beiträge
CountDown - jjj mm tt hh mm ss
Stef@n

Hallo Excel-Freund,
jetzt suche ich schon eine ganze Weile - werde aber nicht fündig
Ich bin auf der Suche nach einem "Excel-Timer"
Ein eine Zelle wird ein Start-Datum erfasst z.b.
01.01.2002 08:00:00 also mit Stunden und Minuten
in eine andere Zelle ein Ende-Datum
...
01.03.2010 14:12:38
Thread-ID: 1142364
18 Beiträge
Format(x, "[hh]:mm:ss") in TextBox
Christian

Hi Leute,
um die Differenz zwischen zwei Zeiten zu berechnen kann man in Zellen z.Bsp. mit: Cells(1, 1).NumberFormat = "[hh]:mm:ss"
ein Format vorgeben, das mehr als 24 Stunden anzeigt.
Ich steh grade etwas auf dem Schlauch... wie funktioniet das bei einer TextBox in einer Userform...
16.06.2010 14:52:34
Thread-ID: 1162232
5 Beiträge
zellen hh:mm formatieren !
Ernst

Hallo Exel Profis !
würde wieder mal eure Hilfe benötigen,
wenn ich Zellen mit Datumsformat hh:mm formatieren und anschliesend zb.1400 Enter drücke erscheint
00:00 anstatt 14:00.
gibts dafür eine Lösung !
lg.Ernst
25.08.2010 10:11:55
Thread-ID: 1174088
3 Beiträge
"Bedingte Formatierung" im Säulen-Diagramm
Mo

Meine Frage:
Ist es möglich in ein gruppiertes Säulen-Diagramm eine bedingte Formatierung festzulegen?
Bsp.
Säule X und Säule Y als Diagramm
wenn Säule X grösser Säule Y, dann Säulenfarbe rot, ansonsten grün
Vielen Dank für Eure Hilfe!!
29.12.2010 12:52:02
Thread-ID: 1193183
2 Beiträge
Summe aus Zufallszahlen in hh:mm:ss
vati

Hallo Excelfreunde,
ich stehe vor einem großen Problem.
Ich möchte gern eine Monatsübersicht erstellen, in der ich pro Monat und Woche die Stunden zufällig „ZUFALLSZAHL ()“ generieren möchte.
Ich möchte das ganze jedoch pro Woche und pro Monat mit maximalen Gesamtstunden begrenze...
17.04.2011 08:52:33
Thread-ID: 1210783
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige