SVerweis

Guten Morgen Fachleute,
hab da ein SVerweis-Problem, das mir zu hoch ist. Versuche es langsam zu entwickeln:
1.
=SVERWEIS(AY29;VarSonst;2;0):
- AY29 ist ein Datum
- VarSonst ist ein zweispaltiger Bereich: 1. Sp: Datum, 2. Sp: Wert
mit der Formel wird ein Wert geholt zu dem Datum geholt
2.
=WENN(NICHT(ISTNV(SVERWEIS(AY29;VarSonst;2;0)));SVERWEIS(AY29;VarSonst;2;0);"")
... damit's kein #NV gibt, wenn in der ersten Spalte von VarSonst das Datum nicht zu finden ist.
3.
Gibt's das gesuchte Datum (Suchkriterium) mehr als ein Mal in VarSonst, nimmt SVerweis den ersten gefundenen Wert.
Nun sollte aber auch noch ein bestimmtes Kriterium erfüllt sein, dass nämlich der zu suchende Wert z. B. ein "?" enthält, und nur dann soll SVerweis das holen. Und da scheitere ich. Einer meiner (Fehl-)Versuche:
=WENN(NICHT(ISTFEHLER(FINDEN("?";SVERWEIS(AY29;VarSonst;2;0);)));SVERWEIS(AY29;VarSonst;2;0);"")
Falls es da eine Lösung geben sollte, bitte ich um Eure HIlfe.
Danke schon mal im Voraus und Grüße
Franz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: SVerweis

29.01.2006 11:01:26

Ramses

AW: SVerweis

29.01.2006 11:12:09

Franz

AW: SVerweis

29.01.2006 14:10:38

Ramses

AW: SVerweis

29.01.2006 15:56:48

Franz

AW: SVerweis

ransi

AW: SVerweis

29.01.2006 11:20:32

Franz

AW: SVerweis

ransi

AW: SVerweis

29.01.2006 11:56:26

Franz

AW: SVerweis

ransi

AW: SVerweis

ransi

AW: SVerweis

29.01.2006 12:05:41

Franz

Hallo Franz
Ich bin bei diesem Problem etwas auf der Leitung gestanden, deshalb dauerte es etwas.
Hier noch eine andere Variante per UDF

	A	B	C	D	E	F	G	H
1		Muster	Teil	Erzielter Treffer		Wert	String	Ergebnis
2	Check Teil Übereinstimmung	Muster	Temp	3		Muster	Test	1
3	Check volle Übereinstimmung	Muster	Temp	4		Muster	Text	2
4						Muster	Temperatur	3
5						Muster	Temp	4
6

Formeln der Tabelle

D2 : =findmatch(B2;$F$2:$H$13;C2;2;3;0)
D3 : =findmatch(B3;$F$2:$H$13;C3;2;3;1)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download
Dazu diese UDF in ein Modul
'Function FindMatch( _
    srcVal = Suchwert As Variant, _
    srcRange = Bereich der gepürft werden soll As Range, _
    compCol Spalte die mit dem Teilstring verglichen werden soll As Integer, _
    findStr = Zu prüfender Teilstring in Ergebnisspalte As String _
    srcCol Spalte wo der Wert genommen werden soll As Integer, _
    compTar = 1= Volle Übereinstimmung, 0 = Teilweise Übereinstimmung As Boolean) As Variant

Function FindMatch(srcVal As Variant, srcRange As Range, findStr As String, compCol As Integer, srcCol As Integer, compTar As Boolean) As Variant
    Dim myC As Range
    If srcVal = "" Then
        FindMatch = "Kein Suchbegriff übergeben"
        Exit Function
    End If
    If findStr = "" Then
        FindMatch = "Kein Textvergleich übergeben"
        Exit Function
    End If
    If srcRange.Columns.Count < srcCol Then
        FindMatch = "Spaltenbereich zu klein"
        Exit Function
    End If
    For Each myC In srcRange.Columns(1).Cells
        Debug.Print myC.Address
        If compTar = True Then
            Debug.Print myC.Value
            Debug.Print myC.Offset(0, compCol - 1).Value
            If myC.Value = srcVal And myC.Offset(0, compCol - 1).Value = findStr Then
                FindMatch = myC.Offset(0, srcCol - 1)
                Exit Function
            End If
        ElseIf compTar = False Then
            If myC = srcVal And InStr(1, myC.Offset(0, compCol - 1), findStr) > 0 Then
                FindMatch = myC.Offset(0, srcCol - 1)
                Exit Function
            End If
        End If
    Next
End Function

Ist vielleicht etwas einfacher einzugeben und zu varieeren ;-)
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread