Zeilen Verschieben mit VBA (bitte Code) oder geht es auch ohne?

Question

Hallo,

ich möchte alle Zeilen in denen der Wert "0" in Spalte B zwei steht ausschneiden und nach einer Leerzeile unten wieder einfügen.

BREMEN	0	0-0	lot: 49028	BASCOV	20190522	1300
BREMEN	0	0-0	900275       709 / 33 HLS	EMMERING	20190523	2000
BREMEN	20190517	26-275	lot: 48836 - Minderlad	BASCOV	20190522	1000
BREMEN	20190520	26-267	lot: 48863, Minderladung	BASCOV	20190516	1000
BREMEN	20190520	33-710	900269	SCHWERTBERG	20190521	1000

Answer 1

Hi,

verstehe ich das richtig: alle Zeilen mit 0 in Spalte B sollen fortlaufend unter die eigentliche Tabelle verschoben werden, wobei an ihrer Stelle eine Leerzeile bleibt?

Sub Ausschneiden()
    Dim lngLetzte As Long
    Dim lngZeile As Long
    Dim lngZaehler As Long
    lngZaehler = 2
    lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
    For lngZeile = 1 To lngLetzte
        If Cells(lngZeile, 2) = 0 Then
            Range(Cells(lngZeile, 1), Cells(lngZeile, 7)).Cut Destination:=Cells(lngLetzte + lngZaehler, 1)
            lngZaehler = lngZaehler + 1
        End If
    Next lngZeile
End Sub

Bis später, Karin

Answer 2

Hallo Karin, _beverly

danke für die rasche Antwort. Ich habs schon getestet, und verstanden, dass man sich hier sehr präziese ausdrücken muss.

Alle Zeilen mit 0 in Spalte B verschieben/ausschneiden und unten wieder anfügen, dazwischen (also zwischen den verbleibenden Tabellenzeilen und jenen Zeilen mit 0) eine (oder besser zwei) Leerzeilen einfügen.

Wenn ich mit der Hand ausschneide, rutschen alle verbleibenden nach oben, das ist Ok, es soll durch das Verschieben kein Leerraum entstehen.

danke

Ritschi

Answer 3

Hi Ritschi,

ergänze als letzte Zeile vor End Sub die folgende Zeile:

    Range(Cells(1, 1), Cells(lngLetzte, 1)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Bis später, Karin

Answer 4

Funktioniert super, nochmal herzlichen Dank. Werde dieses Forum weiterempfehlen, weil sehr rascher, unkomplizierter und freundlicher Support.

Rtischi