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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige