Zeile in Archiv kopieren / Werte löschen
10.03.2021 06:39:17
André
ich raff´s nicht, habe mehrere Varianten versucht.
Kurz nochmal Zusammenfassung:
Bereich einer Zeile (Spalte 1 - 26) soll in´s Archiv in die erste leere Zeile übertragen werden (nur Werte),
anschließend die Werte in der Originalzeile löschen (Spalte4-9 & Spalte 11-14).
Hier der Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim elz As Integer 'erste leere Zeile im Archiv
If Target.Count > 1 Then Exit Sub
If Target.Row > 2 And Target.Column = 14 Then
With Worksheets("Archiv") ' Zieltabelle
elz = .Cells(Row.Count, 1).End(xlUp).Row + 1
Rows(Target.Row).Copy
Range(Cells(elz, 1), Cells(elz, 26)).PasteSpecial Paste:=xlPasteValues 'Werte im _
Bereich a-z übertragen
Application.CutCopyMode = False
Range(Cells(Target.Row, 4), Cells(Target.Row, 9)).ClearContents
Range(Cells(Target.Row, 11), Cells(Target.Row, 14)).ClearContents
End With
End If
End Sub
Wo ist da der Fehler?
Grüße André
PS:zum Verständniss hier nochmal der vorhergehende Post als Zusammenfassung:
Hallo zusammen,
ich hab jetzt grad bemerkt, daß mir mein Befehl .ClearContents in der Original-Liste die Formeln rauslöscht, diese sollen aber für spätere Einträge stehen bleiben (zur Erklärung: in der Tabelle werden Fahrzeuge [fester Fahrzeug-Bestand] aufgelistet, bei denen bestimmte Ereignisse eingetragen werden müssen. Sind diese Ereignisse abgearbeitet, werden diese in´s Archiv verschoben und damit ist die entsprechende Fahrzeugzeile wieder frei für das nächste "Ereignis").
Wie kann ich diese Funktion mit einbauen?
Und noch ´ne Frage:
Ist es möglich, daß nur die Zahlenwerte in´s Archiv kopiert werden (also nicht die Formeln, sondern nur die "Ergebnisse")?
Im Voraus schon mal Danke für Eure Antwort(en).
Grüße André
Hallo André,
Teil 2. in der Art
Range("A19").Copy
Range("A19").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Gruß Hajo"
