Code ergänzen
15.06.2002 07:36:22
olga
Wer kann mir helfen?
Bei Eingabe von r,s,d soll Datensatz in Tabellenblatt "bez"veschoben werden und dabei gleichzeitig in der Spalte 2 aktuelles Datum erscheinen.
Dies funktioniert gut mit dem Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim z As Long
If Target.Column <> 4 Then Exit Sub
Select Case Target.Value
Case "d"
z = Worksheets("bez").Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(Target.Row).EntireRow.Copy Destination:=Worksheets("bez").Cells(z, 1)
Worksheets("bez").Cells(z, 2).Value = Date
Rows(Target.Row).Delete
Case "r"
z = Worksheets("bez").Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(Target.Row).EntireRow.Copy Destination:=Worksheets("bez").Cells(z, 1)
Worksheets("bez").Cells(z, 2).Value = Date
Rows(Target.Row).Delete
Case "s"
z = Worksheets("bez").Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(Target.Row).EntireRow.Copy Destination:=Worksheets("bez").Cells(z, 1)
Worksheets("bez").Cells(z, 2).Value = Date
Rows(Target.Row).Delete
End Select
End Sub
Nun möchte ich es ergänzt haben:
wenn im Tabellenblatt "bez" Spalte 2 (Datum),Spalte 4(r,s oder d) und Spalte 5 (Lieferant) übereinstimmen, Dann sollen die Zahlen in der Spalte 6 Zusammengezählt werden und Ergebnis in Spalte 7 erscheinenn
z.b.
Spalte 2, Spalte 4, Spalte 5, Spalte 6, Spalte 7
10.06.02 r Mayer 5
10.06.02 r Mayer 2 7
Vielen Dank
Olga