VBA-Beispiel 015
mail schreiben
mail schreiben

nach einem Wert in Spalte A suchen

Über eine InputBox nachfragen wonach gesucht werden soll / in Spalte A danach suchen / die Treffer farblich markieren und zum Schluß die Anzahl der Treffer anzeigen.
Sub suchen()
'in Spalte A nach einem Namen suchen
'die Zeilen farblich markieren und
'die Anzahl der Treffer anzeigen

Dim suche As String
Dim z As Integer

suche = InputBox("wonach wollen Sie suchen?")

'den Zähler für die Treffer zu Beginn auf Null stellen
z = 0
'hier ändern falls eine andere Spalte durchsucht werden soll
[A1].Activate

'wenn keine Eingabe in InpuBox erfolgte wird abgebrochen
If suche = "" Then Exit Sub

   'bis zur ersten leeren Zelle suchen
    Do Until ActiveCell = ""
   'eine Zeile nach unten gehen
    ActiveCell.Offset(1, 0).Activate
       'wenn die Zelle den gesuchten Wert enthält:
        If ActiveCell = suche Then
       'dann den Zähler um eins erhöhen
        z = z + 1
       'und die Zelle gelb markieren
        ActiveCell.Interior.ColorIndex = 36
        End If
    Loop

MsgBox "Anzahl Treffer: " & z
End Sub

Download:   vba015.zip