Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

.Rank() bei fehlenden Daten

.Rank() bei fehlenden Daten
28.04.2006 14:32:08
matthias
Hallo,
ich verwende in einem Script die Funktion Rank(x, Range,0). Wenn jedoch in der Quell-Tabelle bei x kein Eintrag vorliegt kommt es zu einem Fehler. Nun habe ich noch eine Funktion dazwischengeschaltet, die im Falle wenn Leer oder not isnumeric eine 0 generiert. Jedoch funktioniert auch dieses nicht. Kann mir jemand helfen?
Danke.
Matthias

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: .Rank() bei fehlenden Daten
28.04.2006 20:45:09
Gerd
Hallo Matthias,
diese Funktion setzt voraus, dass eine Zahl gesucht wird u. diese
im Suchbereich tatsächlich vorhanden ist.
Du kannst dir eine Fehlerroutine erstellen (siehe Beispiel) oder
mit der Find-Methode vorab prüfen, ob der Suchwert im Suchbereich
vorhanden ist.

Sub Rang()
Dim y As Integer, x, Bereich As Range
On Error GoTo Errorhandler
x = InputBox("Suchwert")
Set Bereich = ThisWorkbook.Worksheets("tabelle1").Range("b1:c5")
y = WorksheetFunction.Rank(x, Bereich, 0)
Errorhandler:
If Err.Number > 0 Then
MsgBox Err.Description & "  " & Err.Number
y = 0
If Err.Number = 1004 Then MsgBox "Suchwert nicht vorhanden!"
If Err.Number = 13 Then MsgBox "Suchbegriff ist keine Zahl!"
If Err.Number = 9 Then MsgBox "Suchbereich nicht vorhanden!"
End If
MsgBox y
End Sub

Gruß Gerd
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige