Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1064to1068
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Duplikate löschen mit Bedingung

VBA Duplikate löschen mit Bedingung
08.04.2009 10:40:08
Carmen
Hallo ihr lieben Spezi´s,
eigentlich würde ich es gerne allein können doch nach reiflicher überlegung komme ich nicht zu gewünschtem ergebnis.
Hab eine Tabelle in der in Spalte A Tarifbezeichnungen sind die doppelt sind.
In Spalte B steht seit wann die Tarife gültig sind.
Nun ist es so das dort z.B steht
Tarif1 gültig seit 01.01.08
Tarif1 gültigseit 01.01.09
Nun sollen die Duplikattarife gelöscht werden, die vor dem jüngsten gültigkeitsdatum sind, sprich hier der von 01.01.08.
Wie bekomme ich das hin.
Vielen Dank vorab
Grüße Carmen

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Duplikate löschen mit Bedingung
08.04.2009 10:45:13
Tino
Hallo,
steht in der Spalte B wirklich "gültig seit 01.01.08" oder ist dort nur das Datum drin?
Soll die komplette Zeile gelöscht werden oder nur der Inhalt der Zellen?
Gruß Tino
AW: VBA Duplikate löschen mit Bedingung
08.04.2009 10:58:49
Carmen
Hallo Tino,
da steht nur das datum drin und es soll die komplette Zeile gelöscht werden.
Kannst Du das?
Grüße Carmen
AW: VBA Duplikate löschen mit Bedingung
08.04.2009 11:24:36
Tino
Hallo,
ob ich es kann weis ich noch nicht, aber Du kannst es mal hiermit versuchen.
Es werden 3 Hilfsspalten am Ende der Tabelle verwendet, diese werden am Ende wieder gelöscht.
Nicht ausgiebig getestet.
Sub TestLoescheZeilen()
Dim LRow
Dim Bereich As Range
Dim myTab As Worksheet

Set myTab = Worksheets("Tabelle1") 'Name anpassen 

With Application
 .ScreenUpdating = False

    LRow = myTab.Range("A:B").Find("*", , xlValues, 2, 1, 2, False, False, False).Row
    Set Bereich = myTab.Range("A1:A" & LRow)
    Set Bereich = Bereich.Offset(0, Columns.Count - 2)
    
    Bereich.Offset(0, -1).FormulaR1C1 = "=Row()"
    Bereich.Offset(0, -1).Value = Bereich.Offset(0, -1).Value
    Bereich.FormulaR1C1 = "=IF(COUNTIF(R2C1:R" & LRow & "C1,RC1)>1,RC1&RC2,"""")"
    myTab.UsedRange.Sort Bereich(1), xlAscending, , , , , , xlNo
    Bereich.Offset(0, 1).FormulaR1C1 = "=IF(AND(RC1=R[1]C1,RC[-1]<=R[1]C[-1]),0,"""")"
    
    If .WorksheetFunction.CountIf(Bereich.Offset(0, 1), 0) > 0 Then
     Bereich.Offset(0, 1).SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
    End If
    
    myTab.UsedRange.Sort Bereich.Offset(0, -1)(1), xlAscending, , , , , , xlNo
    
    myTab.Columns(myTab.Columns.Count).Delete
    myTab.Columns(myTab.Columns.Count - 1).Delete
    myTab.Columns(myTab.Columns.Count - 2).Delete
    
 .ScreenUpdating = True
End With

End Sub


Gruß Tino

Anzeige
AW: VBA Duplikate löschen mit Bedingung
08.04.2009 12:48:36
Carmen
Lieber Tino,
es dauert, aber funktioniert wunderbar vielen Dank!!!!
Grüße Carmen
schneller, so gehts.
08.04.2009 13:56:08
Tino
Hallo,
habe mal etwas gebastelt, so müsste der Code schneller sein,
zumindest wird es kaum schneller gehen.
Sub TestLoescheZeilen()
Dim LRow
Dim Bereich As Range, Bereich1 As Range
Dim myTab As Worksheet
Dim iCalc As Integer

Set myTab = Worksheets("Tabelle1") 'Name anpassen 

With Application
 .ScreenUpdating = False
  iCalc = .Calculation
 .Calculation = xlCalculationManual
    
    LRow = myTab.Range("A:B").Find("*", , xlValues, 2, 1, 2, False, False, False).Row
    
    
    Set Bereich1 = myTab.Range("A1:A" & LRow).Offset(0, Columns.Count - 2)
    Bereich1.FormulaR1C1 = "=ROW()"

    Set Bereich = myTab.Range("A1:B" & LRow)
    myTab.UsedRange.Sort Bereich(1, 1), xlAscending, Bereich(1, 2), , xlAscending, , , xlYes
    
    
    Set Bereich = myTab.Range("A1:A" & LRow).Offset(0, Columns.Count - 1)
    Bereich.FormulaR1C1 = "=IF(AND(RC1=R[1]C1,RC2<=R[1]C2),True,ROW())"
    myTab.UsedRange.Sort Bereich1(1), xlAscending, , , , , , xlYes
    
    If .WorksheetFunction.CountIf(Bereich, True) > 0 Then
     Bereich.SpecialCells(xlCellTypeFormulas, 4).EntireRow.Delete
    End If
    
    myTab.UsedRange.Sort Bereich.Offset(0, -1)(1), xlAscending, , , , , , xlYes
    
    myTab.Columns(myTab.Columns.Count).Delete
    myTab.Columns(myTab.Columns.Count - 1).Delete
    
 .Calculation = iCalc
 .ScreenUpdating = True
End With

End Sub


Gruß Tino

Anzeige
noch ein Fehler gefunden.
08.04.2009 14:14:02
Tino
Hallo,
so gehts aber jetzt.
Sub TestLoescheZeilen()
Dim LRow
Dim Bereich As Range, Bereich1 As Range
Dim myTab As Worksheet
Dim iCalc As Integer

Set myTab = Worksheets("Tabelle1") 'Name anpassen 

With Application
 .ScreenUpdating = False
  iCalc = .Calculation
 .Calculation = xlCalculationManual
    
    LRow = myTab.Range("A:B").Find("*", , xlValues, 2, 1, 2, False, False, False).Row
    
    
    Set Bereich1 = myTab.Range("A1:A" & LRow).Offset(0, Columns.Count - 2)
    Bereich1.FormulaR1C1 = "=ROW()"

    Set Bereich = myTab.Range("A1:B" & LRow)
    myTab.UsedRange.Sort Bereich(1, 1), xlAscending, Bereich(1, 2), , xlAscending, , , xlYes
    
    
    Set Bereich = Bereich1.Offset(0, 1)
    Bereich.FormulaR1C1 = "=IF(AND(RC1=R[1]C1,RC2<=R[1]C2),True,ROW())"
    myTab.UsedRange.Sort Bereich(1), xlAscending, , , , , , xlYes
    
    If .WorksheetFunction.CountIf(Bereich, True) > 0 Then
     Bereich.SpecialCells(xlCellTypeFormulas, 4).EntireRow.Delete
    End If
    
    myTab.UsedRange.Sort Bereich1(1), xlAscending, , , , , , xlYes
    
    myTab.Columns(myTab.Columns.Count).Delete
    myTab.Columns(myTab.Columns.Count - 1).Delete
    
 .Calculation = iCalc
 .ScreenUpdating = True
End With

End Sub


Gruß Tino

Anzeige
AW: noch ein Fehler gefunden.
08.04.2009 18:12:16
Carmen
Tino das ist super vielen Dank!
noch eine verbesserte Version
08.04.2009 12:14:09
Tino
Hallo,
hier noch eine, kommt mit nur zwei Hilfsspalten aus.
Ich gehe davon aus, dass in der Zeile 1 eine Überschrift enthalten ist.
Sub TestLoescheZeilen()
Dim LRow
Dim Bereich As Range
Dim myTab As Worksheet

Set myTab = Worksheets("Tabelle1") 'Name anpassen 

With Application
 .ScreenUpdating = False

    LRow = myTab.Range("A:B").Find("*", , xlValues, 2, 1, 2, False, False, False).Row
    
    Set Bereich = myTab.Range("A1:A" & LRow).Offset(0, Columns.Count - 2)
    Bereich.FormulaR1C1 = "=Row()"
    Bereich.Value = Bereich.Value
    
    Set Bereich = myTab.Range("A1:B" & LRow)
    myTab.UsedRange.Sort Bereich(1, 1), xlAscending, Bereich(1, 2), , xlAscending, , , xlYes
    
    Set Bereich = myTab.Range("A1:A" & LRow)
    Set Bereich = Bereich.Offset(0, Columns.Count - 1)
    Bereich.FormulaR1C1 = "=IF(AND(RC1=R[1]C1,RC2<=R[1]C2),0,"""")"
    
    
    If .WorksheetFunction.CountIf(Bereich, 0) > 0 Then
     Bereich.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
    End If
    
    myTab.UsedRange.Sort Bereich.Offset(0, -1)(1), xlAscending, , , , , , xlYes
    
    myTab.Columns(myTab.Columns.Count).Delete
    myTab.Columns(myTab.Columns.Count - 1).Delete
    
 .ScreenUpdating = True
End With

End Sub


Gruß Tino

Anzeige

303 Forumthreads zu ähnlichen Themen

Unterschiedliche Werte mit Bedingung
kerberus

Hallo liebes Forum
Ich benötige mal wieder eure Hilfe. Das Ziel: eine Formel die mir die Anzahl unterschiedliche Eintragungen liefert. Folgender Code konnte ich bis jetzt erstellen:
Function ZUnterschiede(Kriterium As String, Kriteriumbereich As Range, Wertebereich As Range) _ As D...
22.08.2008 10:34:00
Thread-ID: 1003771
3 Beiträge
Anzeige
Liste auswerten mit Bedingungen
Bernd

Hallo zusammen,
ich würde gerne mal wieder eine lange Excel auswerten mit verschiedenen Bedingungen. Die relevanten Datensätze, auf die die Suchbedingung zutreffen, sollten in einem Extra-Registerblatt chronologisch aufgelistet werden. Wie kann ich das Problem vorzugsweise mit Excel-Boardmi...
19.11.2008 10:01:00
Thread-ID: 1025891
6 Beiträge
Doppelte Zahlwerte löschen
Gregor

Hallo zusammen
In Spalte E habe ich folgende möglichze Zahlen:
1114539.4
1114539
1114539.4-2
1114539.1
1114539.3
1114539.3-1
Nun möchte ich die Zeile mit der Zahl 1114539 löschen. Das heisst, bei mehrfach gleichen Zahlen vor dem Punkt soll immer die Zahl ohne Pun...
17.06.2009 10:22:49
Thread-ID: 1082148
3 Beiträge
Anzeige
Doppelte Datensätze mit Bedingungen
Elmar

Hallo zusammen,
vielleich kann mir jemenad helfen, denn im Archiv habe ich nichts passendes gefunden...
Ich brauche eine Formel / Makro, was die Spalte Y einer Tabelle auf doppelte Einträge untersucht (das sind dann meist 2, 3 oder 4 gleiche Einträge) und dann den Eintrag markiert, der...
25.08.2009 11:31:36
Thread-ID: 1098351
3 Beiträge
Anzahl der häufigsten Werte mit Bedingung
André

Moin zusammen,
ich habe in Spalte A einer Tabelle Artikelbereiche stehen, in Spalte B Artikelkategorien. Ich möchte nun die Anzahl der Zeilen wissen, die einen bestimmten Artikelbereich haben. Aber nur die Anzahl der Artikel, deren Artikelkategorie am häufigsten in diesem Artikelbereich vor...
02.09.2009 12:48:45
Thread-ID: 1100042
8 Beiträge
Doppelte Zeilen löschen (und zwar beide Duplikate)
Steffen

Hallo,
Habe eine Exceltabelle in der ich doppelte Zeilen löschen möchte und zwar so, dass wenn die Zeile 2 mal genau gleich vorkommt auch beide Zeilen gelöscht werden und nicht nur eine. Geht das?
Die Funktion Duplikate löschen hilft mir da leider nur wenig, da dort immer nur eines der...
03.05.2010 20:41:39
Thread-ID: 1155205
4 Beiträge
Spalte mit doppelten Werten ohne diese Doppelten
Nora

Hi,
Ich habe eine Spalte mit vielen Strings. Manche sind doppelt oder dreifach oder ....
Ich brauche in der Spalte daneben eine Liste von all diesen Werten, wobei jeder Wert nur einmal auftreten darf.Nora
07.05.2002 10:39:17
Thread-ID: 119107
3 Beiträge
Duplikate entfernen mittels Wildcard?
Thomas

Hallo ihr,
ich stehe bei einen Excel-Problem gerade auf den Schlauch, und komme einfach nicht weiter. Daher muss ich euch mal fragen ;).
Kurz: ich möchte gerne die Daten von Tabelle1 und Tabelle2 zusammenfügen, jedoch Duplikate entfernen.
Lösungansatz via VBA oder Formeln. Je nachde...
03.07.2011 09:47:17
Thread-ID: 1220690
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
5
2
16
2
7
3
2
2
4
7
2
6
4
1
4
5
1
3
11
4
1
2
2