Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Inhaltsüberprüfung

Forumthread: Inhaltsüberprüfung

Inhaltsüberprüfung
10.11.2005 18:17:46
Boulbadaoui
Hallo,
Ich brauche Hilfe!
Ich will Inhlat Zelle Bn mit Inhalt Dn vergleichen!, wenn den Inhalt ungleich ist, soll Zelle Dn um eine Zeile nach unten verschoben !
B ist Splate B
D ist Spalte D
n ist zeilen- Nr (läuft von 2 bis 2000)
Danke
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhaltsüberprüfung
10.11.2005 18:45:13
Christoph
Hi

Sub t()
Dim iZeile As Long
For iZeile = Range("B65536").End(xlUp).Row To 2 Step -1
If Cells(iZeile, 2) <> Cells(iZeile, 4) Then Rows(iZeile).EntireRow.Insert
Next iZeile
End Sub

Gruss
Chris
AW: Inhaltsüberprüfung
10.11.2005 18:46:04
Chris
kleiner Test, sorry
AW: Inhaltsüberprüfung
11.11.2005 17:04:49
boulbadaoui
Hallo,
mit dem modul wird die komplette Zeile nach unten verschoben, ich will aber nur die Zelle Dn eine Zeile nach unten verschieben
Anzeige
AW: Inhaltsüberprüfung
11.11.2005 17:48:31
Chris
Gut erkannt :-)
... Then Cells(iZeile, 4).Insert
Gruss
Chris
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige