Spaltensuche mit Inputbox
24.05.2015 00:06:39
Gisela
ich habe jetzt mit folgendem Code es geschafft, in der N-Spalte jeden gesuchten Begriff zu finden, allerdings nur, wenn bsp. mein Suchbegriff 352 der gesamte Zelleninhalt ist. Ich möchte aber auch Zellen mit bsp. "212,354" oder "354 geprüft" finden. Wie geht das?
CODE:
Sub NRange()
strSuchWort = InputBox("Nach was soll gesucht werden", "Suchen")
i = Application.WorksheetFunction.CountIf(Range("N:N"), strSuchWort)
If i > 0 Then
i = Application.WorksheetFunction.Match(strSuchWort, Range("N:N"), 0)
Range("N" & i + 1).Select
Else
MsgBox "Nicht gefunden"
End If
End Sub
Gisela