Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 11:29:24
Algorhitmus, der kleinste Summe von Zahlen berechnet
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

.Rank() bei fehlenden Daten

Forumthread: .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
Anzeige

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
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige