Microsoft Excel

Herbers Excel/VBA-Archiv

Leerzeile wenn Bedinung erfüllt ist

Betrifft: Leerzeile wenn Bedinung erfüllt ist von: ANAnas
Geschrieben am: 05.09.2014 08:30:50

Guten Morgen Community,

ich stehe gerade vor einem Problem:

habe eine Excel Tabelle mit mehreren Spalten und verdammt vielen Zeilen.
In der letzten Spalte steht immer eine 1; 2 oder 0. Es soll die Zeile mit dem Schlüsselwort 2 in Spalte y erscheint unterhalb kopiert werden und dann mit 2 leerzeilen abgetrennt. Die schleife soll durch das ganze Tabellenblatt laufen. In der Tabelle kommt die 2 sehr häufig vor und soll nicht nach der ersten stoppen.

Könnt ihr mir bitte weiterhelfen?
LG

  

Betrifft: AW: Leerzeile wenn Bedinung erfüllt ist von: Max
Geschrieben am: 05.09.2014 09:17:45

Hallo,

in welcher Spalte befindet sich denn eine 0,1,2? Verstehe ich es richtig, dass das ganze dann wiefolgt aussehen soll?

Spalte A B C ... Y
xxx xxx 2 2
Leerzeile
Leerzeile
xxx xxx 1


erklär das nochmal genauer ;)


  

Betrifft: AW: Leerzeile wenn Bedinung erfüllt ist von: ANAnas
Geschrieben am: 05.09.2014 09:24:24

Hey Max,

also das ganze sieht folgendermaßen aus:
Die Spalten a bis y sind gefüllt und in y ist der Index (in dem Fall die 2).
Immer wenn eine 2 in der Spalte auftaucht, soll die Zeile kopiert und dann 2 Leerzeilen unterhalb angefügt werden.

z.B. so:

A B C D E ... Y
z x 2 z 1 ... 2
z x 2 z 1 ... 2 (kopie)
LEERZEILE
LEERZEILE
g 1 3 x 4 ... 1
2 x c t z ... 0
f g 5 7 b ... 2
f g 5 7 b ... 2 (kopie)
LEERZEILE
LEERZEILE
.... usw.

ich hoffe das ist so verständlich :)


  

Betrifft: AW: Leerzeile wenn Bedinung erfüllt ist von: ANAnas
Geschrieben am: 05.09.2014 09:50:41

ist noch offen


  

Betrifft: AW: Leerzeile wenn Bedinung erfüllt ist von: Hajo_zi
Geschrieben am: 05.09.2014 10:29:31

Option Explicit

Sub ZeileLopie()
    Dim LoI As Long
    Dim LoLetzte As Long
    LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 25)), Cells(Rows.Count, 25).End(xlUp).Row, Rows. _
Count)
    For LoI = LoLetzte To 1 Step -1
        If Cells(LoI, 25) = 2 Then
            Rows(LoI).Copy
            Rows(LoI + 1).Insert Shift:=xlDown
            Rows(LoI + 2 & ":" & LoI + 3).Insert Shift:=xlDown, CopyOrigin:= _
xlFormatFromLeftOrAbove
        End If
    Next LoI
    Application.DataEntryMode = False
End Sub
GrußformelHomepage


  

Betrifft: AW: Leerzeile wenn Bedinung erfüllt ist von: ANAnas
Geschrieben am: 05.09.2014 13:49:25

Vielen lieben Dank :)

Das funktoniert genau so wie ich es mir wünsche!
Schönes Wochenende


 

Beiträge aus den Excel-Beispielen zum Thema "Leerzeile wenn Bedinung erfüllt ist"