: Xl2000 die Adresse der Zelle mit der Größe oder kleinste Wert zurückgeben

Maschinell-übersetzte und englische Version des Artikels nebenander anzeigen

Hinweis: Dies ist ein maschinell übersetzter Artikel.

Produkte anzeigen, auf die sich dieser Artikel bezieht

Dieser Artikel beschreibt zwei Möglichkeiten, die Sie die Adresse der Zelle mit dem größten oder kleinsten Wert in einem Zellbereich in einer Microsoft Excel-Arbeitsblatt finden können. Wenn Sie eine einzelne Zeile oder Spalte mit Daten verwenden, können Sie eine Arbeitsblattformel. Wenn Sie mehrere Zeilen oder Spalten von benachbarten Daten verwenden, müssen Sie eine benutzerdefinierte Microsoft Visual Basic für Applikationen-Funktion erstellen. Finden Sie Beispiele für beide Methoden im Abschnitt "Weitere Informationen".

Zum Anfang

Weitere Informationen

Mithilfe von Formeln

Sie können die Adresse der Zelle mit dem größten oder kleinsten Wert in einer Spalte oder Zeile zurückgeben, indem die CELL(), Bereich.verschieben() und Vergleich() Funktionen zusammen mit der Max() oder Min()-Funktion.

Wenn mehrere Vorkommen von den größten oder kleinsten Wert vorhanden sind, zurück die folgenden Formeln die Adresse der Zelle des ersten Vorkommens des Werts. Wenn nur ein Vorkommen des Werts vorhanden ist, wird die Adresse der Zelle mit diesem Wert zurückgegeben.

Um die Adresse einer Zelle in einer Spalte (in diesem Beispiel wird Spalte A, Zellen a1: A10) zurückzugeben, verwenden Sie die entsprechende Formel in der folgenden Tabelle.

   For this
   address      Use this formula
   ------------------------------------------------------------------------
   Cell with
   largest
   value        =CELL("address",OFFSET(A1,MATCH(MAX(A1:A10),A1:A10,0)-1,0))

   Cell with
   smallest
   value        =CELL("address",OFFSET(A1,MATCH(MIN(A1:A10),A1:A10,0)-1,0))

in einer Zeile (in diesem Beispiel wird Spalte A, Zellen A1:J1) die Adresse einer Zelle zurückzugeben, verwenden Sie die entsprechende Formel in der folgenden Tabelle.

   For this
   address      Use this formula
   ----------------------------------------------------------------------
   Cell with
   largest
   value        =CELL("address",OFFSET(A1,0,MATCH(MAX(A1:J1),A1:J1,0)-1))

   Cell with
   smallest
   value        =CELL("address",OFFSET(A1,0,MATCH(MIN(A1:J1),A1:J1,0)-1))

Zum Anfang

Verwenden von benutzerdefinierten Funktionen

Microsoft bietet Programmierbeispiele für Abbildung nur ohne Gewährleistung oder konkludent, einschließlich, aber nicht beschränkt auf konkludenten Garantien der Handelsüblichkeit und/oder Eignung für einen bestimmten Zweck. Die zur Verfügung gestellten Makro- und Programmierungsbeispiele sollen lediglich exemplarisch die Funktionsweise des Beispiels aufzeigen. Spezialisten von Microsoft Support Services können bei Erläuterung die Funktionalität einer bestimmten Prozedur helfen, Sie werden ändert jedoch nicht Beispielen bieten Funktionen hinzugefügt oder Verfahren, um Ihren speziellen Anforderungen erstellen.
Wenn Sie Programmiererfahrung, beschränkt haben, sollten Sie ein Microsoft Certified Partner oder die Microsoft Advisory Services wenden. Weitere Informationen finden Sie auf diese Websites von Microsoft:

Microsoft Certified Partner - https://partner.microsoft.com/global/30000104 (https://partner.microsoft.com/global/30000104)

Microsoft-Sicherheitsempfehlung Services - http://support.microsoft.com/gp/advisoryservice (http://support.microsoft.com/gp/advisoryservice)

Weitere Informationen zu den Supportoptionen, die verfügbar sind und wie Sie Microsoft kontaktieren besuchen Sie in der folgenden Website: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS (http://support.microsoft.com/default.aspx?scid=fh;en-us;cntactms)

Verwenden Sie um die Zellenadresse des größten Wertes in einem angrenzenden Bereich zurückzukehren, die größer ist als eine einzelne Spalte oder Zeile, das folgende benutzerdefinierte Visual Basic für Applikationen-Funktion:

Function MaxAddress(The_Range)

   ' Sets variable equal to maximum value in the input range.
   MaxNum = Application.Max(The_Range)
   ' Loop to check each cell in the input range to see if equals the
   ' MaxNum variable.
   For Each cell In The_Range
      If cell = MaxNum Then
         ' If the cell value equals the MaxNum variable it
         ' returns the address to the function and exits the loop.
         MaxAddress = cell.Address
         Exit For
      End If
   Next cell

End Function

um die Zellenadresse der kleinste Wert in einem angrenzenden Bereich zu erhalten, ersetzen Sie die Funktion Min() , für die Funktion Max() als in der folgenden Beispielfunktion:

Function MinAddress(The_Range)

   ' Sets variable equal to minimum value in the input range.
   MinNum = Application.Min(The_Range)
   ' Loop to check each cell in the input range to see if equals the
   ' min variable.
   For Each cell In The_Range
      If cell = MinNum Then
         ' If the cell value equals the max variable it
         ' returns the address to the function and exits the loop
         MinAddress = cell.Address
         Exit For
      End If
   Next cell

End Function

Zum Anfang

Informationsquellen

Weitere Informationen erhalten von Hilfe mit Visual Basic-ForApplications folgendem Artikel der Microsoft Knowledge Base:

226118 (http://support.microsoft.com/kb/226118/EN-US/ ) OFF2000: Ressourcen für die Programmierung mit Visual Basic für Applikationen

Zum Anfang

Die Informationen in diesem Artikel beziehen sich auf:

Microsoft Excel 2000 Standard Edition

Zum Anfang

kbmt kbhowto kbinfo kbprogramming KB213375 KbMtde

Zum Anfang

Maschinell übersetzter Artikel

Wichtig: Dieser Artikel wurde maschinell und nicht von einem Menschen übersetzt. Die Microsoft Knowledge Base ist sehr umfangreich und ihre Inhalte werden ständig ergänzt beziehungsweise überarbeitet. Um Ihnen dennoch alle Inhalte auf Deutsch anbieten zu können, werden viele Artikel nicht von Menschen, sondern von Übersetzungsprogrammen übersetzt, die kontinuierlich optimiert werden. Doch noch sind maschinell übersetzte Texte in der Regel nicht perfekt, insbesondere hinsichtlich Grammatik und des Einsatzes von Fremdwörtern sowie Fachbegriffen. Microsoft übernimmt keine Gewähr für die sprachliche Qualität oder die technische Richtigkeit der Übersetzungen und ist nicht für Probleme haftbar, die direkt oder indirekt durch Übersetzungsfehler oder die Verwendung der übersetzten Inhalte durch Kunden entstehen könnten.

Den englischen Originalartikel können Sie über folgenden Link abrufen: 213375 (http://support.microsoft.com/kb/213375/en-us/ )

Zum Anfang

Microsoft stellt Ihnen die in der Knowledge Base angebotenen Artikel und Informationen als Service-Leistung zur Verfügung. Microsoft übernimmt keinerlei Gewährleistung dafür, dass die angebotenen Artikel und Informationen auch in Ihrer Einsatzumgebung die erwünschten Ergebnisse erzielen. Die Entscheidung darüber, ob und in welcher Form Sie die angebotenen Artikel und Informationen nutzen, liegt daher allein bei Ihnen. Mit Ausnahme der gesetzlichen Haftung für Vorsatz ist jede Haftung von Microsoft im Zusammenhang mit Ihrer Nutzung dieser Artikel oder Informationen ausgeschlossen.