Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Bei dreifachen Werten Zeilen löschen
zurück: Uhrzeiten subtrahieren !! weiter: Brauche eure Hilfe!!! **1. Buchstaben einer Zelle ändern**ae Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Kosich
Im Profil kannst Du frei den Rang ändern


Verfasst am:
20. Aug 2005, 21:13
Rufname:

Bei dreifachen Werten Zeilen löschen - Bei dreifachen Werten Zeilen löschen

Nach oben
       

Hallo!

Ich habe folgende Anforderung:
In einer Tabelle stehen in einer Spalte mal zweimal dieselben Werte und mal drei- oder mehrfach. Ich möchte sämtliche Zeilen löschen, wo die Werte mehr als zweimal vorkommen.

Danke

Jörg
Confused
DieterB
Office-Anwender mit Programmierkenntnissen


Verfasst am:
21. Aug 2005, 08:40
Rufname:


AW: Bei dreifachen Werten Zeilen löschen - AW: Bei dreifachen Werten Zeilen löschen

Nach oben
       

Hallo Jörg,

das wäre ein Problem für das Excel-VBA Forum.
Mal kurz aus einem anderen Forum kopiert:

Sonnenpeter hat folgendes geschrieben:

das nachfolgende Makro entfernt alle doppelten in Spalte A (count, 1) count, 2 wäre Spalte B etc.
Code:

Sub DoppelteWeg()
'für Spalte A, für Texte
Dim i As Integer, iRows As Integer
iRows = Cells(Cells.Rows.count, 1).End(xlUp).Row
For i = iRows To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(i, 1)) > 1 Then
Rows(i).Delete
End If
Next i
End Sub
Viel Erfolg
_________________
Gruß

DieterB

Auch der längste Weg
beginnt mit dem ersten Schritt
Kosich
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Aug 2005, 12:15
Rufname:

AW: Bei dreifachen Werten Zeilen löschen - AW: Bei dreifachen Werten Zeilen löschen

Nach oben
       

Danke! Werde ich testen.
Kosich
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Aug 2005, 17:18
Rufname:

AW: Bei dreifachen Werten Zeilen löschen - AW: Bei dreifachen Werten Zeilen löschen

Nach oben
       

Hallo!

Hat leider nicht ganz so geklappt, wie ich mir das gedacht habe. Verglichen werden sollen nur die Werte in der ersten Spalte jeder Reihe. Wenn dort dieselben Werte mehr als zweimal auftauchen, sollen diese Reihen gelöscht werden. Dieses Makro vergleicht - denke ich - nur ganze Reihen oder so. Ich bin leider in VBA der absolut-Ahnungslose.

Jörg
OJMD2
Gast


Verfasst am:
22. Aug 2005, 21:46
Rufname:


AW: Bei dreifachen Werten Zeilen löschen - AW: Bei dreifachen Werten Zeilen löschen

Nach oben
       

Hallo,

ich hab ein ähnliches Problem gehabt, ich arbeite mit großen Autoformat Tabellen. Und wenn ich eine Auswertung von bestimmten Bedingungen wollte bekam ich auch doppelte Einträge aufgelistet. Die erste Möglichkeit für mein Problem war eine Pivottable zu erstellen und doppelte aus blenden.
Aber ich hab eine möglichkeit gefunden dies auch ohne Pivottable zu schaffen.

Ich benutze den Befehl: =Zählenwenn("Spalte";X2) (zB.)
Jetzt kommt mein Trick: ich klammere nur den 2 unteren Wert der Spalte die ich überprüfen möchte. D.h. die Spalte die ich Überprüfen möchte wird mit jeder Zeile nach unten Kleiner.
Was ich jetzt nur noch machen muss ist per Autoformat mir die "1" anzeigen lassen. Und ich habe in meinen Fall keine Doppelten mehr.

Meine endgültige Fomel ist: =wenn(zählenwenn(A2:$A:$2#400)=1;"X";"")

In deinem Fall würde ich mir dann per Autoformat alle Leeren Zellen anzeigen lassen und sie manuell löschen.

Ich hoffe ich konnte Dir etwas helfen,

Mfg OJMD Smile
Adi
Gast


Verfasst am:
22. Aug 2005, 23:06
Rufname:

Bei dreifachen Werten Zeilen löschen - Bei dreifachen Werten Zeilen löschen

Nach oben
       

Hallo OJMD,
DieterB hat im prinzip das von dir gewünschte Makro ermittelt. Es löscht die ganze Zeile und wenn du in der Zeile
"If WorksheetFunction.CountIf(Columns(1), Cells(i, 1)) > 2 Then"
so abänderst, dann gibt es keine gleiche Werte die mehr als 2x vorkommen.

MfG
Adi
OJMD2
Gast


Verfasst am:
23. Aug 2005, 07:13
Rufname:

AW: Bei dreifachen Werten Zeilen löschen - AW: Bei dreifachen Werten Zeilen löschen

Nach oben
       

Ah,... vielen Dank, aber mit Makros zu arbeiten ist für mich zur Zeit zu aufwendig. (Kenntnisse)


Ich hab oben ein Fehler von mir gesehen, natürlich müsste man per Autoformat nicht "leere" anzeigenlassen sondern, "Benutzer definiert" und dann "enthält nicht" = 1

Mfg OJMD
OJMD2
Gast


Verfasst am:
23. Aug 2005, 09:17
Rufname:

AW: Bei dreifachen Werten Zeilen löschen - AW: Bei dreifachen Werten Zeilen löschen

Nach oben
       

Ich meine natürlich die ganze Zeit die AutoFilter Funktion. (au man)
Kosich
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Aug 2005, 18:51
Rufname:

AW: Bei dreifachen Werten Zeilen löschen - AW: Bei dreifachen Werten Zeilen löschen

Nach oben
       

Tja, läuft Leider nicht so ganz. Ich bekomme immer einen Laufzeitfehler '6': Überlauf.

Confused

Jörg
Adi
Gast


Verfasst am:
25. Aug 2005, 19:36
Rufname:

Bei dreifachen Werten Zeilen löschen - Bei dreifachen Werten Zeilen löschen

Nach oben
       

Hallo Jörg,
welchen weg hast du eingeschlagen?
Das Makro sollte eigentlich laufen, wenn du die Zeile richtig eingefügt hast (nachgeprüft).

Adi
Kosich
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Aug 2005, 16:27
Rufname:

AW: Bei dreifachen Werten Zeilen löschen - AW: Bei dreifachen Werten Zeilen löschen

Nach oben
       

Hallo Adi!

Hier mein Makro per copy & paste eingefügt...
Sub DoppelteWeg()
'für Spalte A, für Texte
Dim i As Integer, iRows As Integer
iRows = Cells(Cells.Rows.Count, 1).End(xlUp).Row
For i = iRows To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(i, 1)) > 2 Then
Rows(i).Delete
End If
Next i
End Sub

Gruß

Jörg
Gast



Verfasst am:
27. Aug 2005, 14:05
Rufname:

AW: Bei dreifachen Werten Zeilen löschen - AW: Bei dreifachen Werten Zeilen löschen

Nach oben
       

Hallo Jörg,

mmm... hast du noch den Filter aktiviert oder ist deine Tabelle so groß, dass du die "Dim-Anweisung" von Integer auf Long abändern musst?
Versuche doch mal diesen Weg

Adi
Kosich
Im Profil kannst Du frei den Rang ändern


Verfasst am:
31. Aug 2005, 19:16
Rufname:

AW: Bei dreifachen Werten Zeilen löschen - AW: Bei dreifachen Werten Zeilen löschen

Nach oben
       

Hallo Adi!

Entschuldige, dass ich mich erst jetzt melde.
Meine Tabelle umfasst ca. 50.000 Zeilen.
Ansonsten ist kein Filter gesetzt. Wie genau muss das Skript denn aussehen mit dem geänderten 'Integer'?

Jörg
Adi
Gast


Verfasst am:
31. Aug 2005, 23:07
Rufname:

Bei dreifachen Werten Zeilen löschen - Bei dreifachen Werten Zeilen löschen

Nach oben
       

Hallo Jörg,
ändere die Zeile
Dim i As Integer, iRows As Integer
in
Dim i As Long, iRows As Long
um.

MfG
Adi
Kosich
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Sep 2005, 14:23
Rufname:


AW: Bei dreifachen Werten Zeilen löschen - AW: Bei dreifachen Werten Zeilen löschen

Nach oben
       

Jo! Das war's.
Hat super geklappt.
Großes Dankeschön!

Razz

Jörg
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Muß Daten kopieren mit Bezug auf mehrer Zeilen 3 Anke 1487 07. Apr 2005, 10:54
Anke Muß Daten kopieren mit Bezug auf mehrer Zeilen
Keine neuen Beiträge Excel Formeln: Zeilen mit Eintrag zählen 2 Martymak 1192 06. Apr 2005, 11:09
Martymak Zeilen mit Eintrag zählen
Keine neuen Beiträge Excel Formeln: Die 6 höchsten Werte aus einer Zeile mit 12 Werten aufsummie 18 ThomasF 2087 04. Apr 2005, 10:31
Arnim Die 6 höchsten Werte aus einer Zeile mit 12 Werten aufsummie
Keine neuen Beiträge Excel Formeln: Leerezeichen automatisch nach Wort löschen 1 23Maximus 775 18. März 2005, 15:59
rainberg Leerezeichen automatisch nach Wort löschen
Keine neuen Beiträge Excel Formeln: Verknüpfung löschen 0 kyracom 873 23. Jan 2005, 18:04
kyracom Verknüpfung löschen
Keine neuen Beiträge Excel Formeln: Zeilen mit doppelten Werten löschen 6 Sebowsky 1208 06. Jan 2005, 22:26
Sebowsky Zeilen mit doppelten Werten löschen
Keine neuen Beiträge Excel Formeln: Doppelte Einträge aus Excel Tabellen löschen 3 Richkid 2831 09. Dez 2004, 15:45
Reinhard Doppelte Einträge aus Excel Tabellen löschen
Keine neuen Beiträge Excel Formeln: Zählen von Werten aus untersch. Spalten mit 2 Kriterien 2 Sigi 2526 20. Nov 2004, 03:18
Gast Zählen von Werten aus untersch. Spalten mit 2 Kriterien
Keine neuen Beiträge Excel Formeln: Blattschutz: bestimmte Zellen zum Löschen freigeben 6 Christiane 1203 21. Okt 2004, 07:17
lala Blattschutz: bestimmte Zellen zum Löschen freigeben
Keine neuen Beiträge Excel Formeln: Zählenwenn bei Werten, die zwischen zwei liegen 2 rubberduck_df 877 18. Okt 2004, 12:38
rubberduck_df Zählenwenn bei Werten, die zwischen zwei liegen
Keine neuen Beiträge Excel Formeln: Leerzeichen in Zelle löschen 3 pkegelking 1807 01. Okt 2004, 11:57
pkegelking Leerzeichen in Zelle löschen
Keine neuen Beiträge Excel Formeln: Formel für Spalten und Zeilen 17 Gast 2737 15. Sep 2004, 14:11
steve1da Formel für Spalten und Zeilen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project