Zeilen aus Liste löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen aus Liste löschen

27.02.2004 09:17:05

AndreasS

AW: Zeilen aus Liste löschen

27.02.2004 09:34:38

Christoph Dümmen

Oha!

27.02.2004 09:48:53

AndreasS

AW: Zeilen aus Liste löschen

27.02.2004 10:10:41

Rudi

Sorry ...

27.02.2004 10:15:10

Rudi

Das war gar nicht dumm...

27.02.2004 10:52:34

Christoph Dümmen

Hallo Andreas
ich hab mal den relevanten Teil nur genommen.
Die Ausgangstabelle ist ein Kreuztabelle, die ich zuerst auflöse und dann die Werte prüfe und ggf. lösche.
Hoffe, das ist nicht zu irritirend, fremden Code zu lesen.
Gruß
Christoph
Der zentrale Teil

        If Cells(j, intDataStart) = 0 Then                                      'Wenn eingefügte Zelle = =
            Cells(j, intDataStart).EntireRow.Delete                             'dann Zeile löschen
        End If

Code eingefügt mit Syntaxhighlighter 2.5

ist eingebetten in u. a. Codesegment

Set rngDimensions = Range(Cells(2, 1), Cells(lngDataRows, intDataStart - 1))    'Bereich mit Daten
Range(Cells(lngDataRows + 1, 1), Cells(Rows.Count, 1)).EntireRow.Delete         'Nicht genutzen Bereich löschen, damit die
                                                                                'CurrentRegion-Methode funktioniert
For i = intDataEnd To intDataStart + 1 Step -1                                  'durchlaufe Datenspalten
    lngPasteRow = Cells(Rows.Count, intDataStart).End(xlUp).Row + 1             'Einfügezelle ermittlen

    Application.StatusBar = "Spalte " & Abs(i - intDataEnd) & "/" & _
                            intDataEnd - intDataStart - 1                       'Statusbareintrag
    Range(Cells(2, i), Cells(lngDataRows, i)).Copy                              'Quellbereich kopieren
    Cells(lngPasteRow, intDataStart).PasteSpecial                               'am Ziel einfügen
    Range(Cells(2, i), Cells(lngDataRows, i)).ClearContents                     'Quelle löschen
    rngDimensions.Copy                                                          'Dimensionswerte kopieren
    Cells(lngPasteRow, 1).PasteSpecial                                          'und am Ziel einfügen

    lngLastRow = Cells(Rows.Count, intDataStart).End(xlUp).Row + 1              'letzte Zelle nach dem Einfügen ermitteln
    strStatusbar = Application.StatusBar                                        'Statusbareintrag sichern
    For j = lngLastRow To lngPasteRow Step -1                                   'eingefügen Bereich durchlaufen
        Application.StatusBar = strStatusbar & " Prüfe Wert auf '0'. Zeile " & _
                                Abs(j - lngLastRow) & "/" & _
                                lngLastRow - lngPasteRow                        'Statusbareintrag
        If Cells(j, intDataStart) = 0 Then                                      'Wenn eingefügte Zelle = =
            Cells(j, intDataStart).EntireRow.Delete                             'dann Zeile löschen
        End If
    Next j
Next i

Code eingefügt mit Syntaxhighlighter 2.5

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread