Suchen in Excel Dateien


Um in einer Excel Datei einen Wert oder eine Zelle zu finden mittels VBA, eignet
sich der folgende Code:

Dim rFound As Range
Set rFound = Sheets(„Liste“).Columns(15).Find(„Suchbegriff“)
If rFound Is Nothing Then
’steht nicht in der Liste
else
’steht in der Liste
end if

oder um alle Suchergebnisse durchzuiterieren

Sub Find_Bold_Cat()
Dim lCount As Long
Dim rFoundCell As Range
Set rFoundCell = Range(„A1“)

For lCount = 1 To WorksheetFunction.CountIf(Columns(1), „Cat“)
Set rFoundCell = Columns(1).Find(What:=“Cat“, After:=rFoundCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
With rFoundCell ‚die folgenden 2 Zeilen fügen jedem Fund einen Kommentar hinzu
.ClearComments
.AddComment Text:=“Cat lives here“
End With
Next lCount
End Sub

Quelle: http://www.ozgrid.com/VBA/find-method.htm