XL2000: wie Zurückgeben der Adresse der Zelle mit dem größten oder kleinsten Wert

Hinweis: Dies ist ein maschinell übersetzter Artikel.

Produkte anzeigen, auf die sich dieser Artikel bezieht

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

Zum Anfang

Weitere Informationen

Verwenden von Formeln

Sie können die Adresse der Zelle mit dem größten oder kleinsten Wert in Spalten oder einer Zeile zurückgeben, indem Sie die Funktionen CELL(), OFFSET() und MATCH() mit dem MAX() oder die MIN()-Funktion verwenden.

Sind mehrere Vorkommen des größten oder kleinsten Werts, geben die folgenden Formeln die Zelladresse des ersten Auftreten des Werts zurück. Wenn nur einem Vorkommens des Werts ist, wird die Adresse der Zelle, die den Wert enthält, zurückgegeben.

Verwenden Sie in der folgenden Tabelle die entsprechende Formel, um die Adresse einer Zelle in einer Spalte (in diesem Beispiel Spalte A Zell A1:A10) zurückzugeben.

   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))

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

   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, ohne Garantie, ist ausgedrückt, oder die impliziert wird, die außer nicht beschränkt zu den konkludenten Garantien von Merchantability und/oder Eignung für einen bestimmten Zweck folgt, Programmierbeispiele nur für Abbildung. Die zur Verfügung gestellten Makro- und Programmierungsbeispiele sollen lediglich exemplarisch die Funktionsweise des Beispiels aufzeigen Microsoft Support-Mitarbeiter helfen, die Funktionalität von einem bestimmten Verfahren zu erläutern, aber sie diese Beispiele zu nicht ändern, um bereitzustellen, dass Funktion hinzufügte, oder Prozeduren entsprechend bestimmten Anforderungen Ihren zu erstellen. Wenn Sie über begrenzte Programmiererfahrungen verfügen, wenden Sie sich an einen von Microsoft zertifizierten Partner Findet weitere Informationen zu Microsoft zertifizierte Partner bitte auf dem folgenden Website von Microsoft:

https://partner.microsoft.com/global/30000104 (https://partner.microsoft.com/global/30000104)

Weitere Informationen zur Kontaktaufnahme mit Microsoft und den verfügbaren Supportoptionen finden Sie auf der folgenden Microsoft-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 die folgende benutzerdefinierte Visual Basic für Applikationen-Funktion, um die Zelladresse des größten Werts in einem angrenzenden Bereich zurückzugeben, der größer als eine einzelne Spalte oder eine Zeile ist:

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

Ersetzen Sie die Min() Funktion für die Funktion Max() wie der folgenden Beispielfunktion, um die Zelladresse des kleinsten Werts in einem angrenzenden Bereich zu finden:

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

Erhalten Sie Weitere Informationen über das Anzeigen von Hilfe mit Visual Basic-forApplications, wenn unten auf Artikelnummer klickt, um den Beitrag in dem Microsoft Knowledge Base anzuzeigen:

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

Zum Anfang

Die Informationen in diesem Artikel beziehen sich auf:

Microsoft Excel 2000 Standard Edition

Zum Anfang

kbhowto kbinfo kbprogramming KB213375 KbMtde kbmt

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.