Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1808to1812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1808to1812
1808to1812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenbeschriftung per VBA formatieren

Datenbeschriftung per VBA formatieren
30.01.2021 09:18:06
Frank
Ich bin VBA-Anfänger und habe mir mit dem Makrorecorder ein VBA-Modul zusammengestellt, mit dem ich allerhand Formatierungen (Größe, Schriftarten, Positionierungen von Überschrift, Fußzeile usw.) eines aktivierten(!) Charts (Name ändert sich natürlich ständig) einstellen kann. Funktioniert soweit gut.
Jetzt möchte ich die bereits eingefügten/vorhandenen(!) Datenbeschriftungen per VBA so einstellen, dass sie
- eine bestimmte Schriftgröße haben,
- die Füllung weiß haben,
- bei "Ausrichtung" alle Ränder NULL sind.
Kann mir hier jemand helfen?
Besten Dank und schöne Grüße
Frank

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenbeschriftung per VBA formatieren
30.01.2021 10:16:42
Beverly
Hi Frank,
nach diesem Prinzip:
Sub Formatieren()
With ActiveChart
With .SeriesCollection(1)
.DataLabels.Delete
.ApplyDataLabels
With .DataLabels
With .Format.TextFrame2
.MarginLeft = 0
.MarginRight = 0
.MarginTop = 0
.MarginBottom = 0
.TextRange.Font.Name = "Arial"
.TextRange.Font.Size = 11
End With
With .Format
.Fill.BackColor.RGB = 16777215
End With
End With
End With
End With
End Sub

AW: Datenbeschriftung per VBA formatieren
30.01.2021 14:35:41
Frank
Liebe Karin, im Prinzip ja, aber ...
im ersten Schritt werden ja alle vorhandenen Datenbeschriftungen erstmal gelöscht. Das soll aber gar nicht so sein, weil ich ja schon nach bestimmten Kriterien eingefügte Datenbeschriftungen habe.
Dann werden Datenbeschriftungen eingefügt und die dann formatiert. Die Formatierung klappt prima.
Wie kann man es machen, dass nur die schon vorhandenen Datenbeschriftungen (bei mir nicht in .SeriesCollection(1) formatiert werden?
Besten Dank und schöne Grüße
Frank
Anzeige
AW: Datenbeschriftung per VBA formatieren
30.01.2021 19:58:44
Beverly
Hi Frank,
lade doch bitte eine Beispielmappe hoch.

AW: Datenbeschriftung per VBA formatieren
31.01.2021 00:16:21
Beverly
Hi Frank,
Sub Formatieren()
Dim serReihe As Series
With ActiveSheet.ChartObjects(1).Chart
For Each serReihe In .SeriesCollection
If serReihe.Name = "Sonderpunkte" Then
With serReihe.DataLabels
With .Format.TextFrame2
.MarginLeft = 0
.MarginRight = 0
.MarginTop = 0
.MarginBottom = 0
.TextRange.Font.Name = "Arial"
.TextRange.Font.Size = 11
End With
With .Format
.Fill.BackColor.RGB = 16777215
End With
End With
Exit For
End If
Next serReihe
End With
End Sub

Anzeige
AW: Datenbeschriftung per VBA formatieren
31.01.2021 08:28:21
Frank
Hallo Karin,
in der angehängten Datei funktioniert das Modul wunderbar, besten Dank.
Allerdings habe ich viele von diesen Dateien, bei denen der Name der Reihe wechselt (hier:"Sonderpunkte"). Gibt es eine Möglichkeit, dass das Modul selbständig prüft, ob es eine Reihe mit Beschriftungen gibt und dann, unabhängig vom Reihenname, die vorhandenen Beschriftungen entsprechend formatiert?
Besten Dank und schöne Grüße
Frank
AW: Datenbeschriftung per VBA formatieren
31.01.2021 09:33:43
Beverly
Hi Frank,
ändere die Zeile:
            If serReihe.HasDataLabels Then

Anzeige
AW: Datenbeschriftung per VBA formatieren
31.01.2021 11:58:23
Frank
... leider nein.
Die Schleife wird dreimal durchlaufen aber keinmal erkannt, dass es DataLabels gibt.
Ich glaube, ich gebe auf.
Besten Dank und schöne Grüße
Frank
AW: Datenbeschriftung per VBA formatieren
31.01.2021 14:29:31
Beverly
Das kann ich nicht nachvollziehen - in deiner hochgeladenen Mappe wird die richtige Datenreihe erkannt. Allerdings wird die Füllfarbe der Label nicht richtig übernommen - die Schriftart, Schriftgröße und Formatierung dagegen schon. Damit auch die Füllfarbe passt ersetze die 3 Zeilen
                    With .Format
.Fill.BackColor.RGB = 16777215
End With
durch diese eine Zeile
                    .Interior.Color = 16777215
In der angehängten Mappe habe ich mal zur Verdeutlichung die Zeichenfläche orange formatiert, denn die Füllfarbe Weiß der Beschriftunglabel sieht man auf weißer Zeichenfläche nicht.
https://www.herber.de/bbs/user/143473.xlsm

Anzeige
AW: Datenbeschriftung per VBA formatieren
31.01.2021 21:24:15
Frank
Hallo Beverly,
in der von Dir bereitgestellten Mappe funktioniert es wunderbar. In meiner Originaldatei geht es nicht. Ich habe keine Ahnung, woran es liegen kann. In der Originaldatei stammen die Daten aus Abfragen auf andere Dateien, die Daten sind ordentlich als Tabelle formatiert usw. Die Makros sind in der PERSONAL.XLNB gespeichert. Vielleicht liegt die Fehlerquelle in irgendeinem Detail?
Schöne Grüße
Frank
AW: Datenbeschriftung per VBA formatieren
31.01.2021 23:08:36
Beverly
Hi Frank,
woher die Daten kommen ist unerheblich und dass das Makro in der PERSONAL.XLSB gespeichert ist kann auch nicht die Ursache sein - der Code bezieht sich ja auf das ActiveSheet. Außerdem habe ich das sicherheitshalber gerade eben getestet.
Worin unterschiedet sich denn deine hochgeladene Mappe von deiner Originalmappe? Gewiss wäre es hifreich, wenn du von deiner Orignalmappe mal eine Kopie erstellst, alles was nicht mit dem Problem zu tun hat herauslöschst und diese Kopie dann hochlädst.

Anzeige

300 Forumthreads zu ähnlichen Themen

Dateiformat nicht erkennabar (VBA)
Richard

hallo
hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
02.10.2008 19:52:02
Thread-ID: 1013959
2 Beiträge
Anzeige
VBA DateFormat zu String convertieren
MBorn

Guten Morgen,
weiß jemand, wie man ein Datum, das im DateFormat (als Zahl) vorliegt
in das Textformat (yyyy-mm-dd) konvertiert. Sodaß das Ergebnis ein Text ist?
sodaß beispielsweise aus der Zahl 39868 das Text-Datum "2009-02-24" wird?
Herzlichen Dank,
Born
18.03.2009 12:59:43
Thread-ID: 1061376
12 Beiträge
Datumsformat in der Maske bei Aufruf über VBA
Wusino

Hallo miteinander,
da meine Suche in ettlichen Büchern und Foren sehr frustrierend war, wende ich mich nun doch an Euch.
Ich habe ein kleines Skript, das beim Öffnen des Dokuments auf das Datenblatt Uebersicht springt und beim Wählen eines anderen Datenblatts die Maske anzeigt. Das Prob...
18.04.2009 09:42:39
Thread-ID: 1069435
2 Beiträge
Anzeige
ddmmyy oder ttmmjj
dieter

Hallo Forum,
mit der unten stehenden Excelformel (die ich hieraus dem Forum habe)
erreiche ich,dass das Datum (steht in J19) und die zahl zweier kalenderwochen (zb. Woche 27 +28) ohne punkt und komma als zahl geschrieben wird.
Beispiel: 10.07.09 und die Wochen 27 +28 werden dann dar...
13.07.2009 13:36:11
Thread-ID: 1087989
2 Beiträge
per VBA viele Diagramm-Datenreihen formatieren
Bernd

Guten Abend allerseits,
ich habe es tatsächlich geschafft, in ein Diagramm 235 Datenreihen mit Diagrammtyp xlXYScatterLines einzubinden. Nun suche ich eine Lösung, um diese Datenreihen in einer bestimmten Art und Weise zu formatieren. Händisch viel Arbeit, deswegen möchte ich die Datenreihe...
23.08.2009 19:49:55
Thread-ID: 1098037
5 Beiträge
Datum formatieren mit VBA (Formular)
Wolle


Hallo Forum,
nachdem es jetzt klappt das die Daten aus der Tabelle in das Formular angezeigt werden, habe ich noch ein Problem mit der Formatierung "Datum"
Ich schreibe in dem Formular das Anfangs und enddatum und lasse Sie über das Formular in die Tabelle schreiben. Dort sollen Si...
01.12.2009 07:18:45
Thread-ID: 1121125
12 Beiträge
Daten sortieren mit VBA und Format beibehalten
wolfgang

Hallo zusammen,
ich möchte eine Tabelle mit VBA-Code sortieren und dabei die Formatierungen der Zellen bei behalten.
mit meinem code:
ist die Sortierreihenfolge zu 100% gegeben
die Formatierung bezüglich Farbe ist OK
die Formatierung bezüglich Rahmen ist nicht OK
Beispi...
15.09.2010 14:23:02
Thread-ID: 1177741
8 Beiträge
Datumsformat einer Arbeitsmappe per VBA ändern
Thomas

Gibt es eine Möglichkeit das Datumsformat einer Arbeitsmappe oder einer Excel-Sitzung per VBA zu ändern ?
Ich möchte eine Daten aus einer Webanwendung mit englischem Datumsformat übernehmen.
Eine Lösung wäre natürlich die Ländereinstellung im System zu ändern.
Aber diesen umständlic...
05.04.2011 22:09:12
Thread-ID: 1209166
2 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame Label

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
11
1
5
1
4
11
7
1
8
10
2
2
10
1
17
3
3
1
1
7
4
5
9