Kopierte Zeile mit Datum versehen
21.06.2020 16:48:54
Mark
ich versuche gerade, mit meinen bescheidenen Kenntnissen, eine kleine Datenbank/Bestellliste für Medikamentenbestellungen zu bauen. Will einfach etwas den Papierwust verkleinern, den wir bis jetzt haben.
Soweit funktioniert alles. Über ein Userform wird die jeweilige Bestellung eingetragen. Solbald die Bestellung als geliefert markiert wird, wird die Zeile in die Tabelle Archiv kopiert und in der Bestellliste glöscht.
Im Archiv soll nun noch das Datum hinzugefügt werden an dem die Bestellung als geliefert _ markiert wurde. Hier hapert es dann. Hatte verschiedene Lösungaansätze, die aber alle leider nicht zum Erfolg geführt haben.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
Application.DisplayAlerts = False
If Target.Column 6 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If UCase(Target.Value) = "X" Then
With Worksheets("Archiv")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(Target.Row).Copy .Rows(iRow)
Rows(Target.Row).Delete
End With
End If
Application.CutCopyMode = False
Application.DisplayAlerts = True
End Sub
Sicherlich lässt sich der Code relativ simpel erweitern, aber stosse sehr schnell an meine _ Grenzen. Quasi blutiger Anfänger. Ziel wäre in der Tabelle "Archiv" die Spalte G natürlich immer in der dazugehörigen Zeile.
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(last, 7).Value = Date
ThisWorkbook.Sheets("Archiv").Range("G2").Value = Date
Das waren meine Ansätze
Hoffe ihr könnt mir helfen.