Excel 365 VBA Code

Diskutiere Excel 365 VBA Code im Office Forum im Bereich Microsoft Community Fragen; Hallo Zusammen, ich bitte um Eure Hilfe. Ich habe einen älteren VBA Code für den Füllstand von Kugelbehältern, siehe unten, der unter Excel 2013...

MSCom

Neuer Benutzer
Threadstarter
Dabei seit
20.09.2016
Beiträge
1
Hallo Zusammen,

ich bitte um Eure Hilfe.

Ich habe einen älteren VBA Code für den Füllstand von Kugelbehältern, siehe unten, der unter Excel 2013 ohne Probleme lief.

Seit ich ich Excel aus Office 365 verwende, erhalte ich bei der Zeile:

.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.

Ich bin kein VBA-Spezi. Kann mir jemand helfen?

Danke!


Sub BlasenFaerben()


Dim LetzteZeile As Variant
Dim i As Integer
Dim Prozentwert As Double
Dim Grenze1 As Double
Dim Grenze2 As Double


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

For i = 2 To LetzteZeile
ActiveChart.SeriesCollection(1).Points(i - 1).Select
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 ActiveChart.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 i

End Sub
 
#
schau mal hier: Excel 365 VBA Code. Dort wird jeder fündig!
Registrieren bzw. einloggen, um diese und auch andere Anzeigen zu deaktivieren
Thema:

Excel 365 VBA Code

Excel 365 VBA Code - Ähnliche Themen

Using Vlookup on other Workbook whichs path is stored in a Cell: Good Day Im Trying to do Vlookup on a closed Workbook whichs path is stored in a Cell. For that im writing a Function which opens the Workbook...
Excel VBA: Hallo Zusammen! Ich brauche Hilfe bei der Programmierung vom VBA... 1. Ich möchte, dass zusätzlich die Zeilen F2&G2 automatisch gelöscht...
Excel Makro_ Zeilen ein- & ausblenden: Hallo Ich habe ein bisschen ein grösseres Problem und bin mit probieren und durchlesen von etlichen Foren nicht zu einer Lösung gekommen...
Excel - VBA: Hallo Zusammen! Kann mir jemand sagen, wie ich es einfacher gestallten kann? Ich muss dies von Zeile 2 bis 1915 machen. LG Nikola Sub...
Excel 2016 Laufzeitfehler 9: Hallo! Ich hab zwei identische CSV-Dateien die ich einlese und jeweils den erste und letzten Wert einer Spalte ausgebe. Die beiden CSV-Dateien...

Sucheingaben

clams cBasino recipe

,

north carolina casino

,

north carolina casiJno

,
how to count cards in Ypoker
, xxx poker, casino in oklahoma, cwasino in oklahoma, mohegan sun poker, casino war, best online poker sites, best online pokRer sites, wyandotte casino, poker tournaments, Vcasino in oregon, what is the highest suit in po4ker, /poker table, mr green casino, mr green casHino, online poker real money usa, kickapoo lucky eagle casino, kickapoo lucky eagle cawsino, fulltilt poker, fulltilt po(ker, casino royale 1954, casirno royale 1954
Oben