Formatierung grösster Werte

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Formatierung grösster Werte
von: Steffen
Geschrieben am: 15.07.2002 - 10:57:01

Ich hab' zwar schon mal gepostet, aber leider konnte man mir noch nicht so recht weiterhelfen.

Ich habe eine Datei mit mehreren Werten in Spalten. Diese Werte kommen von anderen Blättern, also etwa S1!$R$2, S2!$R$2, S3!$R$2 und so weiter. Jetzt möchte ich, daß in der Spalte mit den o.g. Werten automatisch der grösste (bzw. die grössten) Wert(e) fett und mit einem anderen Hintergrund dargestellt wird. Ich weiß, dass es über die bedingte Formatierung und mit der Formel KGRÖSSTE funktioniert, aber egal wie ich's auch drehe...ich erhalte immer die Fehlermeldung ZUVIELE oder ZUWENIGE ARGUMENTE.

Wer kann mir noch weiterhelfen...?
Danke
Steffen


nach oben   nach unten

Re: Formatierung grösster Werte
von: Robert Werner
Geschrieben am: 15.07.2002 - 11:18:40

Wenn die Werte in der Spalte A stehen und die zwei größten Werte gekennzeichnet werden sollen, musst du die Spalte A markieren und bei der bedingten Formatierung folgende Formel eingeben (wenn A1 die aktive Zelle ist):

=A1>=KGRÖSSTE(A:A;2)

Dann die gewünschten Formatierungen auswählen, das wars.

Gruß
Robert

nach oben   nach unten

Re: Formatierung grösster Werte
von: Berai
Geschrieben am: 15.07.2002 - 11:24:06

Hallo Steffen,

um z.B. den größten und kleinsten Wert der Spalte A hervorzuheben, mußt du die gesamte Spalte A markieren und der Bedingten Formatierung zwei Bedingungen mit folgenden Formeln setzen:

für größten Wert
=A1=MAX(A:A)

für den kleinsten Wert
=A1=MIN(A:A)

Gruß
Rainer

nach oben   nach unten

Re: Formatierung grösster Werte
von: Markus
Geschrieben am: 15.07.2002 - 11:42:30

Ich bin da auch nicht so ein Spezialist, aber ich würde das so machen

gruss Markus

Sub grössterWert()
Dim bereich As Range
Dim woR As Integer
Dim woC As Integer
Dim zelle As Range
Dim grösster As Double

Set bereich = Application.InputBox( _
Prompt:="Markieren Sie den Bereich in dem Sie den grössten Wert angestrichen haben möchten", Type:=8)


For Each zelle In bereich
If zelle.Value > grösster Then
grösster = zelle.Value
woR = zelle.Row
woC = zelle.Column
End If

Next

ActiveSheet.cells(woR, woC).Font.ColorIndex = 3


End Sub

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Formatierung grösster Werte"