Excel Makro

[Schaf]

Hi Leute,

ich hab da ein Problem. Ich erklärs am besten an einem Beispiel:

Ich hab in Excel folgende Tabelle:

1 Test Testhuber

1 Test2 Testhuber2

2 ..... .........

2 ..... ..........

2 .... .........

2 ...... .........

4 ...... ........

Die Daten sind nach der ersten Spalte sortiert.

Jetzt benötige ich ein Makro mit dem ich nach den verschiedenen Gruppe (1, 2 und 4) zwei Leerzeilen einfügen kann. Kann mir da irgendjemand helfen? Danke schon mal im vorraus.

Schaf

[KarlBerg]

Hi,

das hier sollte dir helfen:

Sub Splitter()            '(by) KarlBerg

For i = 1 To Tabelle1.UsedRange.Count

    hlp = Range("A" & i + 1)

    erg = Range("A" & i)

    If erg <> hlp And erg <> "" Then

        Rows(i + 1 & ":" & i + 1).Select

        Selection.Insert Shift:=xlDown

        Selection.Insert Shift:=xlDown

    End If

Next i

End Sub

Splittet nach der ersten Spalte (A).

MfG

KarlBerg

[Schaf]

Danke, ich werd's gleich mal ausprobieren.

Schaf