Office: VBA Diagramm aktualisieren

Guten Morgen Karin,

ich hatte extra nochmal eine neue Datei angehängt in der rechts neben der bekannten Tabelle noch eine andere neu hinzugefügte ist mit den Angaben ist.

 

Hi,

sorry, diese Tabelle habe ich nicht gesehen und ganz so eindeutig war das aus deinem vorhergehenden Beitrag auch nicht ersichtlich, dass sich weiter hinten noch eine weitere Tabelle befindet auf die du dich beziehen willst.

Code:

Noch zwei Hinweise:

- weshalb deklarierst du die Variablen für den Text als Long? Da ist doch String eigentlich die logische Wahl. *wink.gif*

- wenn du in VBA ein Datum formatieren willst, heißt die Funktion Format und nicht Text.

 

Hallo Karin,
Ja das hätte ich deutlicher schreiben müssen. *frown.gif*
Sorry
Danke für den Hinweis mit der Deklaration *Smilie

Leider kommt in der Zeile
Code:

ein
Laufzeitfehler 438
Objekt unterstützt diese Eigenschaft oder Methode nicht
bei dem ersten Durchlauf für "Deutschland.
lngBeginn = 25
lngLaenge = 39
Kann das sein das der für Version 2003 nicht gilt?

Ich habe das .Bold = false noch dran gehängt.
Code:

 

Hi,

wenn der 1. Textteil fett und der 2. Textteil nicht fett sein soll, dann musst du den Text zuerst noch komplett fett formatieren und anschließend den 2. Teil wieder auf Bold = False setzen. Das aber nur, wenn die Standardeinstellung nicht Fett ist.

Ersetze meine 1 Codezeile durch den folgenden Code:

Code:

Ich habe mir den Code für das Ändern der Schrift von jemandem aufzeichnen lassen, der Excel2003 auf einem virutellen PC-System vorliegen hat und habe ihn dann entsprechend angepasst - ich hoffe, dass er nun ohne Fehler durchläuft.
In Excel2016 funktioniert dieser Code übrigens ebenfalls.

 

Hallo Karin,

der Fehler ist weg das war es *Smilie

Die Schrift ist jetzt in der ersten Zeile Fett und in der zweite nicht Fett.
Aber die Schriftgrösse ist in Beiden noch 16,5.

Aufgrund dessen hatte ich versucht
Code:

das dort ebenso zu machen.
Leider klappt es so nicht und die Schriftgrösse ist immer noch 16,5 bei beiden Zeilen.
Haste da noch eine Idee?

 

Hi,

das kann ich nicht nachvollziehen, aber versuche es mal so:

Code:

 

Hallo Karin,

leider auch nicht. *frown.gif*

 

Hallo Karin,

ich habe was mit dem Makrorecorder gefunden.

Code:

das davor und dann klappt das ABER dabei dann nur beim ersten.
Bei den anderen wo Daten übergeben werden bleibt das bei 16,5 was ich nicht verstehe. *rolleyes.gif*

 

Hi,

ersetze den Code einschließlich der auskommentierten Zeile (diese kannst du dann auch noch löschen) bis vor die erste End If-Zeile durch diesen Code:

Code:

 

Für den 2. Textteil müsstest du wahrscheinlich "Fett" durch "Standard" ersetzen bei .FontStyle

 

Hallo Karin,

das mit dem 2ten Teil "Fett" hatte ich mit "Normal" und dann noch mit False versucht, klappt auch beides ohne Fehler.

Warum muss da das DoEvents 2 mal drin stehen?

Aber erst mal ein mega

 

Hi,

du kannst mal versuchen, die 4 DoEvents wegzulassen - wenn dann immer noch alles richtig funktioniert, brauchst du sie logischerweise nicht.
DoEvents ist dazu da, die Steuerung ans Betriebssystem zu übergeben und hilft in vielen Fällen, wenn Excel mit der Codeausführung nicht hinterher kommt, also der Code schneller durchläuft als Excel die Befehle ausführen kann - das kann insbesondere bei Formatierungsbefehlen von eingebetteten Grafikobjekten dann zu Fehlverhalten führen, sodass Befehle nicht oder nicht richtig oder nur teilweise ausgeführt werden. Aus diesem gRund hatte ich die DoEvents eingefügt. Es kann jedoch durchaus sein, dass dies bei Excel2003 nicht notwendig ist, da vor Excel2007 ein anderes internes Grafiksystem verwendet wurde.