Herbers Excel/VBA-Archiv
Zellen einfügen wenn ungleich
- Zellen einfügen wenn ungleich von Peter vom 22.10.2014 14:51:27
- AW: Zellen einfügen wenn ungleich - von Hajo_Zi am 22.10.2014 15:28:27
 |
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
| |