Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenbeschriftung per VBA formatieren

Forumthread: 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
Anzeige

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

Anzeige
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
Anzeige
AW: Datenbeschriftung per VBA formatieren
31.01.2021 09:33:43
Beverly
Hi Frank,
ändere die Zeile:
            If serReihe.HasDataLabels Then

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
Anzeige
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
Anzeige
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
;

Forumthreads zu verwandten 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
Datumsformat "ddd.dd.mm.yyyy"
Sonnenpeter

Hallo.
habe mal wieder ein Problem mit dem DATUM.
Die nachfolgenden Makros funktionieren werden aber im Aufbau noch verbessert.
Private Sub UserForm_Initialize() Dim Datum1, EDatum1, EDatum2 As Date Datum1 = Date Wochentag1 = Weekday(Datum1) ZF1 = Format(Datum1, "####0") If Wochen...
29.12.2008 14:31:19
Thread-ID: 1035743
3 Beiträge
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
Datum in andere Spalte mit and. Format VBA
Wolfgang

Hallo,
in Spalte F, ab Zeile 2 befinden sich Daten im Format "18.06.2009" - wäre denkbar, dass jeweils dieses Datum in Spalte R im Format "Juni 09" wiederholt/konvertiert wird? Die Anzahl der Zellen ist jeweils unbekannt, das Konvertieren würde ich gerne immer beim Start der Excel-Mappe vor...
18.06.2009 21:23:07
Thread-ID: 1082734
6 Beiträge
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
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
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
VBA: textbox afterupdate format Datum
Bernd

Hallo zusammen,
irgendwie bekomme ich das nicht richtig hin, vielleicht kann mir jemand behilflich sein und den Code berichtigen.
Hier mein Code, der nicht funktioniert:
Private Sub TextBox5_AfterUpdate() 'TextBox5 = format(CDbl(TextBox5), "TT.MM.JJJJ") End Sub Vielen Dank im...
03.06.2013 19:44:47
Thread-ID: 1316131
3 Beiträge
Anzeige
VBA; Formatierung in Abhängigkeit vom Datum
NoPa

Hallo,
habe eine Problem mit der richtigen Deffinition von einem SUB
Aufgabe wie folgt:
Die Zellen in Spalte H sollen wie folgt formatiert werde.
Wird ein Auftrag mit der gleichen Identnummer (die in Spalte C steht)
-zwei mal innerhalb von zwei Monaten verschoben, soll die...
12.09.2013 13:04:31
Thread-ID: 1330492
3 Beiträge
Anzeige
Bedingtes Format Datenbalken widersetzt sich VBA
Andreas

Hallo Herber Fans,
es sollte eigentlich doch nur ein kleiner Code am Abend werden… und nun bin ich leider mittelprächtig entnervt, die Augen schmerzen und ich komm nicht drauf… In PivotTabellen verwende ich für Abweichungsdarstellungen zuweilen Datenbalken. Diese skalieren sich innerhalb ei...
16.09.2013 21:17:26
Thread-ID: 1331066
11 Beiträge
Anzeige
Format in Txt-Datei geänd - VBA- geht nimmer
Speditx

Excel 2007 - Lösung bitte in Excel oder mit Makro(VBA) - vielen Dank
--------------------------------------------------------------------------------
Hallo VBA-Profis, ich brauche bitte Eure Hilfe!
bisher hat mein VBA-Markro (Excel 2007 und auch XP 2003) funktioniert. Nun sind die P...
19.09.2013 00:17:33
Thread-ID: 1331414
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige