Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen einfügen wenn ungleich

Zellen einfügen wenn ungleich
22.10.2014 14:51:27
Peter
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen einfügen wenn ungleich
22.10.2014 15:28:27
Hajo_Zi
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

Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige