Microsoft Excel

Herbers Excel/VBA-Archiv

Zellen einfügen wenn ungleich

Betrifft: Zellen einfügen wenn ungleich von: Peter
Geschrieben am: 22.10.2014 14:51:27

Guten Tag,

vorweg möchte ich sagen, dass ich keinerlei Kenntnisse mit Makros habe. Meine Excel-Kenntnisse würde ich jedoch als gut beschreiben.

Folgende Tabelle soll als Ausgangssituation dienen:

Spalte A---Spalte B---Spalte C---Spalte D
0050-------1000 €------0050--------1000 €
0890--------500 €------0500---------150 €
-----------------------0890---------700 €

Es soll überprüft werden, ob Spalte A mit Spalte C übereinstimmt. Wenn dem so ist, soll nichts passieren. Ist Spalte A ungleich Spalte C, soll eine Zelle eingefügt werden, so dass Spalte A und B nach unten rücken. Es soll dann also so aussehen:

Spalte A---Spalte B---Spalte C---Spalte D
0050--------1000 €------0050-------1000 €
------------------------0500--------150 €
0890----------500 €-----0890--------700 €

Die Liste ist immer unterschiedlich lang und besteht aus mehren hundert Zeilen.

Vielen Dank für Eure Unterstützung.

Viele Grüße

  

Betrifft: AW: Zellen einfügen wenn ungleich von: Hajo_Zi
Geschrieben am: 22.10.2014 15:28:27

Hallo Peter,

Option Explicit

Sub Kopie_Zeile2()
    Dim LoLetzte  As Long
    Dim LoI As Long
    LoLetzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    For LoI = LoLetzte To 1 Step -1
        If Cells(LoI, 1) = Cells(LoI, 3) Then
            Range(Cells(LoI + 1, 1), Cells(LoI + 1, 2)).Insert Shift:=xlDown
        End If
    Next LoI
End Sub
GrußformelHomepage


 

Beiträge aus den Excel-Beispielen zum Thema "Zellen einfügen wenn ungleich"