Zähler in For each Schleife
WolfgangN
mit dem nachfolgenden 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 aber noch eine Meldung erhalten, wenn keine Kommentarzelle diesen Begriff hat, ideal wäre es noch wenn eine Meldung kommt, wieviel Zellen mit dem Begriff gefunden wurden.
Leider führten meine Versuche, siehe kommentierte Zeilen im Makro, nicht zum Erfolg.
Vielen Dank und Gruß
Wolfgang
Private Sub CommandButton4_Click()
Dim varAbfrage As Variant
Dim comZelle As Comment
varAbfrage = TextBox2.Value
If varAbfrage "" Then
For Each comZelle In ActiveSheet.Comments
If InStr(comZelle.Shape.DrawingObject.Text, varAbfrage) > 0 Then
ActiveSheet.Range(comZelle.Parent.Cells.Address).Borders _
(xlEdgeLeft).LineStyle = xlContinuous
End If
Next comZelle
' If Application.WorksheetFunction.CountA _
' (ActiveSheet.Range(comZelle.Parent.Cells.Address).Borders _
' (xlEdgeLeft).LineStyle = xlContinuous) = 0 Then
' MsgBox "Kein Begriff"
' End If
End If
End Sub