Zeile einfügen nach erfüllter Bedingung

[Dreams]

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

[Peter]

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