Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1648to1652
1648to1652
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile per VBA Einfügen oberhalb bestimmter Werte

Forumthread: 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
Anzeige

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
Anzeige
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
Zeile per VBA Einfügen oberhalb bestimmter Wert
10.10.2018 13:28:49
Maxi
Sollte schlussendlich etwa so aussehen:
https://www.herber.de/bbs/user/124539.xlsx
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

Forumthreads zu verwandten Themen

EXCEL-VBA: Zeilen einfügen, wenn
Brinkmeyer

Hallo,
ich habe das Problem eines sehr großen Formulars. Ich möchte gern, dass Zeilen nur angezeigt werden, wenn eine bestimmte Zelle einen Inhalt hat. - So kann das Formular bei leeren Zellen kleiner gehalten werden...
Hat jemand eine Idee?
06.08.2009 19:27:26
Thread-ID: 1094141
2 Beiträge
VBA - Formatierte Zeilen einfügen
Boris

Hallo
Ich möchte 3 formatierte Zeilen per VBA in die aktive Arbeitsmappe einfügen.
Dazu brauche ich ein VBA-Makro (um es mittels Tastenkombination aufzurufen).
Die Formatierung umfasst Schriftschnitt, Zeilenhöhe und Formeln.
Geht das prinzipiell mit VBA?
Vielen Dank!
Bo...
07.04.2011 15:54:10
Thread-ID: 1209494
6 Beiträge
VBA in leere Zeile einfügen
Stefan

Tach erstmal
Ich habe ein code welcher mir Dir Zeilen aus einer Tabelle in die unterste leere Zeile eines weiteren Tabellenblattes schreibt. (gefällt soweit ganz gut)
Kann man den Code abändern das er die nächst leere Zeile verwendet ?
d.h.
-Doppelklick
-Zeile Kopieren
...
07.04.2012 14:05:38
Thread-ID: 1258271
17 Beiträge
mit VBA einen Zeilenumbruch einfügen
WalterK

Hallo,
Per Schaltfläche möchte ich ein Makro starten, das in jeder beschriebenen Zelle am Ende des Zellinhaltes zusätzlich noch einen Zeilenumbruch einfügt, außer es ist am Ende des Zellinhaltes bereits einer vorhanden.
Es soll im Bereich D5:D&bis zur letzten belegten Zelle funktio...
26.06.2012 10:42:03
Thread-ID: 1268821
3 Beiträge
Anzeige
VBA kopieren und zeilen einfügen
dirk0011

Hallo zusammen,
habe ein ganz kleines Problem. Mit dem Button Werte Kopieren in dem Reiter "zusammenfassung" kopiert mir das Script wunderbar jeden neuen Eintrag von den dahinter liegenden Reitern. Jetzt kommt die Frage dazu.
Ich möchte gerne eigentlich immer die in grau markierten Über...
17.12.2012 14:53:15
Thread-ID: 1291240
18 Beiträge
Anzeige
VBA Wert ermitteln und Zeile einfügen
Sabine

Hallo liebe Experten,
Meine Tabelle geht von A5 bis Xvariabel.
Ich habe in Spalte A 6stellige Kostenstellen und in den Spalten B - X andere Zahlenwerte. Nun möchte ich mittels VBA eine Zwischensummenzeile einfügen, sobald sich die erste Ziffer ändert.
Ausgang:
100000
100002<...
19.12.2013 13:36:04
Thread-ID: 1343117
3 Beiträge
VBA Zeile einfügen wenn Zelle beschrieben
Marie

Hallo,
Ich habe hier eine Liste in Excel (also umrandete Kästchen, keine Tabelle), die immer unterschiedliche lang sein soll, je nach dem wieviele Produkte grade benötigt werden.
Ich hätte es gerne, dass wenn die erste Zelle der Liste (A21) beschrieben ist, dass darunter eine neue Zeile...
07.02.2014 11:30:40
Thread-ID: 1348474
2 Beiträge
Anzeige
VBA Wenn nicht in Zeile steht, dann Zeile einfügen
Leo

Hi,
ich hoffe ihr könnt mir hier ein wenig helfen.
Ich habe folgendes Problem:
Ich habe eine Tabelle mit Unterschiedlichen Namen in Spalte A
In einem zweiten Excel-Dokument habe ich ebenfalls eine Liste mit unterschiedlichen Namen, von denen sich einige mit denen aus A doppeln a...
05.05.2014 18:37:40
Thread-ID: 1359839
2 Beiträge
VBA, Fehlermeldung bei Zeile kopieren und einfügen
André

Hallo,
ich möchte über der aktuellen Cursorposition eine Zeile einfügen und die Zeile 4 dort hinein kopieren. Die Zeile 4 ist ausgeblendet.
...
Worksheets("LH").Rows(ActiveCell.Row).Insert
Worksheets("LH").Rows(4).Copy Destination:=Worksheets("LH").Rows(ActiveCell.Row)
Works...
29.06.2014 17:45:38
Thread-ID: 1368013
4 Beiträge
VBA - kopieren - in freie zeile einfügen
Alex. Fuchs
Hallo Leute!
Habe eine riesen Tabelle, von der ich, wenn ich einen Haken setze, ausgewählte Zellen in eine andere Tabelle übertragen will.
Ich habe den VBA Code zwar soweit, dass er eine Zeile übernimmt - und das wars schon. Leider habe ich nur seeehr begrenzte VBA-Kenntnisse.
Eigentl...
04.07.2014 13:17:18
Thread-ID: 1368947
12 Beiträge
VBA Tab1 Zeilen kopieren und in Tab2 einfügen
mehmet
Hallo Forum,
ich komme einfach nicht weiter.
Es sollen die Inhalte (Value) von Tab1 N110:U130 in Tab2 Spalte AA..:AN.. (Zeilen in gelb) eingefügt werden.
Es soll also in Tab1 Zelle N110 und Zelle O110 geguckt werden ob Zellen belegt sind.
Wenn beide Zellen belegt, dann soll Tab1 Zei...
24.10.2014 21:12:24
Thread-ID: 1388524
14 Beiträge
VBA Zeile einfügen und addieren
sara

Hallo zusammen,
habe folgende Tabelle:
Artikelnr -----Preis1-----Preis2
1101-----------1.000 ----- 1.000
1102-----------1.000 ----- 1.000
1113-----------1.000 ------ 1.000
1204----------- 200 ------ 200
1205----------- 200 ------ 200
1...
30.10.2014 11:01:52
Thread-ID: 1389536
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zeile per VBA einfügen oberhalb bestimmter Werte

Schritt-für-Schritt-Anleitung

Um in Excel mit VBA eine Zeile oberhalb bestimmter Werte einzufügen, kannst du folgendes Makro verwenden. Dieses Beispiel geht davon aus, dass die Produktnummern in Spalte B stehen und du eine Zeile für die Produktgruppen 1000-xxxx und 2000-xxxx einfügen möchtest.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
  3. Füge den folgenden Code ein:
Sub insert()
    Dim i As Long
    Dim myProdNr As String

    Application.ScreenUpdating = False

    For i = Cells(Rows.Count, "B").End(xlUp).Row To 2 Step -1
        myProdNr = Mid(Cells(i, "B").Value, 1, 5)

        If i = Cells(Rows.Count, "B").End(xlUp).Row Or myProdNr <> Mid(Cells(i + 1, "B").Value, 1, 5) Then
            Cells(i, "B").EntireRow.Insert
            Cells(i, "B").Value = "Produktgruppe " & myProdNr
        End If
    Next i

    Application.ScreenUpdating = True
End Sub
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Führe das Makro aus, indem du ALT + F8 drückst, das Makro wählst und auf Ausführen klickst.

Häufige Fehler und Lösungen

  • Problem: Das Makro fügt eine Zeile für jede Produktnummer ein.

    • Lösung: Stelle sicher, dass du den Code so anpasst, dass er nur eine Zeile für jede Produktgruppe einfügt. Die oben gezeigte Logik prüft, ob die Produktnummer sich ändert, bevor eine Zeile eingefügt wird.

  • Problem: Das Makro funktioniert nicht wie erwartet.

    • Lösung: Überprüfe, ob deine Excel-Version die Ausführung von Makros unterstützt und ob die Makros aktiviert sind.

Alternative Methoden

Anstelle von VBA kannst du auch die Funktion "Daten sortieren" in Excel verwenden, um die Produktnummern manuell zu gruppieren und dann eine Zeile oberhalb jeder Gruppe hinzuzufügen. Dies ist jedoch weniger automatisiert und erfordert mehr manuelle Eingaben.

Praktische Beispiele

Hier ist ein praktisches Beispiel, wie du den Code anpassen kannst, um die eingefügten Zeilen auch farblich zu formatieren:

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

    Application.ScreenUpdating = False

    For i = Cells(Rows.Count, "B").End(xlUp).Row To 2 Step -1
        myProdNr = Mid(Cells(i, "B").Value, 1, 5)

        If i = Cells(Rows.Count, "B").End(xlUp).Row Or myProdNr <> Mid(Cells(i + 1, "B").Value, 1, 5) Then
            Cells(i, "B").EntireRow.Insert
            Cells(i, "B").Value = "Produktgruppe " & myProdNr
            Cells(i, "B").Interior.ColorIndex = 6 ' Gelb
        End If
    Next i

    Application.ScreenUpdating = True
End Sub

Dieses Beispiel fügt eine gelbe Hintergrundfarbe für die neu eingefügten Zeilen hinzu.

Tipps für Profis

  • Verwende Option Explicit am Anfang deines Moduls, um sicherzustellen, dass alle Variablen deklariert sind. Dies verhindert Fehler durch Tippfehler in Variablennamen.
  • Teste dein Makro zuerst in einer Kopie deiner Datei, um unerwünschte Änderungen an deinen Originaldaten zu vermeiden.
  • Nutze die DoEvents-Anweisung, um sicherzustellen, dass Excel während der Ausführung des Makros nicht einfriert.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um mehr Produktgruppen einzufügen? Du kannst einfach weitere If-Bedingungen im Code hinzufügen, um weitere Produktgruppen zu berücksichtigen.

2. Funktioniert dieser Code in allen Excel-Versionen? Der VBA-Code sollte in den meisten modernen Excel-Versionen (z.B. 2010, 2013, 2016, 2019 und Office 365) funktionieren. Stelle sicher, dass deine Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige