Herbers Excel-Forum - das Archiv

Zeile automatisch einfügen...

Bild

Betrifft: Zeile automatisch einfügen...
von: Michael Hummel

Geschrieben am: 05.04.2005 07:32:37
Guten Morgen,
Folgendes Problem steht vor mir :-( Vielleicht kann mir da jemand helfen?
Ich habe in der Spalte "A" Wert stehen, die aus sortiert sind. Nun kommt es vor, dass in der Spalte "A" mehrmals der selbe Wert eingetragen ist. Nun sollen alle "Pakete" getrennt werden - durch eine leerzeile!
So soll es aussehen:
a
a
a
b
b
c
c
c
c
c
d
d
.
.
und dir Freizeilen sollen am besten durch ein Makro, oder so eingesetzt werden.
Schon mal danke im vorraus!
Gruß
Michael Hummel
Bild

Betrifft: AW: Zeile automatisch einfügen...
von: Heiko S.

Geschrieben am: 05.04.2005 08:03:54
Hallo Michael,
schau mal hier rein, tut das was du möchtest. Du mußt die Mappe aber runterladen sonst funktioniert es nicht.
https://www.herber.de/bbs/user/20697.xls

Gruß Heiko

PS: Rückmeldung wäre nett !
Bild

Betrifft: funktioniert super
von: Michael Hummel
Geschrieben am: 05.04.2005 08:09:32
Hallo Heiko,
funktioniert super, vielen dank!!!!
Gruß
Michael Hummel
Bild

Betrifft: AW: Zeile automatisch einfügen...
von: UweD

Geschrieben am: 05.04.2005 08:10:00
Hallo Michael

so klappt es:

Sub Gruppieren()
'   Bereich vorher markieren
Dim R1%, S1%, I%
R1 = Selection.Row + 1 'erste Reihe
S1 = Selection.Column 'erste Spalte
ri = Selection.Rows.Count 'Anzahl Reihen in Selection
Application.ScreenUpdating = False
For I = ri To R1 Step -1
If Cells(I - 1, S1) <> "" Then
If Cells(I - 1, S1) <> Cells(I, S1) Then
Rows(I).Insert
End If
End If
Next I
Application.ScreenUpdating = True
[A1].Select
End Sub

Gruß Uwe
 Bild
Excel-Beispiele zum Thema "Zeile automatisch einfügen..."
Automatische Datumformatierung unterdrücken Automatisch Sicherungsdatei erstellen
Automatisches Komplettieren einer Zelleingabe Zelleingaben automatisch auf volle 1,2-Teile runden
Tabelle nach Datumseintrag automatisch sortieren Eingaben in B:D automatisch mit 6 multiplizieren
Zelleingabe automatisch in Kopfzeile übernehmen Nach Zelleingabe automatische Sortierung
Automatische Sortierung bei Zelleintrag Min- und Max-Werte automatisch markieren