Makro, um aus Spalten die Top-Werte zu finden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sebbb,
hier eine Lösung mit Bedingter Formatierung für die Top 5

Tabelle1

	D
1	Wert
2	23
3	2
4	3
5	4
6	21
7	6
8	7
9	17
10	9
11	23
12	11
13	12
14	18
15	1
16	22
17	16
18	21
19	18
20	12
21	20
22	21
23	22
24	15

Bedingte Formatierungen der Tabelle

Zelle	Nr.: / Bedingung	Format
D2	1. / Formel ist =ODER(D2=KGRÖSSTE($D$2:$D$24;1);D2=KGRÖSSTE($D$2:$D$24;2);D2=KGRÖSSTE($D$2:$D$24;3);D2=KGRÖSSTE($D$2:$D$24;4);D2=KGRÖSSTE($D$2:$D$24;5))	Abc
D3	1. / Formel ist =ODER(D3=KGRÖSSTE($D$2:$D$24;1);D3=KGRÖSSTE($D$2:$D$24;2);D3=KGRÖSSTE($D$2:$D$24;3);D3=KGRÖSSTE($D$2:$D$24;4);D3=KGRÖSSTE($D$2:$D$24;5))	Abc
D4	1. / Formel ist =ODER(D4=KGRÖSSTE($D$2:$D$24;1);D4=KGRÖSSTE($D$2:$D$24;2);D4=KGRÖSSTE($D$2:$D$24;3);D4=KGRÖSSTE($D$2:$D$24;4);D4=KGRÖSSTE($D$2:$D$24;5))	Abc
D5	1. / Formel ist =ODER(D5=KGRÖSSTE($D$2:$D$24;1);D5=KGRÖSSTE($D$2:$D$24;2);D5=KGRÖSSTE($D$2:$D$24;3);D5=KGRÖSSTE($D$2:$D$24;4);D5=KGRÖSSTE($D$2:$D$24;5))	Abc
D6	1. / Formel ist =ODER(D6=KGRÖSSTE($D$2:$D$24;1);D6=KGRÖSSTE($D$2:$D$24;2);D6=KGRÖSSTE($D$2:$D$24;3);D6=KGRÖSSTE($D$2:$D$24;4);D6=KGRÖSSTE($D$2:$D$24;5))	Abc
D7	1. / Formel ist =ODER(D7=KGRÖSSTE($D$2:$D$24;1);D7=KGRÖSSTE($D$2:$D$24;2);D7=KGRÖSSTE($D$2:$D$24;3);D7=KGRÖSSTE($D$2:$D$24;4);D7=KGRÖSSTE($D$2:$D$24;5))	Abc
D8	1. / Formel ist =ODER(D8=KGRÖSSTE($D$2:$D$24;1);D8=KGRÖSSTE($D$2:$D$24;2);D8=KGRÖSSTE($D$2:$D$24;3);D8=KGRÖSSTE($D$2:$D$24;4);D8=KGRÖSSTE($D$2:$D$24;5))	Abc
D9	1. / Formel ist =ODER(D9=KGRÖSSTE($D$2:$D$24;1);D9=KGRÖSSTE($D$2:$D$24;2);D9=KGRÖSSTE($D$2:$D$24;3);D9=KGRÖSSTE($D$2:$D$24;4);D9=KGRÖSSTE($D$2:$D$24;5))	Abc
D10	1. / Formel ist =ODER(D10=KGRÖSSTE($D$2:$D$24;1);D10=KGRÖSSTE($D$2:$D$24;2);D10=KGRÖSSTE($D$2:$D$24;3);D10=KGRÖSSTE($D$2:$D$24;4);D10=KGRÖSSTE($D$2:$D$24;5))	Abc
D11	1. / Formel ist =ODER(D11=KGRÖSSTE($D$2:$D$24;1);D11=KGRÖSSTE($D$2:$D$24;2);D11=KGRÖSSTE($D$2:$D$24;3);D11=KGRÖSSTE($D$2:$D$24;4);D11=KGRÖSSTE($D$2:$D$24;5))	Abc
D12	1. / Formel ist =ODER(D12=KGRÖSSTE($D$2:$D$24;1);D12=KGRÖSSTE($D$2:$D$24;2);D12=KGRÖSSTE($D$2:$D$24;3);D12=KGRÖSSTE($D$2:$D$24;4);D12=KGRÖSSTE($D$2:$D$24;5))	Abc
D13	1. / Formel ist =ODER(D13=KGRÖSSTE($D$2:$D$24;1);D13=KGRÖSSTE($D$2:$D$24;2);D13=KGRÖSSTE($D$2:$D$24;3);D13=KGRÖSSTE($D$2:$D$24;4);D13=KGRÖSSTE($D$2:$D$24;5))	Abc
D14	1. / Formel ist =ODER(D14=KGRÖSSTE($D$2:$D$24;1);D14=KGRÖSSTE($D$2:$D$24;2);D14=KGRÖSSTE($D$2:$D$24;3);D14=KGRÖSSTE($D$2:$D$24;4);D14=KGRÖSSTE($D$2:$D$24;5))	Abc
D15	1. / Formel ist =ODER(D15=KGRÖSSTE($D$2:$D$24;1);D15=KGRÖSSTE($D$2:$D$24;2);D15=KGRÖSSTE($D$2:$D$24;3);D15=KGRÖSSTE($D$2:$D$24;4);D15=KGRÖSSTE($D$2:$D$24;5))	Abc
D16	1. / Formel ist =ODER(D16=KGRÖSSTE($D$2:$D$24;1);D16=KGRÖSSTE($D$2:$D$24;2);D16=KGRÖSSTE($D$2:$D$24;3);D16=KGRÖSSTE($D$2:$D$24;4);D16=KGRÖSSTE($D$2:$D$24;5))	Abc
D17	1. / Formel ist =ODER(D17=KGRÖSSTE($D$2:$D$24;1);D17=KGRÖSSTE($D$2:$D$24;2);D17=KGRÖSSTE($D$2:$D$24;3);D17=KGRÖSSTE($D$2:$D$24;4);D17=KGRÖSSTE($D$2:$D$24;5))	Abc
D18	1. / Formel ist =ODER(D18=KGRÖSSTE($D$2:$D$24;1);D18=KGRÖSSTE($D$2:$D$24;2);D18=KGRÖSSTE($D$2:$D$24;3);D18=KGRÖSSTE($D$2:$D$24;4);D18=KGRÖSSTE($D$2:$D$24;5))	Abc
D19	1. / Formel ist =ODER(D19=KGRÖSSTE($D$2:$D$24;1);D19=KGRÖSSTE($D$2:$D$24;2);D19=KGRÖSSTE($D$2:$D$24;3);D19=KGRÖSSTE($D$2:$D$24;4);D19=KGRÖSSTE($D$2:$D$24;5))	Abc
D20	1. / Formel ist =ODER(D20=KGRÖSSTE($D$2:$D$24;1);D20=KGRÖSSTE($D$2:$D$24;2);D20=KGRÖSSTE($D$2:$D$24;3);D20=KGRÖSSTE($D$2:$D$24;4);D20=KGRÖSSTE($D$2:$D$24;5))	Abc
D21	1. / Formel ist =ODER(D21=KGRÖSSTE($D$2:$D$24;1);D21=KGRÖSSTE($D$2:$D$24;2);D21=KGRÖSSTE($D$2:$D$24;3);D21=KGRÖSSTE($D$2:$D$24;4);D21=KGRÖSSTE($D$2:$D$24;5))	Abc
D22	1. / Formel ist =ODER(D22=KGRÖSSTE($D$2:$D$24;1);D22=KGRÖSSTE($D$2:$D$24;2);D22=KGRÖSSTE($D$2:$D$24;3);D22=KGRÖSSTE($D$2:$D$24;4);D22=KGRÖSSTE($D$2:$D$24;5))	Abc
D23	1. / Formel ist =ODER(D23=KGRÖSSTE($D$2:$D$24;1);D23=KGRÖSSTE($D$2:$D$24;2);D23=KGRÖSSTE($D$2:$D$24;3);D23=KGRÖSSTE($D$2:$D$24;4);D23=KGRÖSSTE($D$2:$D$24;5))	Abc
D24	1. / Formel ist =ODER(D24=KGRÖSSTE($D$2:$D$24;1);D24=KGRÖSSTE($D$2:$D$24;2);D24=KGRÖSSTE($D$2:$D$24;3);D24=KGRÖSSTE($D$2:$D$24;4);D24=KGRÖSSTE($D$2:$D$24;5))	Abc

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Zusatz: Sebbb ist bestimmt ein Tipp-Fehler (Soooooooo kaaaaaaaaaannn man doooch nicht heißen?!)
Gruß Hübi

Hallo Seb! (realnames sind hier üblich und erwünscht!)
Bedingte Formatierung, wie von Hübi vorgeschlagen, geht zwar auch,
aber bei einigen Tausend Zellen, bläht das die Tabelle ganz schön auf!
Probier mal dieses Makro. (Alt+F11 &gt Einfügen Modul &gt in's rechte Fenster kopieren!)

Sub Top_Ten()
'Kennzeichnung der 10 grössten Werte
'in den Spalten 1 bis 10 unter verwendung von Autofilter
Dim lEnd As Long
Dim iCol As Integer
Dim Bereich As Range
On Error GoTo FEHLER
Application.ScreenUpdating = False
lEnd = Range("A65536").End(xlUp).Row
Set Bereich = Range(Cells(1, 1), Cells(lEnd, 10))
With Bereich
.Interior.ColorIndex = xlNone
.AutoFilter
For iCol = 1 To 10
.AutoFilter Field:=iCol, Criteria1:="10", Operator:=xlTop10Items
Range(Cells(2, iCol), Cells(lEnd, iCol)). _
SpecialCells(xlCellTypeVisible).Interior.ColorIndex = iCol + 34
.AutoFilter Field:=iCol
Next
.AutoFilter
End With
FEHLER:
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Makro, um aus Spalten die Top-Werte zu finden

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro, um aus Spalten die Top-Werte zu finden

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread