Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1648to1652
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeile per VBA Einfügen oberhalb bestimmter Werte

Zeile per VBA Einfügen oberhalb bestimmter Werte
10.10.2018 11:56:51
Maxi
Hallo zusammen,
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zeile per VBA Einfügen oberhalb bestimmter Werte
10.10.2018 12:18:49
Rudi
Hallo,
Sub insert()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "B").End(xlUp).Row To 2 Step -1
If Cells(i - 1, 2)  Cells(i, 2) Then
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
End If
Next
Application.ScreenUpdating = False
End Sub

Gruß
Rudi
AW:Zeile per VBA Einfügen oberhalb bestimmter Wert
10.10.2018 13:06:56
Maxi
Hallo Rudi,
funktioniert leider noch nicht. Das Makro fügt mir immer noch über jeder Produktnummer eine Zeile ein. Ich möchte aber, dass er mir nur über jeder Produktgruppe eine Zeile einfügt.
Maxi
Anzeige
AW: Zeile per VBA Einfügen oberhalb bestimmter Wert
10.10.2018 14:51:44
PeterK
Hallo
Option Explicit

Sub insert()
    Dim i As Long
    Dim myProdNr As String

    Application.ScreenUpdating = False
   
    myProdNr = Mid(Cells(Rows.Count, "A").End(xlUp).Value, 1, 5)

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

        If Mid(Cells(i - 1, "A").Value, 1, 5) <> myProdNr Then
            Cells(i, "A").EntireRow.insert
            myProdNr = Mid(Cells(i - 1, "A").Value, 1, 5)
            DoEvents
        End If
    Next

    Application.ScreenUpdating = True
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0


Anzeige
Zeile per VBA Einfügen oberhalb bestimmter Wert
11.10.2018 08:36:44
Maxi
Hallo Peter,
das funktioniert soweit, dass es mir wenn sich die Nummer ändert, automatisch eine Teile darüber einfügt.
Jetzt wäre es für mich noch hilfreich, dass bei jeder Zeile, die eingefügt wird es mir den Produktnamen automatisch eintragen würde und mit einer bestimmten Farbe füllen würde (colorindex xx).
Bsp. für Materialnummer 1000-xxxx die Produktgruppe XXX.
Perfektionieren würde es mir das ganze noch, wenn es mir automatisch die Zeilen innerhalb einer Produktgruppe auswählt und nach Spalte B im Datum absteigend sortiert. Habe euch das ganze mal beispielhaft dargestellt.
https://www.herber.de/bbs/user/124556.xlsx
Danke für eure Hilfe!
Anzeige

54 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige