Doppler Löschen?

Forumthread: Doppler Löschen?

Doppler Löschen?

Melanie

Hallo,
ich habe mal wieder ein mir nicht lösbares Problem mit Excel.
Ich möchte doppelte Nummer in Spalte B gelöscht haben, allerdings die ganzen Zeilen.
Alle Schelle z2

	A	B
2734	Kunststoff	1130010584
2735	>Kunststoff	1130010595
2736	Kunststoff	1130010597
2737	Kunststoff	1130010597
2738	Kunststoff	1130010602
2739	Kunststoff	1130010602
2740	Kunststoff	1130010603
2741	Kunststoff	1130010605
2742	Kunststoff	1130010605
2743	Kunststoff	1130010609
2744	Kunststoff	1130010609
2745	Kunststoff	1130010610
2746	Kunststoff	1130010610
2747	Kunststoff	1130010613
2748	Kunststoff	1130010613
2749	Kunststoff	1130010613
2750	Kunststoff	1130010614
2751	Kunststoff	1130010615
2752	Kunststoff	1130010615
2753	Kunststoff	1130010616
2754	Kunststoff	1130010618

Tabellendarstellung in Foren Version 5.5

Vielen Dank im Vorraus,
Grüß Melanie

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Doppler Löschen?

Oberschlumpf
AW: Doppler Löschen?

Tino
AW: Doppler Löschen?

Stefan741
AW: Doppler Löschen?

Melanie

AW: Doppler Löschen?

29.03.2010 11:40:04

Oberschlumpf

HI Mel
Hier, versuch mal das (ungetestet):

Sub sbDelRows()
Dim lloRow As Long
For lloRow = Cells(Rows.Count, 2).End(xlUp).Row To 2734 Step -1
If Cells(i, 2) = If Cells(i, 2 - 1) Then Rows(i).Delete
Next
End Sub

Mein Code löscht - beginnend in der letzten, benutzten Zeile in Spalte B - jede Zeile, wenn der Wert in Spalte B gleich dem Wert der darüberliegenden Zeile ist.
Mein Code hört auf in der Zeile 2734, da dein Bsp auch in derselben Zeile beginnt und du keine Angaben zu der ersten Zeile, in der deine Einträge beginnen, gemacht hast.
Wenn deine Tabelle oberhalb von 2734 noch mehr Einträge hat, dann musst du den Wert 2734 in der For-Zeile entsprechend verringern.
Hilfts?
Ciao
Thorsten

AW: Doppler Löschen?

29.03.2010 11:49:41

Tino

Hallo,
versuch mal so.

Sub Loeschen_Mit_Formel()
Dim oSH As Worksheet, iCalc As Integer

Set oSH = Sheets("Tabelle1") 'Tabelle anpassen 

With Application
 iCalc = .Calculation
 .Calculation = xlCalculationManual
 .ScreenUpdating = False
 
     With oSH.UsedRange
        With .Columns(.Columns.Count).Offset(0, 1)
            
            .Formula = "=IF(COUNTIF(R" & .Cells(1, 1).Row & "C2:RC2,RC2)=1,Row(),True)" 'entsprechende Formel 
            
            oSH.UsedRange.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlYes
            
            On Error Resume Next
            .SpecialCells(xlCellTypeFormulas, 4).EntireRow.Delete
            .EntireColumn.Delete
            On Error GoTo 0
        
        End With
     End With
 
 .ScreenUpdating = True
 .Calculation = iCalc
End With

End Sub

Gruß Tino

AW: Doppler Löschen?

29.03.2010 12:01:26

Stefan741

Hallo Melanie,
Muss es VBA sein?
Ohne VBA kannst du in Spalte C folgende Formel in die Zellen einfügen:
=wenn(Zählenwenn(B$2734:B2734;B2734)>1;1;"")
Dann nach 1 filtern (Autofilter), betreffende Zeilen markieren und löschen.
Gruß
Stefan

AW: Doppler Löschen?

29.03.2010 13:20:19

Melanie

Danke an alle..
aber ich habe mich für die einfache, Stefans Lösung entschieden, da meine VBA -Wissen bescheiden ist :-)
viele Grüße Melanie

Beliebteste Forumthreads (12 Monate)

Forumthread: Doppler Löschen?

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread