600 Aufrufe
Gefragt in Tabellenkalkulation von

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

4 Antworten

0 Punkte
Beantwortet von beverly_ Experte (3.3k Punkte)

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

0 Punkte
Beantwortet von
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
0 Punkte
Beantwortet von beverly_ Experte (3.3k Punkte)

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

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

Rtischi
...