Suchen und alle Zeilen markien
26.10.2017 11:32:50
Werner
Ich verzweifele an meinem Problem.
Mir dem unten stehenden Code suche ich nach einer Stadt.
Alle Fundstellen (ganze Zeilen) sollen markiert werden.
Aber ab einer gewissen Anzahl an Fundstellen (ich weiß nicht ab wie vielen) meckert das Makro an der Stelle "Range(sR).Select"
Kann mir jemand sagen wo mein Fehler liegt?
Gruß und Danke!
Werner
Sub Suche_Ort()
Dim c As Range
Dim strBegriff As String, sR As String
Dim laR As Long
Dim t As Boolean
strBegriff = ActiveCell.Value
If strBegriff = "" Then Exit Sub
laR = Cells(Rows.Count, 1).End(xlUp).Row
t = False
For Each c In Range("A5:A" & laR)
If c.Value = strBegriff Then
t = True
sR = sR & c.Row & ":" & c.Row & ","
End If
Next c
If t = True Then
sR = Left(sR, Len(sR) - 1)
Range(sR).Select
Else
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
End If
Dim SelectedRows As Range
Set SelectedRows = Selection.Rows
Set SelectedRows = SelectedRows.Worksheet.Range( _
SelectedRows.Worksheet.Cells.Item(SelectedRows.Cells(1).Row, 1), _
SelectedRows.Worksheet.Cells.Item(SelectedRows.Cells(SelectedRows. _
_
Cells.Count).Row, 10))
Call SelectedRows.Sort(SelectedRows.Columns.Item(3), xlAscending)
End Sub