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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen