Suche mit VBA
silke
C11:C1130 wird nach dem Suchbegriff in G9 durchsucht.
Wenn der Suchbegriff nicht gefunden wird soll eine
Fehlermeldung "Suchbegriff nicht gefunden" ausgegeben werden.
Leider habe ich keine Ahnung wo ich das einfügen muß.
Ist der Code überhaupt Ok oder gibt es da etwas zu verbessern?
Bin für eure Hilfe sehr dankbar
schöne Grüße
Silke
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim sFirst As String
Dim iCnt As Integer
Dim arrRows() As Integer
If Target.Address = "$G$9" Then
Application.ScreenUpdating = False
Range("C11:C1130").Rows.Hidden = False
If [G9] = "" Then Application.ScreenUpdating = True: Exit Sub
Set rng = Range("C11:C1130").Find(What:=[G9], LookIn:=xlValues, LookAt:=xlPart)
If Not rng Is Nothing Then
sFirst = rng.Address
ReDim Preserve arrRows(iCnt)
arrRows(iCnt) = rng.Row
iCnt = iCnt + 1
Do
Set rng = Range("C11:C1130").FindNext(after:=rng)
If rng.Address = sFirst Then Exit Do
ReDim Preserve arrRows(iCnt)
arrRows(iCnt) = rng.Row
iCnt = iCnt + 1
Loop
Range("C11:C1130").Rows.Hidden = True
For iCnt = 0 To UBound(arrRows)
Rows(arrRows(iCnt)).Hidden = False
Next
End If
End If