ich brauch mal Hilfe, ich verwende ein Makro das ich aus dem Forum habe, funktioniert wunderbar.
Das Makro sucht in einer Tabelle("Anlagen") nach einer Zeichenfolge "ASZ", markiert die betreffenden Zellen und kopiert diese dann in eine andere Tab("ASZ"). In der Ursprungstab werden die Zeilen dann gelöscht.
Wenn das Makro nicht die entsprechende Zeichenfolge findet, markiert es trotzdem was, und dann gibt es Probleme. Wie kann ich das abfangen?
Gruß Regina
Hier den Teil des Makros
Dim wks As Worksheet
Dim rngFind As Range
Dim rngRows As Range
Dim lngRow As Long
Dim strFind As String
Dim strSearch As String
strSearch = "ASZ"
Set rngFind = Cells.Find(strSearch)
If rngRows Is Nothing Then
Set rngRows = rngFind
End If
If Not rngFind Is Nothing Then
strFind = rngFind.Address
Do
Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
Set rngFind = Cells.FindNext(after:=rngFind)
If rngFind.Address = strFind Then Exit Do
Loop
End If
With ActiveSheet
End With
On Error Resume Next
rngRows.Select
Selection.Copy
Sheets("ASZ").Range("a1").PasteSpecial Paste:=xlAll
Selection.Delete