hänge momentan an folgendem Problem:
Ich habe eine automatisch generierte Liste bei der in Spalte B Produktnummern stehen.
Die Nummern sehen folgendermaßen aus: 1000-1234.
Es sind mehrere Produkte vorhanden. (1000-1234, 1000-1235; 2000-1234 etc.) und die Produkte sind auch schon nach den ersten vier Ziffern geordnet.
Die ersten 4 Ziffern beziehen sich immer auf das Produkt. Nun hätte ich gerne, dass wenn die Produktgruppe 1000-xxxx auftaucht es mir eine Zeile oberhalb einfügt und diesen gleich mit dem Inhalt "Produkt A" schreibt. Wenn das erste mal 2000-xxxx kommt, soll eine Zeile mit "Produktgruppe B" eingefügt werden etc.
Habe nun folgendermaßen angefangen:
Sub insert()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "B").End(xlUp).Row To 1 Step -1
If InStr(LCase(Cells(i, "B")), "1000-") > 0 Then
Cells(i, "B").EntireRow.insert
End If
If InStr(LCase(Cells(i, "B")), "2000-") > 0 Then
Cells(i, "B").EntireRow.insert
End If
Next
Application.ScreenUpdating = False
End Sub
Hier fügt mir das Makro aber oberhalb jeder Nummer eine Zeile ein. Ich möchte aber, dass mir nur einmal eine Zeile mit dem entsprechenden Produktname eingefügt wird.
Hoffe ich konnte das Problem halbwegs verständlich beschreiben und mir kann jemand weiterhelfen.
Vielen Dank!
Grüße Maxi