AW: Zeilen makieren
13.11.2003 21:57:33
Josef Ehrensberger
Hallo Michael,
versuch mal dieses Makro.
Sub SuchenUndMarkieren()
'nicht zusammenhängende zellen nach einem Kriterium auswählen
'Bereich und Kriterium über InputBox eingeben
Dim rng As Range
Dim rngU As Range
Dim strRange As String
Dim strSearch As String
'Bereich wählen
strRange = InputBox("Bitte geben Sie denn Bereich an," & vbLf & _
"in dem die Suche erfolgen Soll:" & vbLf & "(z.B.: A1:A100 )" _
, "Bereich", "A1:A100")
If strRange = "" Then Exit Sub
'Suchbegriff wählen
strSearch = InputBox("Bitte geben Sie den Suchbegriff ein," & vbLf & _
"nach dem im Bereich """ & strRange & """ gesucht" & vbLf & _
"werden soll:", "Suchbegriff", "")
If strSearch = "" Then Exit Sub
For Each rng In Range(strRange)
If rng = strSearch And rngU Is Nothing Then
Set rngU = rng.EntireRow 'ganze Zeile Markieren
'Set rngU = rng 'einzelne Zelle Markieren
ElseIf rng = strSearch Then
Set rngU = Application.Union(rngU, rng.EntireRow) 'Zeile
'Set rngU = Application.Union(rngU, rng) 'Zelle
End If
Next
rngU.Select
End Sub
Gruß Sepp