Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.09.2025 21:07:18
Nicht alle benötigten Daten im Dictionary
28.09.2025 15:31:23
Listbox durchsuchen die über list array befüllt wurde
28.09.2025 15:25:50
Excel Zufall Dienstplan
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
980to984
980to984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Liste kürzen (automatisiert)

Forumthread: Liste kürzen (automatisiert)

Liste kürzen (automatisiert)
27.05.2008 16:05:00
Bernd
Hallo,
ich würde gerne per Makro eine Excel-Tabelle mit mehreren hundert Zeilen automatisiert insofern "verkleinern", dass nur jeweils die erste Zeile eines Blockes aufgelistet wird. Ein Block umfasst immer einige dutzend Zeilen und ist durch einen identischen Wert in Zelle A gekennzeichnet.
Anbei ein Muster:
https://www.herber.de/bbs/user/52650.xls
Die dort farblich markierten Zeilen sollen nach Bereinigung der Tabelle übrigbleiben, möglichst ohne Leerzeilen.
Gruß
Bernd

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Liste kürzen (automatisiert)
27.05.2008 16:13:44
Original
Hi,
nur Spalte A markieren, Daten, Filter, Spezialfilter, ohne Duplikate.
Dazu müssen die Spalten Überschriften haben.
mfg Kurt

AW: Liste kürzen (automatisiert)
27.05.2008 16:23:57
UweD
hallo
so z.B.
VB-Code:

Sub Lösche()
    On Error GoTo Fehler
    Dim SP%, ZE&, LR&, TB, i&
    Set TB = ActiveSheet   'aus aktuellen Blatt
    SP = 1 'Spalte A
    ZE = 1 'Zeile 1
    LR = TB.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
    Application.ScreenUpdating = False
    For i = LR To ZE + 1 Step -1
        If TB.Cells(i, SP) = TB.Cells(i - 1, SP) Then
            Rows(i).Delete shift:=xlUp
        End If
    Next
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Gruß UweD

Anzeige
Besten Dank nochmal/ läuft perfekt!
09.06.2008 13:07:00
Bernd
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige