Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: In bestimmte Zeile Zeile einfuegen

In bestimmte Zeile Zeile einfuegen
03.05.2005 21:45:41
Andreas
Hallo miteinander!
Eines meiner zahllosen Probleme is, dass ich ein Makro schreiben will fuer ein
Projekt mit Datenbloecken unterschiedlicher Laenge.
Die Datenbloecke sind 1. nach Namen geordnet und 2. nach Datumswert.
Jeweils wenn sich der Name, also der Wert der 1.Spalte aendert, soll mir das Makro automatisch drei Zeilen einfuegen, so dass die Bloecke auch fuer
Blinde erkennbar sind. Die Bloecke sind allerdings immer unterschiedlich lang,
so dass ich das ganze nicht einfach ueber "record" aufnehmen konnte...
Fuer euch wahrscheinlich kein Problem, aber ich hab keine Ahnung
wie ich des machen soll.
Gruss und Kuss
Andreas
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In bestimmte Zeile Zeile einfuegen
03.05.2005 23:47:34
Uduuh
Hallo,

Sub Zeilen_rein()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("A65536").End(xlUp).Row To 3 Step -1
If Cells(i, 1) <> Cells(i - 1, 1) Then
Range(Cells(i, 1), Cells(i + 2, 1)).EntireRow.Insert
End If
Next i
Application.ScreenUpdating = True
End Sub

Gruß aus'm Pott
Udo

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige