Code ergänzen



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Code ergänzen
von: olga
Geschrieben am: 15.06.2002 - 07:36:22

Hallo
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

nach oben   nach unten

Re: Code ergänzen
von: Bonte
Geschrieben am: 15.06.2002 - 07:44:01

Hallo Olga,

wie meinst du das mit dem Übereinstimmen, das sind doch unterschiedliche Werte bzw. Formate?

Übrigens kannst du deinen Code verkürzen:

Select case Target .Value
Case Is "d", "r", "s"
usw.
End select

Gruß
Bonte

nach oben   nach unten

Re: Code ergänzen
von: olga
Geschrieben am: 15.06.2002 - 08:56:48

Wenn Datum gleich ist und Lieferant gleich ist dann werden die Rechnungen zusammengefasst und per Scheck bezahlt, und da brauche ich eine Zwischensumme.
Vielen Dank
Olga

nach oben   nach unten

Re: Code ergänzen
von: Hans W. Hofmann
Geschrieben am: 15.06.2002 - 11:27:37

Ich hab hier den Verdacht, dass Du das Forum damit beschäftigst die Funktion des Spezialfilters nachzustellen


Gruß HW


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Schwierigkeiten mit Zahlenformaten"