Wenn Sie bereits registriert sind, aber Ihr Kennwort vergessen haben, klicken Sie bitte hier.

Bitte drücken Sie nicht mehrfach auf "Antwort speichern".

*Ist HTML- und/oder UBB-Code aktiviert, dann können Sie HTML und/oder UBB Code in Ihrem Beitrag verwenden.

T H E M A     A N S E H E N

skyzem Beiträge: 400 / 131 Win 7 Enterprise x64 Cornerstone 5.3.0.5 Minitab 16.2.1.0 Excel 2010 Notepad++ 6.3.1 Putty 0.63 Calc.exe

Hallo piston Hier, quick & dirty: Als erstes musst du die Spalte sortieren, egal ob von A-Z oder von Z-A, hauptsache gleiche Werte liegen untereinander. Dann folgendes Makro starten, wobei du den Startpunkt (Erste Zelle der Liste) bei den zwei Konstanten angibst. 1,1 für A1 Code: Sub test()     Const spalte As Integer = 1 '(Enspricht A)     Const starzeile As Integer = 1 '(Enspricht 1)         LCiR = Cells(Rows.Count, spalte).End(xlUp).Row         For i = starzeile + 1 To LCiR         If Cells(i, spalte) <> Cells(i - 1, spalte) Then             Cells(i, spalte).Insert Shift:=xlDown             Cells(i, spalte).Value = "---"             i = i + 1         End If     Next End Sub    PS. Das Sortieren kannst du ja mit dem Makrorecorder aufzeichnen. ------------------       MfG skyzem             Wir mögen Menschen, die frisch heraus sagen, was sie denken - falls sie dasselbe denken wie wir.                   isleofwords.com - shortstorys in between                          [Diese Nachricht wurde von skyzem am 19. Feb. 2013 editiert.]