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

Forumthread: Zeilen einfügen vor Zeile mit Wert XX in Spalte D

Zeilen einfügen vor Zeile mit Wert XX in Spalte D
25.11.2008 11:49:00
NetMare
Hallo zusammen,
ich möchte gern per script eine Zeile an bestimmten Stellen einfügen.
Das Einfügen klappt ja über
Worksheets("Tabelle1").Rows(7).Insert
ganz gut...
Ich habe mehrere Zeilen in der Liste mit unterschiedlichen Dingen die ich mir auch über scripte erstellen lasse. Nun habe ich in Spalte D eine Kategorienummer. Die Liste ist nach dieser Kategorienummer sortiert und möchte nun vor jeder Kategorie eine leere Zeile mir einer Formel haben.
Das bedeutet wenn die Kategorienummer von zB. 01 auf 02 springt möchte ich genau da zwischen eine (bzw. zwei - vieleicht kann man das in dem Code variieren?) leere Spalte haben die mit einer Formel gefüllt wird.
Also zusammengefasst:
Ich möchte eine ganze Liste Zeile für Zeile durchgehen und auf eine Änderung eines Spaltenwertes eine (bzw. 2) neue Zeile einfügen.
Ist das irgendwie möglich?
Ich bin ziemlicher VBA noob - deshlab vieleicht bei ner möglichen Antwort im Kopf halten 'wie erklär ich's meinem Kind' :-)
Gruß,
Gerd
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen einfügen vor Zeile mit Wert XX in Spalte D
25.11.2008 12:06:00
Rudi
Hallo,
in ein Modul:

Sub ZeileRein()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 4).End(xlUp).Row To 3 Step -1
If Cells(i - 1, 4)  Cells(i, 4) Then
Rows(i).Insert
End If
Next i
Application.ScreenUpdating = True
End Sub


Gruß
Rudi

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige