For each im Bereich
WolfgangN
nachdem mir gerade Rudi geholfen hat, habe ich noch eine Frage. Im folgendem Makro wird in Zellen mit Kommentaren ein in einer Textbox eingegebener Begriff gesucht. Die gefundenen Zellen erhalten einen Rahmen. Dies klappt auch.
Ich möchte jetzt das nicht in allen Zellen mit Kommentaren gesucht wird, sondern nur in den Spalten C,D,E.
Wie kann ich den Bereich nur für diese 3 Spalten eingrenzen.
Vielen Dank und Gruß
Wolfgang
Private Sub CommandButton4_Click()
Dim varAbfrage As Variant
Dim comZelle As Comment
Dim lngCounter As Long
varAbfrage = TextBox2.Value
If varAbfrage "" Then
For Each comZelle In ActiveSheet.Comments
If InStr(comZelle.Shape.DrawingObject.Text, varAbfrage) > 0 Then
lngCounter = lngCounter + 1
ActiveSheet.Range(comZelle.Parent.Cells.Address).Borders _
(xlEdgeLeft).LineStyle = xlContinuous
End If
Next comZelle
If lngCounter = 0 Then
MsgBox "Kein Begriff"
End If
End If
End Sub
Anzeige