Leerzeile einfügen

Forumthread: Leerzeile einfügen
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Leerzeile einfügen

Leerzeile einfügen

07.07.2003 17: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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Leerzeile einfügen

07.07.2003 17:31:01

ChrisL

AW: Leerzeile einfügen

07.07.2003 17: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

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