Zeilen Löschen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Zeilen Löschen
von: Albert
Geschrieben am: 11.07.2002 - 10:43:20

Hallo ,

wie kann ich doppelte Zeilen in Excel löschen.
Das Unterscheidungsmerkmal ist in 2 Spalten vorhanden.
folgende Kombinationen können vorkommen:

kein Datum und kein Preis ==> Zeile löschen
kein Datum und Preis vorhanden ==> Zeile löschen

Spalte 1= Artikelnummer


1 2 3 4 5 Aktion

A MKS 3 07.11.2001 1'728.04
B MKR 5 1'169.09 löschen
B MKR 5 07.11.2001 1'176.00
C MKR 1 0.00 löschen
C MKR 1 19.05.2000 2'125.00
D MKQ 1 1'186.90 löschen
D MKQ 1 09.07.2001 0.00
E MKQ 10 0.00 löschen
E MKQ 10 07.11.2001 1'123.00
F MK8 2 07.11.2001 676.00

Diese Liste ist nach Artikeln sortiert, d.h. die doppelten Sätze
kommen immer zusammen vor.

Vielleicht kennt da jemand eine Lösung.

Vielen Dank

nach oben   nach unten

Re: Zeilen Löschen
von: MRP
Geschrieben am: 11.07.2002 - 11:09:17

Hallo,
am einfachsten mit dem Spezialfilter, Häkchen setzen bei ohne Duplikate.
Ciao
Manuele Rocco Parrino

nach oben   nach unten

Re: Zeilen Löschen
von: L.Vira
Geschrieben am: 11.07.2002 - 11:23:35

du schreibst:
kein Datum und kein Preis ==> Zeile löschen
kein Datum und Preis vorhanden ==> Zeile löschen

das ist doch nur eine Bedingung, wenn kein datum, dann löschen, oder versteh ich da was falsch? Sehe ich das richtig, dass das datum in Spalte D steht?

nach oben   nach unten

Re: Zeilen Löschen
von: sam
Geschrieben am: 11.07.2002 - 11:36:05

hi,

ich schließe mich L.Vira an. Es reicht eigentlichh, wenn kein Datum ist.


Sub Löschen()
'kein Datum und kein Preis ==> Zeile löschen
'kein Datum und Preis vorhanden ==> Zeile löschen

'Daraus schließe ich: Wenn kein Datum dann Zeile löschen. (egal ob Preis)

Dim i  As Byte
Range("A1").Activate

Do Until ActiveCell = ""
  'Datum überprüfen
  If ActiveCell.Offset(0, 3) = "" Then
    'zeile löschen
    ActiveCell.EntireRow.Delete
  Else
    'eine Zeile weiter
    ActiveCell.Offset(1, 0).Activate
  End If
Loop

End Sub


nach oben   nach unten

Re: Zeilen Löschen
von: L.Vira
Geschrieben am: 11.07.2002 - 11:42:24

Wollte eigentlich erstmal ne Reaktion abwarten, aber na ja,
so gehts auch, vermutlich etwas schneller:

Option Explicit
Sub Löschen_wenn()
Dim z As Long
Dim lZ As Long
lZ = [d65536].End(xlUp).Row
For z = 1 To lZ
If Cells(z, 4) = "" Then
Cells(z, 4).EntireRow.ClearContents
End If
Next
Columns("A:IV").Sort Key1:=Range("D1"), Order1:=xlAscending, _
Header:=xlGuess, Orientation:=xlTopToBottom
End Sub

nach oben   nach unten

Re: Zeilen Löschen
von: Albert
Geschrieben am: 11.07.2002 - 11:56:42

Datum steht in Spalte D
Preis steht in Spalte E

kein Datum und !!! kein Preis ==> Zeile löschen


kein Datum und Preis vorhanden !!! ==> Zeile löschen

es gibt also 2 Kombinationen!


nach oben   nach unten

Re: Zeilen Löschen
von: Albert
Geschrieben am: 11.07.2002 - 12:02:09

Vielen Dank !

leider habe ich keine Ahnung was ich mit diesen Zeilen machen muss.
Ich bin da völliger Laie.

gruss albert


nach oben   nach unten

Re: Zeilen Löschen
von: L.Vira
Geschrieben am: 11.07.2002 - 14:23:44

Na, das überleg dir nochmal.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zeilen Löschen "