Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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

Anzeige

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

Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige