Leerzeile zwischen "Gruppen"

Forumthread: Leerzeile zwischen "Gruppen"

28.10.2015 08:52:55

muehli

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Leerzeile zwischen "Gruppen"

28.10.2015 09:21:13

matthias
AW: Leerzeile zwischen "Gruppen"

28.10.2015 10:14:41

muehli
AW: Leerzeile zwischen "Gruppen"

28.10.2015 10:18:08

muehli
AW: Leerzeile zwischen "Gruppen"

28.10.2015 10:34:53

matthias
AW: Leerzeile zwischen "Gruppen"

28.10.2015 10:50:01

daniel

AW: Leerzeile zwischen "Gruppen"

28.10.2015 09:21:13

matthias

Hallo muehli,
ein Zeilenumbruch würde einen optischen Absatz erschaffen, dieser lässt sich mit Chr(10) erzeugen.

Sub Absatz()
Dim x As Long
With Sheets("Import")
For x = 2 To .Cells(.Rows.Count, 4).End(xlUp).Row
If .Cells(x, 4)  .Cells(x - 1, 4) Then 'Prüfung Spalte D
.Cells(x, 10) = Chr(10) 'Zeilenumbruch
End If
Next x
End With
End Sub

In einer leeren Spalte (hier Spalte 10) wird dann ein Absatzzeichen eingefügt.
lg Matthias

AW: Leerzeile zwischen "Gruppen"

28.10.2015 10:14:41

muehli

Hi matthias,
erstmal danke für die schnelle Antwort.
Deine Variante funktionert schon ansatzweise, wie ich es möchte.
Jedoch sieht das Ganze recht "unsauber" aus, da ich Ränder für die Zellen benutze.
Gruß und danke
muehli

AW: Leerzeile zwischen "Gruppen"

28.10.2015 10:18:08

muehli

Vielleicht gibt es eine Möglichkeit, die wie folgt aussieht:

Dim x As Long
With Sheets("Import")
For x = 2 To .Cells(.Rows.Count, 4).End(xlUp).Row
If .Cells(x, 4)  .Cells(x - 1, 4) Then 'Prüfung Spalte D
'Kopiere alles unterhalb und füge in .Cells(x + 1, 4) ein
End If
Next x
End With

AW: Leerzeile zwischen "Gruppen"

28.10.2015 10:34:53

matthias

Was genau hast du denn für Code dass du keine Zeile einfügen kannst, aber eine Leerzeile schaffen durch Kopieren kein Problem darstellt?
lg Matthias

AW: Leerzeile zwischen "Gruppen"

28.10.2015 10:50:01

daniel

Hi
lade doch mal eine Beispieldatei hoch, in der du zeigst, wie die Daten im Original vorliegen und daneben oder auf einem zweiten Blatt wie sie hinterher aussehen sollen (von Hand erstellt).
wenn du keine Leerzeilen einfügen willst, dann bleibt dir nichts anderes übrig, als in den Randzeilen (dh Zeilen, bei denen in der Nachbarzeile ein anderer Ort steht) die Zeilenhöhe zu erhöhen.
es sollte dir aber auch klar sein, dass du Rahmenlinien immer nur am Zellrand einfügen kannst (ausnahme: Diagonallinien, aber die helfen dir hier nicht weiter)
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Forumthread: Leerzeile zwischen "Gruppen"

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread