ergebnis find-methode formatabhängig ?

Hi Leute,
hab zwar schon im Netz gesucht, aber weiss eben nicht so recht, wie ich das Thema formulieren soll.
_________A_________B
1_______1,23______1,234
Die Zahl in B1 entspricht der gesamten "Länge" der Zahl - es kommen also keine weiteren Stellen dazu.
Beide Zahlen sind identisch - nur die Darstellung der Nachkommastellen unterschiedlich. Demnach ist in
Excel:
=A1=B1 ist WAHR, genau wie
VBA:
range("A1") = range("B1") ist True
range("A1") = 1.234 ist True
Jedoch findet die Find-Methode
Range("A1:B1").find(range("A1"), , xlValues)
nur die Zelle B1, egal ob A1 oder B1 beim Suchstart aktiv war.
Ganz abgesehen davon, wird selbst B1 nicht mehr gefunden, sollte in B1 aufgrund zu geringer Spaltenbreite nur noch #### enthalten sein.
Wie kann ich die Find-Methode so verwenden, dass sie nach dem gesamten Inhalt und nicht nach dessen Darstellung / Format sucht?
Die Schleife für die "manuelle" Suche kann ich mir zwar schreiben, aber fände es total unnötig/umständlich - immerhin gibt Excel eine Suchfunktion von Haus aus mit. Also bitte kein Antworten ala "Warum versuchst du es nicht mit einer eigenen Schleife" - bitte nicht falsch verstehen
Vielen Dank, t4z

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
hier ein Vorschlag mit Application.Match

Sub Match_Ueber_Zellbereich(Bereich As Range, SuchWert As Variant)
Dim rZellen As Range
Dim LCol As Long, tempCol As Long
Dim varRow

With Sheets(Bereich.Parent.Name)
    For LCol = 1 To Bereich.Columns.Count
       tempCol = 1
       Do While IsNumeric(varRow)
            varRow = Application.Match(SuchWert, Bereich.Columns(LCol).Range(.Cells(tempCol, 1), .Cells(Bereich.Rows.Count, 1)), 0)
               If IsNumeric(varRow) Then
                  If rZellen Is Nothing Then
                   Set rZellen = Bereich(varRow + tempCol - 1, LCol)
                   tempCol = tempCol + varRow
                  Else
                   Set rZellen = Union(rZellen, Bereich(varRow + tempCol - 1, LCol))
                   tempCol = tempCol + varRow
                  End If
               End If
               If Bereich.Rows.Count < 2 Then Exit Do
       Loop
    
       varRow = 0
    Next LCol
End With

If Not rZellen Is Nothing Then
 Set Bereich = rZellen
Else
 Set Bereich = Nothing
End If

End Sub

Sub BeispielVerwendung()
Dim ErgebisZellen As Range, vSuchwert

'Suchwert 
vSuchwert = Sheets("Tabelle1").Range("B1").Value2

'Suchbereich 
Set ErgebisZellen = Sheets("Tabelle1").Range("1:5")

Match_Ueber_Zellbereich ErgebisZellen, vSuchwert

If Not ErgebisZellen Is Nothing Then
 MsgBox "Suchwert '" & vSuchwert & "' wurde in den Zellen " & ErgebisZellen.Address(False, False) & " gefunden"
Else
 MsgBox "nix gefunden"
End If
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

ergebnis find-methode formatabhängig ?

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread