VBA-Code ändern
15.09.2004 08:44:44
Peter
in einer Userform habe ich folgenden Code.
Private Sub CommandButton2_Click()
Dim i As Long, laR As Long
' Application.ScreenUpdating = False
laR = Cells(Rows.Count, 11).End(xlUp).Row
For i = laR To 2 Step -1
If Left(Cells(i, 11).Value, 2) = "VV" Then
Cells(i, 11).EntireRow.Delete
End If
Next i
' Application.ScreenUpdating = True
End Sub
Der löscht mir alle Zeilen wenn in Spalte K der Eintrag mit VV beginnt.
Kann mir jemand helfen den Code so umzustellen, dass die gefundenen Zeilen nicht gelöscht sondern in einer Textdatei gespeichert werden.
Danke schon mal
Gruss Peter
Anzeige