Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Zeilen mit doppelten Werten löschen
zurück: Wert abgleichen und dann aus anderen Datenblatt rauziehen? weiter: Excel Notentabelle Problem mit WENN wenn eine Note fehlt !!! 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
Sebowsky
Einsteiger


Verfasst am:
04. Jan 2005, 11:35
Rufname:
Wohnort: Hamburg

Zeilen mit doppelten Werten löschen - Zeilen mit doppelten Werten löschen

Nach oben
       

Hallo,

suchen Makro zum löschen von Zeilen mit doppelten Werten in einer Spalte.

_____vorher_____nachher
_____A __________A
1___21179_____21179
2___21179____34946
3___34946_____35000
4___34946____35117
5___35000
6___35117

bei allgemeiner Form brauche ich Kommentierungen, weil ich in VBA nicht besonders bewandert bin.
Die anderen Beiträge haben mir noch nicht weiterhelfen können.
Vielen Dank
Sebastian
Gast1
Gast


Verfasst am:
06. Jan 2005, 01:00
Rufname:


AW: Zeilen mit doppelten Werten löschen - AW: Zeilen mit doppelten Werten löschen

Nach oben
       

hallo sebastian,

schau dir mal das an:

Option Explicit

Public Sub DuplikateFiltern()
Dim xlWB As Workbook
Dim xlWS As Worksheet
Dim xlWSNew As Worksheet
Dim xlRange As Range

Dim intColsCnt As Integer
Dim lngRowsCnt As Long

Application.ScreenUpdating = True

Set xlWB = ActiveWorkbook
Set xlWS = xlWB.ActiveSheet

Set xlWSNew = xlWB.Worksheets.Add

With xlWS
intColsCnt = .UsedRange.Columns.Count
lngRowsCnt = .UsedRange.Rows.Count

Set xlRange = _
.Range(.Cells(1, 1), .Cells(lngRowsCnt, intColsCnt))
End With
xlRange.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=xlWS.Range("E1"), Unique:=True

Application.ScreenUpdating = True

MsgBox "Die gefilterten Datensätze wurden kopiert!", _
vbOKOnly + vbInformation, Title:="Datensätze filtern"

Set xlRange = Nothing
Set xlWSNew = Nothing
Set xlWS = Nothing
End Sub

Ab Zeile 20 mußt du E1 anpassen, ist deine erste Zelle ab dem geschrieben wird ,

Gruß von A.Knecht
Gast



Verfasst am:
06. Jan 2005, 01:02
Rufname:

AW: Zeilen mit doppelten Werten löschen - AW: Zeilen mit doppelten Werten löschen

Nach oben
       

Nachtrag der Quelle

Hab ich auf folgender Seite gefunden

http://www.vb-fun.de/vb/index.htm
dank an glaub ich > Angie

nochmal Gruß
Sebowsky
Einsteiger


Verfasst am:
06. Jan 2005, 08:48
Rufname:
Wohnort: Hamburg

Makro macht etwas anderes - Makro macht etwas anderes

Nach oben
       

Hallo A. Knecht,

danke für den Tip.
Leider macht das Makro etwas anderes als ich haben möchte.
- Es erstellt mir ein neues WorkSheet:
Code:
 Set xlWSNew = xlWB.Worksheets.Add
[/quote]
- Es löscht mir die Spalte, für die ich den Eintrag angepasst habe:

Code:
xlRange.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=xlWS.Range("A1"), Unique:=True
[/quote]
Hier ist es die Spalte A.


Gruß Sebastian
Gast



Verfasst am:
06. Jan 2005, 12:47
Rufname:

AW: Zeilen mit doppelten Werten löschen - AW: Zeilen mit doppelten Werten löschen

Nach oben
       

hei Sebastian
lösch einfach die Zeile

Set xlWSNew = xlWB.Worksheets.Add

das andere ist auch möglich > Später

A.Knecht
gast1
Gast


Verfasst am:
06. Jan 2005, 14:05
Rufname:

AW: Zeilen mit doppelten Werten löschen - AW: Zeilen mit doppelten Werten löschen

Nach oben
       

hei,
schau dir mal die Spezialfilterfunktion in> Daten >Filter >spezialfilter an

oder so

http://www.pctipp.ch/helpdesk/kummerkasten/archiv/office/21717.asp

gruß A.Knecht
Sebowsky
Einsteiger


Verfasst am:
06. Jan 2005, 22:26
Rufname:
Wohnort: Hamburg


Geilomat! - Geilomat!

Nach oben
       

Hallo A.Knecht,

das war es!
Vielen, vielen Dank für den guten Tip mit dem Spezialfilter!

Code:
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Columns("A:B").Select
    Range("A1:B224").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Columns("A:B"), CopyToRange:=Columns("E:F"), Unique:=True
    Columns("E:F").Select
    Selection.Cut
    Columns("A:B").Select
    ActiveSheet.Paste
Da hab ich die Spalten einfach noch einmal umsortiert, und dann war es das.
Das tolle an Excel ist, dass man die Codes einfach mit dem Recorder aufnehmen kann. Da braucht man keine Ahnung von VBA haben im Gegensatz zu Access.

Danke noch einmal
Gruß Sebstian
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 1488 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 1193 06. Apr 2005, 11:09
Martymak Zeilen mit Eintrag zählen
Keine neuen Beiträge Excel Formeln: Wie kann man Nachkommastellen löschen ? 2 Benjamin22 8967 22. März 2005, 15:24
Benjamin22 Wie kann man Nachkommastellen löschen ?
Keine neuen Beiträge Excel Formeln: Vergleichen von Spalten UND Zeilen. 3 mojoe321 1837 15. März 2005, 17:14
Hübi Vergleichen von Spalten UND Zeilen.
Keine neuen Beiträge Excel Formeln: Max. Anzahl von benutzten Spalten und Zeilen ermitteln 2 Fire 2462 01. Feb 2005, 11:14
Fire Max. Anzahl von benutzten Spalten und Zeilen ermitteln
Keine neuen Beiträge Excel Formeln: Verknüpfung zu anderer xls-Datei löschen 3 cerkens78 1746 19. Jan 2005, 12:46
Kuwe Verknüpfung zu anderer xls-Datei löschen
Keine neuen Beiträge Excel Formeln: Zeilen per Formel ein- und ausblenden 2 Gotha 1548 30. Dez 2004, 10:28
Gotha Zeilen per Formel ein- und ausblenden
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: In Exel gleiche Zeilen finden und andere Werte importieren 0 Timo 3157 13. Okt 2004, 14:46
Timo In Exel gleiche Zeilen finden und andere Werte importieren
Keine neuen Beiträge Excel Formeln: Kann ich Zeilen "einfrieren"? 1 Chrisi 1115 08. Sep 2004, 13:01
fl618 Kann ich Zeilen "einfrieren"?
Keine neuen Beiträge Excel Formeln: Frage... (suchen und löschen) 2 fs-racing 695 01. Sep 2004, 12:13
fs-racing Frage...  (suchen und löschen)
Keine neuen Beiträge Excel Formeln: Löschen des Zellinhaltes/von anderer Zelle 2 Gast 1962 07. Aug 2004, 23:32
Gast Löschen des Zellinhaltes/von anderer Zelle
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum