Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige