Excel 365 VBA Code

Kann oder sollte ich den Programmcode in eine neue Excel-Makrosprache (VBA ?) umwandeln.

Kann... kommt auf Dich an.

Sollte... ja, wenn Du es in Zukunft weiter verwenden willst. Es ist angekündigt das VBA soweit erweitert wird das man alle Excel 4.0 Makros mit VBA nachbilden kann. Und dann wird eines Tages der alte Code nicht mehr unterstützt.

Sprachtechnisch gesehen ist VBA um einiges einfacher als Excel 4.0, allerdings musst Du nun schon umdenken, da es nur noch Objekt-orientierte Sprachen gibt.

Aber Vokabelprogramm... ich kann mir gar nicht vorstellen was da so umfangreich an dem Code sein soll... beschreib doch mal was Dein Code so macht.

Andreas.

Nochmal Hallo.

Konnte mein Problem lösen. Wie sich herausgestellt hatte, lag die Ursache nicht an meinem VBA-Code oder dem VBA-Code der fremden XLSM. Es lag an einer Einstellung in Excel selbst. Waren wieder einige sehr lehrreiche Stunden. Vielen Dank.

Hallo Andreas,

vielen Dank, dass Du bereit bist, dich mit meinem Problem zu befassen!

Ich habe den Code entsprechend geändert, leider kommt bei der Zeile: "With C.SeriesCollection(1).Points(i-1).Format" der Laufzeitfehler 438; Object unterstützt diese Eigenschaft oder Methode nicht.

Hast Du eine Idee?

Ich kann die Excel Datei mit dem Diagramm anhängen, falls Du es wünscht?

Gruss

kn

PS: Den Code hat damals (Excel 2010) ein Excel Profi geschrieben. Ich kenne mich ein wenig mit Formeln aus, aber VBA ist leider nicht meine Welt, sorry!

.Fill.GradientStops(2).Color.RGB = RGB(Range("Rot").Value, Range("Grün").Value, Range("Blau").Value)
die Fehlermeldung, die Methode Range für das Object Range........ist fehlgeschlagen.

Ist ganz einfach: Es gibt keine benannten Zellen "Rot", "Grün" oder "Blau" im Blatt.

BTW: Bitte benutze niemals SELECT, SELECTION, ACTIVECELL, es ist langsam und fehleranfällig. Referenziere immer die Objekte.

Andreas.

Sub BlasenFaerben()

  Dim LetzteZeile As Long, i As Long

  Dim Prozentwert As Double, Grenze1 As Double, Grenze2 As Double

  

  Dim C As Chart

  Set C = ActiveSheet.ChartObjects(1).Chart

  

  LetzteZeile = Cells(Cells.Rows.Count, 1).End(xlUp).Row

  For i = 2 To LetzteZeile

    Prozentwert = Cells(i, 5).Value

    Grenze1 = 1 - Prozentwert

    Grenze2 = 1.001 - Prozentwert

    If Prozentwert <= 0 Then

      Grenze1 = 1

      Grenze2 = 1

    ElseIf Prozentwert >= 1 Then

      Grenze1 = 0

      Grenze2 = 0

    End If

    With C.SeriesCollection(1).Points(i - 1).Format

      .Fill.TwoColorGradient msoGradientHorizontal, 1

      .Fill.GradientStops(1).Color.RGB = RGB(220, 220, 220)

      .Fill.GradientStops(1).Position = Grenze1

      .Fill.GradientStops(2).Color.RGB = RGB(Range("Rot").Value, Range("Grün").Value, Range("Blau").Value)

      .Fill.GradientStops(2).Position = Grenze2

    End With

  Next

End Sub

Hallo Claus,

ich habe die Korrektur ausgeführt, sorry war mein Fehler bei der Änderung des Codes!

Die Ausführung bleibt nun bei ".Fill.GradientStops(2).Color = RGB(Range("Rot"), Range("Grün"), Range("Blau"))hängen

Die Fehlermeldung lautet:

"Sie haben versucht, eine Prozedur anzuzeigen, der Bezeichner am
Einfügepunkt war jedoch kein Prozedurname. Dieser Fehler hat die folgende Ursache und Lösung:

Der Bezeichner ist kein Prozedurname. Überprüfen Sie die Schreibung des Bezeichners."

Kannst Du damit etwas anfangen?

Danke

kn