HERBERS Excel-Forum - die Beispiele

Thema: Vorgegebene Anzahl niedrigster Werte anzeigen

Home

Gruppe

Funktion

Problem

Wie kann ich mir in Spalte B die in Zelle C3 genannte Anzahl der niedrigsten Werte aus Spalte A anzeigen lassen?

Lösung
Folgende Formel: =WENN($C$3>=ZEILE()-2;KKLEINSTE(A:A;ZEILE()-2);"")
StandardModule: Modul1

Sub ArtikelSchreiben()
   Dim rngA As Range, rngB As Range
   Dim iRowCount As Integer, iColCount As Integer
   Dim iCol As Integer, iRow As Integer, iRandomize As Integer
   Randomize
   With Worksheets("Listen")
      iRowCount = .Range("A1").CurrentRegion.Rows.Count
      iColCount = .Range("A1").CurrentRegion.Columns.Count
      Set rngA = .Range(.Cells(2, 1), .Cells(iRowCount, iColCount))
   End With
   Set rngB = Range(Cells(2, 1), Cells(Range("Count").Value + 1, iColCount))
   Range(Cells(2, 1), Cells(65536, iColCount)).ClearContents
   rngB.ClearContents
   For iCol = 1 To iColCount
      For iRow = 1 To Range("Count").Value
         iRandomize = Int((iRowCount * Rnd) + 1)
         Do Until WorksheetFunction.CountIf(rngB.Columns(iCol), rngB.Cells(iRow, iCol).Value) = 1
            rngB.Cells(iRow, iCol).Value = rngA.Cells(iRandomize, iCol).Value
            iRandomize = Int((iRowCount * Rnd) + 1)
         Loop
      Next iRow
   Next iCol
End Sub

Beiträge aus dem Excel-Forum zu den Themen Funktion und KKLEINSTE

Copy funktioniert nur einmal Schreibschutz prüfen funktioniert nicht
Split-Funktion beim Einlesen TXT-Datei Match Funktion spinnt (?)
SVerweis funktioniert nicht PasteSpecial funktioniert nicht.
VBA-Code funktioniert nicht mit anderem Office Hilfe bei der INDEX Funktion
Zelladressen von FunktionsParametern ermitteln Matrixformel mit Summenfunktion
Formel funktioniert nicht, SVerweis Makro funktioniert nach Beenden von Excel nicht
VLOOKUP auf Links funktioniert offline @DAVID Zwei SUMMEWENN funktionen verknüpfen
Zwei SUMMEWENN funktionen verknüpfen Polynomfunktion
Mit vba Funktionen in Excel Zellen Rang-Funktion für Strings?
Skript funktioniert nur auf einer seite?!?! Hyperlink auf Excel-Datei funktioniert nicht
Public Funktion / Variabel VBA - Suchfunktion - Fehlermeldung
Benutzerdefinierte Funktion Userform mit Löschfunktion
Frage zu Wenn Dann Funktion Wenn-Funktion
Frage zur Funktion DISAGIO Funktion um Chart zu kreieren
Wenn-Funktion verschachtelt VBA Suchfunktion erweitern
Makro funktioniert nicht richtig zählenwenn-funktion mit mehreren kriterien
Funktion SVERWEIS Benutzerdefinierte Funktion in Open Office
Funktion Dezimal -> Zeit/ Variablen-Deklaration Probleme mit Textfunktionen
Fehler, wenn Variable in Funktion VBA-Funktion analog =ZELLE("Zeile")
Gültigkeit funktioniert nicht! Zellausrichtung funktioniert nicht
WENN-Funktion Hide-Funktion in einem Frame
Suchfunktion Date Funktion
Filter funktioniert nicht Funktionsname austauschen
Datum in der Funktion VERWEIS Sub oder Funktion nicht definiert in kleinem Makro
Funktion in einer anderen Datei aufrufen Multifunktionsleiste abfragen