Finden und danach löschen
Ralph
Habe folgendes Problem:
Suche bestimmten Datensatz und kopiere diesen in ein neues Tabellenblatt.
Das klappt auch gut.
Jetzt möchte ich aber den eben gefundenen datensatz nach dem kopieren löschen.
Vielleicht kann mir jemand helfen.
hier mein VBA Code:
Private Sub CommandButton1_Click()
Dim mySearch, firstAddress
Dim strText As String
Dim lngLast As Long
Dim neublatt As String
neublatt = InputBox("Bitte geben Sie die Abrechnungsnummer ein.", "search&find")
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Abrechnung_" & neublatt
Sheets("Abreisen").Select
strText = "x"
Range("O1").Select
If LenB(strText) > 0 Then
With Sheets("Abreisen").Columns(ActiveCell.Column)
Set mySearch = .Find(strText, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False)
If Not mySearch Is Nothing Then
firstAddress = mySearch.Address
Do
With Sheets("Abrechnung_" & neublatt)
lngLast = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Rows(mySearch.Row).Copy .Cells(lngLast, 1)
End With
Set mySearch = .FindNext(mySearch)
Loop While mySearch.Address firstAddress
End If
End With
End If
End Sub
_____________________________________________
Danke
Ralph