Hallo zusammen,
ich bin nach der Suche eines Makros, welches entweder einen Text oder eine
Zahl sucht.
In der Sheet G1 steht der Wert, der gesucht werden soll.
Der Suchbereich von B2 bis F...ende
habe mal dies zusammengebastelt aber ohne Erfolg:
Dim Suchbegriff As String
Dim Weiter, rng As Range
Dim akz
ActiveSheet.Range("g1").Select
akz = ActiveCell
Suchbegriff = InputBox(Chr(13) & Chr(13) & "Gefunden ist : ", "suchen ", akz)
Set rng = Range("B2:F65000").Find(What:=Suchbegriff, LookIn:=xlValues, lookat:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
If Not rng Is Nothing Then rng.Activate
nochmal:
Weiter = MsgBox("Weitersuchen?", vbYesNo, "Text oder Ziffer eingeben ")
If Weiter = vbYes Then
Set rng = Cells.FindNext(After:=ActiveCell)
'If Not rng Is Nothing Then rng.Activate
'GoTo nochmal
If Not rng Is Nothing Then
rng.Activate
Else
GoTo fehler
End If
End If
Exit Sub
fehler:
Weiter = MsgBox("Suchbegriff nicht gefunden!", vbInformation, "Ergebnis:")
vielleicht hat jemand da einen durchblick ?!
mfg wolfgang