Kommentare duchsuchen
WolfgangN
mit Hilfe des Forums habe ich ein Makro, dass mir Kommentare in den Spalten C bis E nach einem Begriff durchsucht.
Dies klappt auch sehr gut. Allerdings werden die Kommentare durch For each immer von oben nach unten durchsucht. Auf Grund der immer größer werdenden Tabelle würde mir es besser gefallen, wenn die Suche von unten nach oben gehen würde. Leider kann ich die For each Schleife nicht rückwärts laufen lassen, um mein Ziel zu erreichen. Meine Versuche eine For next Schleife einzubauen haben leider nicht funktioniert.
Ich möchte also, dass bei der Auswahl Option2 beginnend vom untersten Kommentar die gefundenen Kommentare nach und nach markiert werden.
Zum besseren Verständnis habe ich eine Tabelle angefügt.
https://www.herber.de/bbs/user/73139.xls
Vielen Dank und Gruß
Wolfgang
Hier ein Teil des Makros
Private Sub CommandButton2_Click()
Dim varAbfrage As Variant
Dim comZelle As Comment
Dim Zaehler As Integer
'damit in Tabelle scrollen möglich ist, erst Userform geschlossen dann neu geöffnet,
UserForm1.Hide
UserForm1.Show vbModeless
varAbfrage = UCase(TextBox1.Value)
If varAbfrage "" Then
For Each comZelle In ActiveSheet.Comments
Select Case ActiveSheet.Range(comZelle.Parent.Cells.Address).Column
Case 3 To 5
If InStr(UCase(comZelle.Shape.DrawingObject.Text), varAbfrage) > 0 Then
Zaehler = Zaehler + 1
If OptionButton1 = True Then
ActiveSheet.Range(comZelle.Parent.Cells.Address).Comment.Visible = True
End If
If OptionButton2 = True Then
ActiveSheet.Range(comZelle.Parent.Cells.Address).Comment.Visible = True
ActiveSheet.Range(comZelle.Parent.Cells.Address).Select
Label1.Visible = True
Label1.Caption = "Es ist die " & Zaehler & ". Zelle markiert"
If MsgBox("Nächste Zelle markieren", vbOKCancel, "Hinweis") = vbCancel Then
CommandButton1_Click
Exit Sub
End If
End If
End If
End Select
Next comZelle
Label1.Visible = True
Label1.Caption = "Es wurden " & Zaehler & " Zellen gefunden"
End If
End Sub