Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
980to984
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
980to984
980to984
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige