| VBA-Beispiel 015 | |
|
|
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 |
|
relevante Links:
|
|
| |