AW: Vergleich Wert in Matrix
05.11.2008 14:58:57
David
oder auch per Makro:
Option Explicit
Sub suchen()
Dim Suchbereich, Suchbegriff, Fundstelle, Zeile, Spalte
Suchbereich = "A1:B2"
Suchbegriff = Range("D1")
If Range("A1:B2").Find(Suchbegriff, LookIn:=xlValues) Is Nothing Then
MsgBox "ja"
End If
Fundstelle = Range("A1:B2").Find(Suchbegriff, LookIn:=xlValues).Address
Zeile = Range("A1:B2").Find(Suchbegriff, LookIn:=xlValues).Row
Spalte = Range("A1:B2").Find(Suchbegriff, LookIn:=xlValues).Column
MsgBox Fundstelle & " / Zeile: " & Zeile & " / Spalte: " & Spalte
End Sub
Gruß
David