Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeile einfügen

Forumthread: Leerzeile einfügen

Leerzeile einfügen
07.07.2003 15:24:51
Werner
Hallo Leute
In der Spalte A einer Tabelle habe ich 8 stellige Zahlen sortiert stehe.
Z.B.:
Spalte A
32101200
32101200
32101200
32101300
32101300
32101300
32101300
32101400
32101700
32101700
32101700
32101700
32101700
Bevor eine neue Zahl (32101300), (32101400) anfängt, möchte ich per Makro eine Leerzeile einfügen und diese von Spalte A bis H farbig markieren.
Die Zeilenanzahl in denen immer die selbe Zahl drin steht ist immer unterschiedlich. Wie in der Aufzählung.
Es währe schön, wenn mir jemand helfen könnte.
Werner
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeile einfügen
07.07.2003 15:31:01
ChrisL
Hi Werner
Option Explicit

Sub Macro1()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 1) <> Cells(i - 1, 1) Then
Rows(i).EntireRow.Insert
Range(Cells(i, 1), Cells(i, 8)).Interior.ColorIndex = 3
End If
Next i
End Sub

Gruss
Chris

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige