Excel - Versionsgeschichte

Thomas: /* Alle Diagramme ändern */ wgetText ergänzt.

2018-05-14T05:32:15Z

Alle Diagramme ändern: wgetText ergänzt.

@@ Zeile 91: / Zeile 91: @@
 </pre>
 [[Kategorie:Charts]]
 [[Kategorie:Excel]]
 [[Kategorie:VBA]]

2018-04-25T10:42:26Z

Kategorisiert

2016-11-02T12:48:42Z

Balken mit Prozentwerten beschrifetn

← Nächstältere Version		Version vom 2. November 2016, 12:48 Uhr
Zeile 1:		Zeile 1:
	Nützliche VBA Scripte für MS Excel.		Nützliche VBA Scripte für MS Excel.

	== Balken mit Prozentwerten ~~beschrifetn~~ ==		== Balken mit Prozentwerten beschriften ==
	[[File:Balkendiagramm gestapelt mit Prozent.png \| thumb \| ~~Beispiel eine Balkendiagrammes~~ mit %-Werten]]		[[File:Balkendiagramm gestapelt mit Prozent.png \| thumb \| Balkendiagramm mit %-Werten]]

	MS Excel bietet keine Möglichkeit die einzelnen Balken in einem gestapelten Balkendiagramm mit den Prozent- statt absoluten Werten zu beschriften.		MS Excel bietet keine Möglichkeit die einzelnen Balken in einem gestapelten Balkendiagramm mit den Prozent- statt absoluten Werten zu beschriften.

2016-11-02T12:48:10Z

Beschreibung erweitert, Bild eingefügt

← Nächstältere Version		Version vom 2. November 2016, 12:48 Uhr
Zeile 1:		Zeile 1:
	Nützliche VBA Scripte für MS Excel.		Nützliche VBA Scripte für MS Excel.

	== ~~Stapelbalkendiagramme~~ mit Prozentwerten ~~markieren.~~ ==		== Balken mit Prozentwerten beschrifetn ==
			[[File:Balkendiagramm gestapelt mit Prozent.png \| thumb \| Beispiel eine Balkendiagrammes mit %-Werten]]

			MS Excel bietet keine Möglichkeit die einzelnen Balken in einem gestapelten Balkendiagramm mit den Prozent- statt absoluten Werten zu beschriften.

			Dieses VBA-Makro beschriftet die einzelnen Balken in einem gestapelten Balkendiagramm mit den Prozentwerten. Vorausgesetzt wird, dass die Summe in der letzten Spalte steht (siehe Beispielbild). Die Summe eines Stapels ist über dem Stapel angezeigt.

	=== Labels in Diagramm ändern ===		=== Labels in Diagramm ändern ===

2016-11-02T09:22:20Z

← Nächstältere Version		Version vom 2. November 2016, 09:22 Uhr
Zeile 1:		Zeile 1:
	Nützliche VBA Scripte für MS Excel.		Nützliche VBA Scripte für MS Excel.

			== Stapelbalkendiagramme mit Prozentwerten markieren. ==


			=== Labels in Diagramm ändern ===

			<pre>
			Sub PercentLabelChart(myChart As Chart)

			Dim mySeries As Series
			Dim SollSeries As Series
			Dim myPoint As Point
			Dim i, j As Long

			If myChart.SeriesCollection.Count > 2 Then

			Set SollSeries = myChart.SeriesCollection(myChart.SeriesCollection.Count)

			For i = 1 To myChart.SeriesCollection.Count - 1

			Set mySeries = myChart.SeriesCollection(i)

			For j = 1 To mySeries.Points.Count

			Set myPoint = mySeries.Points(j)

			If myPoint.HasDataLabel Then
			' myPoint.DataLabel.Text = Format(mySeries.Values(j), "0")
			myPoint.DataLabel.Text = Format(mySeries.Values(j) / SollSeries.Values(j), "0%")
			End If

			Next ' j

			Next ' i

			End If

			End Sub

			</pre>

			=== Aktives Diagramm ändern ===

			<pre>
			Sub ActiveChartPercentLabeling()

			If Not ActiveChart Is Nothing Then

			Call PercentLabelChart(ActiveChart)

			Else

			MsgBox "Bitte ein Diagramm auswählen!", vbOKOnly, "Fehler: Aktives Diagramm"

			End If

			End Sub
			</pre>


			=== Alle Diagramme ändern ===


			<pre>

			Sub ModifyAllCharts()
			'
			' ModifyAllCharts Makro
			'
			' Ausgangsbefehl
			'
			' ActiveChart.SeriesCollection(1).Points(1).DataLabel.Text = "33305"
			'

			Dim mySheet As Worksheet

			For Each mySheet In Worksheets

			If mySheet.ChartObjects.Count > 0 Then
			Call PercentLabelChart(mySheet.ChartObjects(1).Chart)
			End If

			Next

			End Sub

			</pre>

2012-01-09T18:50:51Z

Übersicht über nützliche VBA Scripte

Neue Seite

Nützliche VBA Scripte für MS Excel.