befehle integrieren
09.07.2004 15:28:12
Mark
S = "*" & Replace(S, " ", "") & "*"
2) Groß-Kleinschreibung: Wandle einfach alles in Großbuchstaben beim suchen um
If UCase(Z.Text) Like UCase(S) Then
Hallo zusammen,
die oben genannten Befehle sollte ich in mein Makro integrieren, damit die Suchmachine die Leerzeichen ignoriert und die Klein-Großschreibung.
Wie kann ich mein Makro ändern? Wo genau müssen die zwei Befehle hin?
Ich hoffe, jemand kann mir helfen. Hier die Suchmaschine.
Danke
Mark
Sub SucheZellen()
Dim S As String
Dim Z As Range
Dim WS As Worksheet
S = InputBox("Bitte geben Sie den Suchbegriff ein")
If S = "" Then Exit Sub
S = "*" & S & "*" 'es werden auch Zellen angezeigt, die noch mehr als den Suchstring enthalten
For Each WS In ActiveWorkbook.Worksheets
For Each Z In WS.UsedRange.Cells
If Z.Text Like S Then
WS.Activate
Z.Select
If MsgBox("Weitersuchen nach """ & S & """?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
End If
Next Z
Next WS
End Sub