LEERE ZEILEN OHNE VBA EINFÜGEN

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Daniel, ganz herzlichen Dank für den umgehenden Tipp und die vorgeschlagene Lösung. In der Tat habe ich mich nur sehr unpräzise ausgedrückt und beispielsweise unterschlagen, dass die Liste variabel ist. Aus diesem Grund habe ich stundenlang nach einer Lösung gesucht, welche mittels einer Formel die Liste mit Leerzeilen ergänzt oder Absätze am gewünschten Ort erzeugt. Vermutlich würde ein Makro zum Ziel führen. Da ich aber von VBA-Programmierung leider keine Ahnung habe, hoffte ich, mein Problem mit einer Formel lösen zu können. Mein Wunsch wäre, dass die Liste, welche sich wie gesagt lfd. ändert, immer nach dem Eintrag LER eine Leerzeile erzeugt (wie in Spalte B), in welcher ich danach mittels SVERWEIS einen Absatztitel erzeugen könnte. Auf jeden Fall ganz lieben Dank und sollte dir noch etwas einfallen, so bin ich für alle Anregungen sehr dankbar. Liebe Grüsse Iris

Hallo Daniel, vielen Dank für deine Unterstützung. dann versuche ich deinen Vorschlag in eine Makro aufzunehmen. Ich versuche hier mein Anliegen verständlich zu formulieren (hoffentlich): Ich erhalte eine Liste mit Werten wie z.B. 1,2,4,7,11, 101, 105, 124, 128, 205, 212, 320, 337, 422, 431, 445, 512, 534, 605, 608, 609, etc.. Diese sortiere ich aufsteigend. Nun möchte ich Hunderterblöcke, das heisst, ich trenne mittels Formel (Einfügen von LER) die einzelnen 100er-Blöcke (0-100, 101-200, 201-300 etc.). Es sollen die Zahlen aufsteigend aufgelistet sein und immer nach 100 Einheiten möchte ich am Ende zwei Leerzeilen zwischen den Blöcken haben. Diese zwei Leerzeilen dienen zum einen als optischer Absatz, zum anderen möchte ich dort mittels SVERWEIS einen Titel einfügen (Endziel rot gerahmt). Da die Zeiten der Messungen ebenfalls variieren, muss ich diese mittels SVERWEIS zuordnen, was aber kein Problem ist. Deshalb versuche ich zwei Leerzeilen zwischen den einzelnen Blöcken zu erhalten. 1 x für den Abstand, 1 x für den Titel. Es tut mir leid, dass es mir nicht gelungen ist, mein Anliegen verständlich genug zu schildern. Wenn man an einer Sache zu lange bastelt, dann ist man in einem Tunnel und meint, für einen Aussenstehenden sei alles klar. Ich gelobe Besserung :-). Danke, Iris

Sub Unit() Dim z As Long With ActiveSheet .UsedRange.Sort Key1:=Cells(2, 1), Order1:=xlAscending, Header:=xlYes For z = .Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1 If WorksheetFunction.RoundUp(.Cells(z - 1, 1), -2) WorksheetFunction.RoundUp(.Cells(z, 1), -2) Then .Cells(z, 1).Resize(2).EntireRow.Insert shift:=xlDown End If Next End With End Sub

Sub Unit() Dim z As Long With ActiveSheet For z = .Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1 If .Cells(z, 1) = "LER" Then .Cells(z, 1).EntireRow.Insert shift:=xlDown End If Next End With End Sub

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

LEERE ZEILEN OHNE VBA EINFÜGEN

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread