Ich habe folgendes Problem. In meinem excel file gibt es folgende spalten, B C D E F. Ich möchte jetzt das die einträge von B und D einer Zeile mit den aller Zeilen verglichen werden.
Stimmen beide gleichzeitig mit einer anderen Zeile überein, soll nachgeschaut werden, welche Zeile in Spalte C die höhere Nummer hat. Die Zeile mit der höchsten Nummer soll beibehalten werden, die mit den niedrigeren Nummern gelöscht werden.
Die inhalte in Spalte E und F der jeweiligen zeile sollen mit gelöscht werden wenn die Zeile nicht die höchste Nummer in Spalte C hat.
Dieses Makro habe ich schon hier im forum gefunden, dass hat mir sehr weiter geholfen. Doch da wird nur auf Spalte B, C und D geachtet und Spalte E und F werden nich berücksichtigt. Sub löschen() Dim tx As String, tx2 As String Dim i As Long, j As Long, k As Long, laR As Long Application.ScreenUpdating = False laR = Cells(Rows.Count, 2).End(xlUp).Row For i = 1 To laR If Cells(i, 3).Interior.ColorIndex 45 Then tx = Cells(i, 2).Value tx2 = Cells(i, 4).Value For j = i + 1 To laR + 1 If Cells(j, 2).Value = tx Then If Cells(j, 4).Value = tx2 Then If Cells(i, 3).Value Ausgangssituation ( Spalte B - C - D)
HUGO 24 OTTO
HUGO 30 KARL
HUGO 36 WILLI
HUGO 22 HANS
HUGO 28 PAUL
HUGO 34 SÖNKE
HUGO 40 OTTO
HUGO 21 KARL
HUGO 27 WILLI
HUGO 33 HANS
HUGO 39 PAUL
HUGO 25 WERNER
HUGO 31 OTTO
HUGO 37 KARL
HUGO 26 WILLI
HUGO 32 HANS
HUGO 38 PAUL
HUGO 23 EUGEN
HUGO 29 EUGEN
HUGO 35 KARL
Nach Durchlauf des Makros bleiben die nachstehenden Zeilen übrig.
HUGO 36 WILLI
HUGO 34 SÖNKE
HUGO 40 OTTO
HUGO 33 HANS
HUGO 39 PAUL
HUGO 25 WERNER
HUGO 37 KARL
HUGO 29 EUGEN
Das ist soweit gut. Meine Frage ist jetzt, wie erweitere ich das makro, das es auch spalte E und F mit löscht und verschiebt?
Ausgangssituation ( Spalte B - C - D - E - F)
HUGO 24 OTTO 01.12.10 Baum
HUGO 30 KARL 01.12.10 Haus
HUGO 36 WILLI 01.12.10 Hund
HUGO 22 HANS 01.12.10 Katze
HUGO 28 PAUL 01.12.10 Grün
HUGO 34 SÖNKE 01.12.10 Blau
HUGO 40 OTTO 01.12.10 Rot
HUGO 21 KARL 01.12.10 Schwarz
HUGO 27 WILLI 01.12.10 Gelb
HUGO 33 HANS 01.12.10 Tier
HUGO 39 PAUL 01.12.10 Zelle
HUGO 25 WERNER 01.12.10 Pc
HUGO 31 OTTO 01.12.10 Maus
HUGO 37 KARL 01.12.10 Baum
HUGO 26 WILLI 01.12.10 Wasser
HUGO 32 HANS 01.12.10 All
HUGO 38 PAUL 01.12.10 Danke
HUGO 23 EUGEN 01.12.10 Bitte
HUGO 29 EUGEN 01.12.10 Tür
HUGO 35 KARL 01.12.10 Garten
Nach dem durchlauf des makros sollte dann das hier übrig bleiben
HUGO 36 WILLI 01.12.10 Hund
HUGO 34 SÖNKE 01.12.10 Blau
HUGO 40 OTTO 01.12.10 Rot
HUGO 33 HANS 01.12.10 Tier
HUGO 39 PAUL 01.12.10 Zelle
HUGO 25 WERNER 01.12.10 Pc
HUGO 37 KARL 01.12.10 Baum
HUGO 29 EUGEN 01.12.10 Tür
Für Hilfe wäre ich sehr dankbar. VBA beherrsche ich leider so gut wie garnicht.
Mfg Paul.