Kopie in selbe Zeile
27.08.2007 11:49:45
chris58
Ich habe hier von einem freundlichen User einen code erhalten, der auch funtioniert. Nur leider schreibt er in die Datei "Erledigt" alles in die gleiche Zeile, also er überschreibt mir die vorhergehende Kopie, die ja erhalten bleiben soll. Nun habe ich zwar über diesen code "gebrütet" leider jedoch ohne Erfolg, was ich ändern muß, damit er immer in die nächste freie Zeile kopiert. Falls mir wer helfen mag, würde ich freuen.
Danke chris
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRow As Long
Dim vBValue As Variant
Dim vCValue As Variant
Dim rDokInk As Range
If Not ((Target.Column = 13 _
Or Target.Column = 14) And _
Target.Row > 1) Then
If Intersect(Range("A3:G4000"), Target) Is Nothing Or _
Target.Row ""
If Sheets("Dok.Ink.").Cells(lRow, 2).Value = vBValue And _
Sheets("Dok.Ink.").Cells(lRow, 3).Value = vCValue Then
Sheets("Dok.Ink.").Cells(lRow, 1).EntireRow.Delete (xlUp)
Exit Do
End If
lRow = lRow + 1
Loop
Target.EntireRow.Delete (xlUp)
MsgBox "Datensatz wurde ins Blatt [Erledigt] archiviert" & vbCrLf & _
"und im Tabellenblatt [Dok.Ink.] gelöscht!", vbOKOnly + vbInformation, " _
Archiv"
End If
leave_sub:
Application.EnableEvents = True
End Sub
Anzeige