Excel-Liste verkürzen (von 40tsd auf 20 Zeilen)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Bernd,
probier mal.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub Liste()
Dim objSh As Worksheet
Dim vTmp As Variant, rng As Range
Dim lngR As Long

On Error GoTo ErrExit
GMS

With Sheets("Tabelle1") 'Quelltabelle - anpassen
    vTmp = .Range("A1:H" & .Cells(Rows.Count, 1).End(xlUp).Row)

    Set rng = .Rows(1)

    For lngR = 2 To UBound(vTmp, 1)
        If vTmp(lngR, 1) <> vTmp(lngR - 1, 1) Then
            Set rng = Union(rng, .Rows(lngR))
        End If
    Next
End With

On Error Resume Next
Set objSh = Sheets("Liste")
If objSh Is Nothing Then
    Set objSh = Worksheets.Add
    objSh.Name = "Liste"
    Err.Clear
End If
On Error GoTo ErrExit

objSh.Cells.Clear

rng.Copy objSh.Range("A1")

ErrExit:
GMS True
Set objSh = Nothing
Set rng = Nothing
End Sub

Sub GMS(Optional ByVal Modus As Boolean = False)

With Application
    .ScreenUpdating = Modus
    .EnableEvents = Modus
    .DisplayAlerts = Modus
    .EnableCancelKey = IIf(Modus, 1, 0)
    .Calculation = IIf(Modus, -4105, -4135)
    .Cursor = IIf(Modus, -4143, 2)
End With

End Sub

Gruß Sepp

Sub doppelte_loeschen2() Dim iCol As Integer, i As Long Application.ScreenUpdating = False iCol = Selection.Column For i = Cells(65536, iCol).End(xlUp).Row To 1 Step -1 If WorksheetFunction.CountIf(Columns(iCol), Cells(i, iCol)) > 1 Then Cells(i, iCol).EntireRow.Delete End If Next i Application.ScreenUpdating = True End Sub

Sub Duplikate_löschen() Dim Ende As Long Ende = Cells(65536, 1).End(xlUp).Row Columns(1).Insert With Range("A2:A" & Ende) .FormulaR1C1 = "=if(r[-1]c[1]=rc[1],true,row())" .Formula = .Value .CurrentRegion.Sort Key1:=Cells(2, 1), order1:=xlAscending, header:=xlYes .SpecialCells(xlCellTypeConstants, 4).EntireRow.Clear End With Columns(1).Delete End Sub

Hi
im prinzip ist mit dieser Methode alles Denkbar, was mit einer Formel zu berechnen ist, die in die Zeilen, die gelöscht werden sollen, einen Wahrheitswert reinschreibt und in die Zeilen, die stehenbleiben sollen, irgend was anderes (idealerweise die ZeilenNr, dann bleibt die Sortierung erhalten.
da kannst du auch selber direkt in Excel ein bisschen Rumprobieren, welche Formeln das gewünschte Ergebnis bringen.
wenn du dann dir richtige Formel gefunden hast, selekitierst du die Zelle, wechselst in den Editor ins direktfenster und gibt dort "?selection.formulaR1C1" ein.
Dann hast du den Text, den du an der entsprechenden Stelle ins Makro einfügen musst.
Die das einzige was du beachten musst, wenn die Formel Anführungszeichen enthält, müssen diese im Quellcode verdoppelt werden.
Beispiel: Wenn alle Zeilen gelöscht werden sollen, deren Zellinhalt in der 1. Spalte "XXX" ist, dann muß der Code dazu so aussehen:


.FormulaR1C1 = "=if(RC[-1]=""XXX"",true,row()"

Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

Excel-Liste verkürzen (von 40tsd auf 20 Zeilen)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel-Liste verkürzen (von 40tsd auf 20 Zeilen)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread