Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1420to1424
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

Formatierung durch Makro - Leerzeilen einfügen

Formatierung durch Makro - Leerzeilen einfügen
22.04.2015 11:03:24
Patrik
Hallo liebes Forum,
ich möchte ein Makro basteln, welches eine Spalte durchläuft und die Werte miteinander vergleicht. Wenn A2 ungleich A3 ist, sollen 2 Leerzeilen eingefügt und die Prüfung eben so lange fortgesetzt werden, bis in besagter Spalte keine Werte mehr stehen. Die Länge sei variabel.
Vielen Dank für eure Hilfe.
Mfg
Patrik

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
und dann ?
22.04.2015 11:15:07
Matthias
Hallo
Wenn A2 ungleich A3, 2 Zeilen einfügen
Dann ist beim nächsten Check A2 wieder ungleich A3.
Das ginge ja dann endlos.
Zitat:
... so lange fortgesetzt werden, bis in besagter Spalte keine Werte mehr stehen
Warum löschst Du nicht einfach die Werte?
Oder erklärst es etwas besser ;-)
Gruß Matthias

AW: Formatierung durch Makro - Leerzeilen einfügen
22.04.2015 12:00:42
Matthias
Hallo
Ich glaube ich hatte vorhin Deine Frage falsch interpretiert
Ausgangssituation:
 A
1 
215
335
441
517
63
73
856
995
1059


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Nach dem Code so?
 A
1 
2 
3 
415
5 
6 
735
8 
9 
1041
11 
12 
1317
14 
15 
163
173
18 
19 
2056
21 
22 
2395
24 
25 
2659


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Der Code: Option Explicit Sub Patrik() Dim Loletzte&, x& Loletzte = Cells(Rows.Count, 1).End(xlUp).Row For x = Loletzte To 2 Step -1 If Cells(x, 1) Cells(x - 1, 1) Then Rows(x).Insert Shift:=xlDown Rows(x).Insert Shift:=xlDown End If Next End Sub Gruß Matthias
Anzeige

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige