Beste Werte finden und markieren
23.01.2022 22:36:13
Vera
nochmal danke an Ralf B, der uns auf die richtige Spur gebracht hat.
Wir wollen für jede Spalte den besten Wert finden und markieren. Je nach Spalte ist der beste Wert mal der 'kleinste' oder mal der 'größte' Wert,
Für den kleinsten Wert Haben wir es soweit hinbekommen. Welche Änderungen müssen vorgenommen werden, damit es auch für den 'größten' Wert passt?
Sub Kleinster_Wert_Markiere_Zelle()
ActiveSheet.ListObjects("Table1").ListColumns("Eigenschaft 1").DataBodyRange.SpecialCells(xlCellTypeVisible).Select
Dim strData As String
Dim rng As Range
Dim vValue As Variant
Dim rngCol As Range
Dim lngRow As Long
Dim rngAdd As Range
strData = Selection.Address
Set rng = Range(strData)
vValue = Application.WorksheetFunction.Min(rng)
For Each rngCol In rng.Columns
If Application.WorksheetFunction.CountIf(rngCol, vValue) > 0 Then
lngRow = Application.WorksheetFunction.Match(vValue, rngCol, 0)
Set rngAdd = rngCol.Cells(lngRow, 1)
rngAdd.Select
End If
Next
With Selection
.Interior.Color = vbGreen
End With
Anzeige