Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1232to1236
1232to1236
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Maximum einfärben

Forumthread: VBA - Maximum einfärben

VBA - Maximum einfärben
Sibylle
Guten Morgen,
in Spalte A stehen Werte.
Mit Hilfe eines VBA-Programmes soll der höchste Wert gelb, der kleinste Wert rot eingefärbt werden.
Leider sind meine VBA-Kenntnisse (noch) zu wenig entwickelt um diese Aufgabe lösen zu können.
Ich bitte daher um Unterstützung und bedanke mich im Voraus bestens.
Einen schönen Tag.
Gruß
Sibylle
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA - Maximum einfärben
03.10.2011 09:41:58
Hajo_Zi
Hallo Sibylle,
dann löse es doch über Bedingte Formatierung, ganz ohne VBA.

Nein, es soll eine VBA-Lösung sein.
03.10.2011 09:49:10
Sibylle
Hallo Hajo,
ich danke für Deine Antwort.
Nein, es soll eine VBA-Lösung sein, denn ich will sehen wie man dies mit VBA lösen kann.
Gruß
Sibylle
Anzeige
Danke
03.10.2011 11:36:44
Sibylle
Hallo Matthias,
vielen Dank für Deine VBA-Lösung in Kombination mit Formeln.
Einen schönen Feiertag.
Gruß
Sibylle
AW: VBA - Maximum einfärben
03.10.2011 10:08:38
Beverly
Hi Sibylle,

Sub MinMax()
Dim rngZelle As Range
' Columns(1).Interior.ColorIndex = xlNone  ' eventuell vorher alle Füllfarben löschen
Set rngZelle = Columns(1).Find(Application.Max(Columns(1)))
If Not rngZelle Is Nothing Then rngZelle.Interior.ColorIndex = 4
Set rngZelle = Columns(1).Find(Application.Min(Columns(1)))
If Not rngZelle Is Nothing Then rngZelle.Interior.ColorIndex = 3
Set rngZelle = Nothing
End Sub


Anzeige
Danke
03.10.2011 11:34:59
Sibylle
Hallo Karin,
vielen Dank für Deine Lösung, die mir neue Aspekte aufgezeigt hat.
Einen schönen Feiertag.
Gruß
Sibylle
;

Forumthreads zu verwandten Themen

Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Array-Formel in VBA
Peter

Hallöchen liebe Excel Gemeinde,
ich hab da ein kleines Problem, wo ich hoffe, dass mir die VBA Spezialisten unter Euch helfen können.
Und zwar geht es um folgende Formel im VBA Code:
wb1.Worksheets(letztdat3).Cells(4, d).FormulaArray = _ "=SUM(COUNTIF(INDIRECT("""" & TRANSPOSE...
02.02.2009 17:28:00
Thread-ID: 1046339
6 Beiträge
Min und Max mit Bedingung ohne Array
Tino

Hallo,
ich bräuchte mal eure Hilfe.
Ich bin auf der Suche nach einer geeigneten Formel, die mir den Min bzw. Max Wert von bestimmten Stationen wieder geben kann.
Habe dies mit dieser Array Formel gelöst.
 CDEFG1  Station0010022  Min0,6 3  ...
07.06.2009 08:16:45
Thread-ID: 1079658
18 Beiträge
Array In Vba
@lex

Hallo VBA-Spezialisten !
Seit graumer Zeit suche ich ein Code-Gerüst um Arrays in VBA zu programmieren.Hintergrund:
Ich habe ca. 500 Shapes (MSMap) in einem Blatt.
Mit einer Schleife wird jedes Objekt auf eine Eigenschaft geprüft.
Ist die Prüfung wahr, dann soll dieses Objekt der Se...
12.04.2002 11:59:16
Thread-ID: 112756
4 Beiträge
Array Formel summe wenn in VBA umwamdeln
t.wegmann@hengegroup.com

Hallo Liebes Forum,
ich habe ein Problem mit meiner Array-Formel:
=SUMME(WENN(('DATEN NEU'!$F$2:$F$25048=Frachten!$D4)*('DATEN NEU'!$N$2:$N$25048=Frachten!$F4) *('DATEN NEU'!$X$2:$X$25048=Frachten!H$2);'DATEN NEU'!$AB$2:$AB$25048))
Die Formel funktioniert gut, nur wenn ich die Date...
01.03.2010 09:54:52
Thread-ID: 1142293
2 Beiträge
ArraySumme von ABS Werten in VBA
ABS

Hallo Excel Freunde,
ich stehe gerade bei einer vermutlich banalen Sache auf der langen Leitung.
{=SUMME(ABS(A6:G6)) } Diese ArrayFormel bildet die Summe aller Einzelzellen von A6-G6 aus ihren individuellen ABS Werten.
Wie lautet diese Zeile in VBA, wenn testweise A6-G6 die Selectio...
10.03.2010 20:52:23
Thread-ID: 1144997
4 Beiträge
Array in VBA
PeTeR

Hallo VBA-Freaks,
ich habe 2 Spalten: Typ und Größe
Z.B.:
Typ Größe
A 1
B 3
A 4
C 2
A 5
B 1
C 4
Als Ergebnis hätte ich gerne folgendes (am liebsten per Makro in einem Array mit X*2 Feldern):
A: 1;4;5
B: 3;1<...
20.10.2010 13:56:57
Thread-ID: 1183205
7 Beiträge
Berechnung Min-Max Wert der letzten 3 Zellen - VBA
Daniela

Hallo
Ich würde gern in Excel eine Berechnung mit VBA des Minimum- und Maximumwertes
der jeweils letzten 3 Zellen berechnen. Wenn ein neuer Wert hinzugefügt wird, sollen
wieder automatisch die letzten 3 Zellen für die Berechnung berücksichtigt werden.
Habe das in der Exceltabel...
16.01.2013 22:09:02
Thread-ID: 1294708
8 Beiträge
Auswertung Min Max Werte per VBA!?
Chris

Hallo liebe Excelfreunde,
ich habe wieder einmal ein größeres Excelproblem.
Ich habe eine Liste mit Transportpreisen für alle Postleitzahlen in Deutschland ab/zu vier verschiedenen Häfen.
In meiner Firma wird nun ein neues System eingeführt werden in welches diese Liste integriert w...
29.04.2013 22:20:00
Thread-ID: 1311090
6 Beiträge
Worksheets in dreidimensionales Array einlesen VBA
Jane

Hallo,
ich bin hier noch neu und auch noch nicht so geuebt in VBA.
Vielleicht stehe ich nur auf der Leitung, aber ich wuerde eigentlich gerne nur wissen, wie ich schnellstmoeglich ein ganzes Worksheet in ein dreidimensionales Array einlesen lassen kann ohne jede einzelne Zelle aufrufen...
20.03.2014 04:42:35
Thread-ID: 1354132
6 Beiträge
Min. und max. X-Achsenbeschriftung durch VBA
Han2883

Hallo Gemeinde,
Ich habe eine einfache Frage und zwar, ich habe bereit ein Diagramm erstellt. Erwünscht wird der min. Wert und der max. Wert der X-Achsenbeschriftung mit VBA automatisch von den Zellen K13(min. Wert) und K14(max. Wert) aufgerufen, wenn man die Werte in K13 und K14 manuell än...
30.06.2014 16:38:50
Thread-ID: 1368230
9 Beiträge
VBA Arraygröße dynmaisch erweitern ReDim
Krycho89

Hallo Forumsmitglieder,
ich habe ein Problem mit der dynamischen Erweiterung von einem Array
Mein Code sieht dabei folgendermaßen aus:
Sub Search()
Dim Suchbegriffe()
Dim newDim as Long
newDim = UBound(Suchbegriffe,1) + 1
ReDim Suchbegriffe(1 To newDim)
Suchbegr...
25.06.2015 08:05:28
Thread-ID: 1432965
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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