Herbers Excel-Forum - das Archiv

Die ersten drei gleichen Werte in Spalte M löschen



Excel-Version: 2000
nach unten

Betrifft: Die ersten drei gleichen Werte in Spalte M löschen
von: Rolf


Geschrieben am: 09.05.2002 - 11:19:31

Hallo Excel Experten,
kann mir jemand beim Umbau dieses Makros helfen?
Oder kennt jemand eine einfachere Lösung für mein Problem.
Ich möchte immer die ersten drei gleichen Werte in Spalte M löschen (das heißt die komplette Zeile löschen) und alle anderen Werte in der Tabelle behalten.

- Es gibt verschieden viele gleiche Werte in Spalte M

Sub dieersten3jeak()
Dim x As Integer
Dim j As Integer ' Zähler für zu löschende Zeilen
Dim last_row As Integer ' letzte Zeile aus Tabelle 2
Dim temp_field As Variant ' temporäres Datenfeld

Application.ScreenUpdating = False

last_row = Application.WorksheetFunction.CountA(Sheets("Zeitnahme").Range("C:C")) + 1

With Sheets("Erste3jeAK")
.Activate
.Cells.ClearContents
Sheets("Zeitnahme").Range("A2:M" & last_row).Copy
.Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone

Range("A:M").Sort Key1:=Range("M1"), Order1:=xlAscending, Key2:=Range("D1") _
, Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom

temp_field = .Range("M1:M" & last_row - 1)
For x = last_row - 4 To 1 Step -1
If temp_field(x, 1) = temp_field(x + 3, 1) Then
temp_field(x + 3, 1) = ""
j = j + 1
End If
Next x
.Range("M1:M" & last_row - 1) = temp_field

Range("A:M").Sort Key1:=Range("M1"), Order1:=xlAscending, Key2:=Range("D1") _
, Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom

Range(Rows(last_row - j), Rows(last_row)).Delete

.Range("A1").Select
End With
Application.ScreenUpdating = True

End Sub


Vielen Dank für eure Hilfe!


Tschüß
Rolf

nach oben   nach unten

Re: Die ersten drei gleichen Werte in Spalte M löschen
von: Rolf
Geschrieben am: 09.05.2002 - 16:37:01

Hallo Excel Experten!
Mein Problem habe ich weiter oben noch einmal neu beschrieben.

Tschüß
Rolf


 nach oben

Excel-Beispiele zum Thema "Die ersten drei gleichen Werte in Spalte M löschen"
Die ersten 5 Zeichen nach einem "+" separieren Druckbereich bis zum ersten Nullwert festlegen
Ersten Absatz eines Word-Dokumentes in Tabelle einfügen Zeilen eines zweiten Blattes im ersten über Drehfeld anzeigen
Ermittlung des ersten Tages einer Kalenderwoche nach DIN 1355 Ersten mit einem neuen Buchstaben beginnenden Namen fett schreiben
Bestimmung der ersten und letzten Zelle eines Filters Zweite ListBox in Abhängigkeit der ersten füllen
Den ersten Wert einer gefilterten Spalte ermitteln Eine WENN-Formel nur bei der ersten Werteänderung berechnen