Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Rang-Funktion via VBA mit Problemm

Rang-Funktion via VBA mit Problemm
20.01.2003 08:19:16
ewald
Hallo zusammen,

ich habe die zwei nachfolgenden Code in der xlRecherche
gefunden.

Mein Problem: Leider funktionieren beide nicht, wenn in der
Liste mehrere gleiche Werte vorhanden sind.
Fehlermeldung: #NW#

Und ich möchte aufsteigend sortiert haben
d.h. dem kleinsten Wert auch den kleinsten Rang vergeben.

Sub test1()
Dim i%
For i = 1 To 10
Cells(i, 2).Formula = "=Rank(" & i & ", A:A)"
Next i
End Sub

Sub test2()
Dim i%
For i = 1 To 10
Cells(i, 2) = Application.Rank _
(i, Columns("a"))
Next i
End Sub

Kann mir jemand helfen?

Viele, viele Dank.

Grüße

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Rang-Funktion via VBA mit Problemm
20.01.2003 08:35:28
Felix
Hallo Ewald,
wie wäre es damit?

Sub SortiereSpalteA()
Columns("A:A").Sort _
Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

ODER SO:

Sub Sortiere_A4bisA17()
Range("A4:A17"). _
Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Gruß
Felix

Re: Rang-Funktion via VBA mit Problemm
20.01.2003 10:04:20
ewald
Hallo Felix,

Deine Makros sortieren, aber ich möchte eine Rangliste der Werte z.B.von Spalte A erstellen, die Rangliste soll in Spalte B sein.

Vielen Dank.

Grüße

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige