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