Suchmakro abändern
06.02.2005 10:30:38
Heinrich
Folgendes Makro sucht in allen Tabellenblättern den eingegebenen Suchbegriff
in Spalte 4 ( Es wird nur der letzte Eintrag berücksichtigt ) und zeigt mir dann das Ergebnis an.
Sub Suchen()
Dim wks As Worksheet
Dim sFind As String
Dim laR As Long
Dim ant As Byte
sFind = InputBox("SuchenText ")
If sFind = "" Then Exit Sub
For Each wks In Worksheets
With wks
laR = .Cells(117, 4).End(xlUp).Row
If laR >= 6 And laR If .Cells(laR, 4).Text = sFind Then
Application.Goto .Cells(laR, 4), True
ant = MsgBox("gefunden" & .Name & " " & _
vbCr & vbCr & "Soll weiter gesucht werden ?", vbYesNo + vbQuestion)
If ant 6 Then Sheets("Plan").Select
Range("F2:O3").Select
If ant 6 Then Exit Sub
End If
End If
End With
Next wks
MsgBox "Es wurde keine weiterer Eintrag gefunden !"
Sheets("Plan").Select
Range("F2:O3").Select
Mein Problem
Ich möchte gerne das auch Einträge gefunden werden die nicht 100% mit der Sucheingabe
übereinstimmen. Z.B Groß und Kleinschreibung oder bei Eingabe
Klaus soll auch der Eintrag Klaus Dieter angezeigt werden.
Hoffe das ich mich einigermaßen verständlich ausgedrückt habe und
mir jemand helfen kann.
Gruß
Heinrich