Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
400to404
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
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suche Wert in der Matrix

Suche Wert in der Matrix
Giuseppe
Halle Excel-Freunde
Ich suche einen Wert in einer Matrix.
Ich möchte gerne die Zeilennummer oder eine Spaltenbezeichnung
ermittelt haben. (letzter Eintrag)
Bsp.
AA 15 18 20 33
BB 23 33 40 50
CC 05 20 30 80
Suchtext: 33
Ergebnis: BB (oder Zeile 2)
Wer weiss, welche Funktion ich nehmen muss ?!?

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Suche Wert in der Matrix
Giuseppe
Erst mal herzlichen Dank für die Antwort !!
Sie ist perfekt !
Doch leider habe ich die "getvalue" - Funktion nicht (reagiert nicht)
Ich habe Excel 2000 De
Was kann ich tun
Giuseppe
AW: Suche Wert in der Matrix
Hans
Hallo Giuseppe,
bei GetValue handelt es sich um eine benutzerdefinierte Funktion (UDF), also ein kleines VBA-Programm. Den Code dazu findest Du in eine Standardmodul in der Arbeitsmappe. Wenn Du die Funktion in Deiner Arbeitsmapp nutzen möchtest, kopiere den Code oder das Modul dorthin und sie steht Dir zur Verfügung.
Gruss hans
AW: Suche Wert in der Matrix
Giuseppe
Den Code kann ich aber nicht öffnen, er ist Kennwortgeschützt...
Anzeige
AW: Suche Wert in der Matrix
Hans
... ach was, ich schütze doch keinen Code bei den Beispielen. Möglicherweise hast Du auf die falsche Arbeitsmappe geklickt.
Aber was solls, nachfolgend der Code:

Function GetValue( _
rng As Range, _
vValue As Variant, _
bln As Boolean, _
iArt As Integer) As Variant
Dim vFound As Variant
Dim iCounter As Integer
For iCounter = 1 To rng.Cells.Count
If rng(iCounter).Value = vValue Then
If iArt = 0 Then
vFound = rng(iCounter).Address(False, False)
ElseIf iArt = 1 Then
vFound = rng(iCounter).Row
Else
vFound = rng(iCounter).Column
End If
If Not IsEmpty(vFound) And bln = False Then
GetValue = vFound
Exit Function
End If
End If
Next iCounter
If Not IsEmpty(vFound) Then GetValue = vFound
End Function

Gruss hans
Anzeige
AW: Suche Wert in der Matrix
24.03.2004 10:50:17
Giuseppe
oh... ja !?!
aber herzlichen Dank !
ich werde es gleich mal ausprobieren...
Ich melde mich dann wieder
danke
Gruss Giuseppe

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige