Sub Find_Einmal()
' erstellt von Hajo.Ziplies@web.de 02.06.03
Dim Found As Range
Dim LoLetzte As Long
Dim sSearch
sSearch =1707763600
With Worksheets("Tabelle1")
' xlByRows Suche zuerst in Zeilen
' xlByColumns Suche zuerst in Spalten
Set Found = .Range("A1:H40320" & LoLetzte).Find(sSearch, .Range("H40320"), , xlWhole, _
xlByRows, xlNext)
If Found Is Nothing Then Exit Sub 'falls nicht gefunden wird Sub verlassen
MsgBox Found.Address
End With
End Sub
Sub tt()
On Error GoTo Raus
MsgBox Cells.Find(InputBox("Bitte was eingeben..."), , xlValues).Address
Raus: Exit Sub
End Sub
Gruß Jens
Option Explicit
'Für echte Zahlen *************************************************************
Sub Fuer_Zahlen()
Dim SuchWert As Double
Dim rBereich As Range
Dim varRow
Set rBereich = Range("A:J") 'Suchbereich (ganze Spalten)
SuchWert = 170.77636 'Suchwert
For Each rBereich In rBereich.Columns
varRow = Application.Match(SuchWert, rBereich, 0)
If IsNumeric(varRow) Then Exit For
Next rBereich
If IsNumeric(varRow) Then
'Zelle gefunden
rBereich.Cells(varRow, 1).Select
Else
'Zelle nicht gefunden
MsgBox "Wert: " & SuchWert & " nicht gefunden!"
End If
End Sub
'Für Zahlen die als Text Formatiert sind **************************************
Sub Fuer_Text()
Dim SuchWert As String
Dim rBereich As Range
Dim varRow
Set rBereich = Range("A:J") 'Suchbereich (ganze Spalten)
'SuchWert = "170,7763600" 'Suchwert
''oder auch mit Platzhalter
'SuchWert = "170,77636*" 'Suchwert
For Each rBereich In rBereich.Columns
varRow = Application.Match(SuchWert, rBereich, 0)
If IsNumeric(varRow) Then Exit For
Next rBereich
If IsNumeric(varRow) Then
'Zelle gefunden
rBereich.Cells(varRow, 1).Select
Else
'Zelle nicht gefunden
MsgBox "Wert: " & SuchWert & " nicht gefunden!"
End If
End Sub
Gruß Tino