Wer Kann Code ergänzen?
08.06.2002 12:16:03
olga
Wer kann mir helfen?
Problem:
Datenblatt Eingabe: Bei Eingabe von s soll der Datensatz in Tabellenblatt Sparkasse verschoben werden. Bei Einbabe von r soll der Datensatz in "Raiffeisenbank" verschoben werden.
Das funktioniert gut mit dem Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim z As Long
If Target.Column = 6 Then
If Target.Value = "r" Then
z = Worksheets("Raiffeisen").Cells(65536, 1).End(xlUp).Row + 1
Rows(Target.Row).EntireRow.Copy Destination:=Worksheets("Raiffeisen").Cells(z, 1)
Rows(Target.Row).Delete
Else
If Target.Value = "s" Then
z = Worksheets("Sparkasse").Cells(65536, 1).End(xlUp).Row + 1
Rows(Target.Row).EntireRow.Copy Destination:=Worksheets("Sparkasse").Cells(z, 1)
Rows(Target.Row).Delete
End If
End If
End If
End Sub
Jetzt soll 3 Bankt eingefügt werden. dh.
Bei Eingabe von d soll der Datensatz in Tabellenblatt "Deutsche" verschoben werden, gleichzeitig soll dort in der Spalte 7 aktuelles Datum erscheinen.
Vielen Dank im Voraus
Olga
Anzeige