Clever-Excel-Forum

Hallo zusammen,

ich hoffe ihr könnt mir weiterhelfen, da ich leider total unerfahren mit VBA oder dergleichen bin und auch Google mir kein wirklich passendes Ergebnis liefert :)

Ich habe in meiner Excel-Liste momentan 3 Spalten:
Spalte A: Artikelnummer
Spalte B: Bezeichnung
Spalte C: Arbeitsplatz

Nun bräuchte ich eine Formel, ein Makro... dass nach jeder neuen Artikelnummer eine leere Zeile einfügt.
Also sollte es letztendlich so aussehen:

1234
1234

5678

9010
9010

Ich hoffe ihr versteht mein Problem und könnt mir weiterhelfen!

Vielen Dank schon mal im Voraus
Gruß
Dreams

Hallo,

VBA ist nicht meine Baustelle, aber du könntest mal diesen Code testen:

Code:
Public Sub Leere_Zeile_bei_Wechsel()

'http://www.office-loesung.de/fpost711669.php#711669

    Dim lngRow As Long

    Application.ScreenUpdating = False

    For lngRow = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1

        If Cells(lngRow, 1).Value <> Cells(lngRow - 1, 1).Value And _

            Not IsEmpty(Cells(lngRow, 1)) And Not IsEmpty(Cells(lngRow - 1, 1)) Then _

            Rows(lngRow).Insert Shift:=xlShiftDown

    Next

    Application.ScreenUpdating = True

End Sub

Dreams

Peter