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

Bestimmte Zellen in neu hinzugefügter Zeile einfügen

Forumthread: Bestimmte Zellen in neu hinzugefügter Zeile einfügen

Bestimmte Zellen in neu hinzugefügter Zeile einfügen
21.01.2025 09:41:11
Timo74074
Hallo,

ich hoffe auf eure Unterstützung.
Meine VBA Kenntnisse sind leider etwas eingerostet, oder besser gesagt sie stammen aus der Schulzeit die mittlerweile bereits einige Zeit zurück liegt.

Aufgabenbeschreibung:
Mittels einer Excelliste möchte ich die Bestellinformationen aufbereiten, um diese im Warenwirtschaftssystem (WaWi) zu verwenden.
Hierzu muss bei jeder Bestellung eine Zeile hinzugefügt werden, um die Transportkosten hinzuzufügen.

Aktueller Status:
Die Bestellungen werden täglich manuell aus einer CSV-Datei in die Spalten P bis AI eingefügt. ==>iO
Das Programm soll nun den Inhalt der Zellen A2:O2 ab Zeile 5 einfügen, solange wie in Spalte P die Zellen gefüllt sind. ==> funktioniert
Anschließend fügt das Programm immer dann eine neue leere Zeile ein, wenn die Bestellnummer in Spalte Q sich verändert ==> funktioniert

Problem:
Nun sollen die Formeln aus den Zellen A4:O4 in die neu eingefügten Zeilen kopiert werden ==> funktioniert nicht
Ich habe bereits viel experimentiert und eine Lösung im Netz gesucht.
Leider ohne Erfolg.

Daher wäre ich euch sehr verbunden, wenn Ihr eine Idee hättet, wie ich mein Problem lösen könnte.

Programm:
Userbild

Exceldatenblatt:
Userbild
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zellen in neu hinzugefügter Zeile einfügen
21.01.2025 10:26:07
Yal
Hallo Timo,

eine Datei, worauf man etwas basteln kann, wäre hilfreicher als Bilder, die man weder lesen noch verarbeiten kann.
Poste eine Datei, bereinigt von alles, was nicht im Internet zu sehen sein soll, aber trotzdem aussagekräftig. Dann bekommst Du sicher sofort Hilfe.

Ich wurde dazu tendieren, das Problem mit Power Query anstatt VBA ranzugehen. https://excelhero.de/power-query/power-query-ganz-einfach-erklaert

VG
Yal
Anzeige
AW: Bestimmte Zellen in neu hinzugefügter Zeile einfügen
21.01.2025 10:51:54
UweD
Hallo


versuche es mal so... 

...

    Ws.Rows(Zeile + 1).Insert

    Ws.Cells(4, 1).Resize(1, 15).Copy Ws.Cells(Zeile + 1, 1).Resize(1, 15)

...



LG UweD
AW: Bestimmte Zellen in neu hinzugefügter Zeile einfügen
21.01.2025 13:55:05
Timo74074
Hallo Uwe,

danke dir für das Beispiel.
Mit diesem werden die Zellen A4:O4 allerdings in jede darunter liegende Zelle kopiert.
Ziel sollte sein, den Inhalt dieser Zellen nur in die neu hinzugefügten Zeilen zu kopieren.

Hast du dafür ggf. eine Idee?
Anzeige
AW: Bestimmte Zellen in neu hinzugefügter Zeile einfügen
21.01.2025 14:37:10
UweD
Hallo

>>Ziel sollte sein, den Inhalt dieser Zellen nur in die neu hinzugefügten Zeilen zu kopieren.

das ist doch so. Nach dem Einfügen der neuen Zeile, wird genau dort der kopierte Bereich eingefügt

Ich habe in deinem bestehenden Makro genau an der einen Stelle den Code ergänzt.
Wenn du was anderes möchtest, dann lade bitte anstelle eines Bildes eine Musterdatei hoch,
am Besten mit "vorher" und "(händisch) so wie es aussehen soll".


LG UweD
Anzeige
AW: Bestimmte Zellen in neu hinzugefügter Zeile einfügen
21.01.2025 15:04:39
Timo74074
Tut mir leid.
Vielleicht habe ich es nicht korrekt ausgedrückt.

Ich hoffe die Datei hilft weiter:

https://www.herber.de/bbs/user/175003.xlsm


AW: Bestimmte Zellen in neu hinzugefügter Zeile einfügen
21.01.2025 18:05:49
UweD
Hallo

Ich denke, du beziehst dich auf dein Makro "Zeilen_kopieren_Bestellungen_2"

Solche Einfügungen macht man immer von unten nach oben..
Ich hab es mal umgeschrieben.
Es kommt zwar nicht das raus, was du händisch vorgegeben hast, aber ich denke da sind Fehler in deiner Vorgabe 

Sub Zeilen_kopieren_Bestellungen_2()

    Dim zeile As Long

    Dim ws As Worksheet

    Dim LzP As Long, LzA As Long

    

    Set ws = Sheets("Verkaufszeilen zum Importieren")

    With ws

        LzP = .Cells(.Rows.Count, 16).End(xlUp).Row

        LzA = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 'erste Freie Zeile in A

        Application.Calculation = xlManual 'automatische Berechnung aus

        .Range("A3:O3").Copy Range("A" & LzA & ":O" & LzP)

    

        For zeile = LzP + 1 To LzA + 1 Step -1

            If ws.Cells(zeile, 17).Value > ws.Cells(zeile - 1, 17).Value Then

                ws.Rows(zeile).Insert

                ws.Cells(4, 1).Resize(1, 15).Copy ws.Cells(zeile, 1).Resize(1, 15)

            End If

         

        Next

        Application.Calculation = xlAutomatic 'automatische Berechnung ein



    End With



End Sub


LG UweD
Anzeige

Forumthreads zu verwandten Themen

VBA Daten zentralisieren für weitere Verwendung
Tim

Hallo zusammen,
ich bin anscheinend zu dämlich nen Thread aus dem Archiv zurück zu holen, bitte steinigt mich nicht. Ich verzweifel momentan an etwas denkbar einfachem und komme mir derweil auch etwas blöd vor. Und zwar verzweifel ich an copy/paste/range.
Im anderen Thread wurde es mi...
15.07.2019 16:22:36
Thread-ID: 1702581
8 Beiträge
Erweitern einer Formel über VBA
Niko
Hallo zusammen,

so langsam stoße ich an meine Grenzen bezüglich Excel und VBA.

Kurze Beschreibung:

Meine Userform2 beinhaltet eine TextBox1 und einen CommandButton1. Über VBA soll nun nach betätigen des Button1 geprüft werden, ob der Eintrag in der TextBox1 in der Tabelle...
10.04.2024 19:23:15
Thread-ID: 1972973
25 Beiträge
Abgleich von Daten
Daten

Hallo,
ich habe ein Problem mit einem VBA Code.
Es sollen mehrere Prüfungen erfolgen.
Hallo,
ich habe leider ein VBA-Problem.
Ich möchte gerne zwei Tabellen miteinander vergleichen.
Es gibt drei Spalten mit jeweils 5 Zeilen (als Beispiel). Tabelle1 als "Historie" und Tab...
11.05.2016 14:06:42
Thread-ID: 1492749
1 Beitrag
VBA-Prüfung nach vergessenen Zellen
Sandra

Hallo zusammen,
zuerst einmal "EIN FROHES UND GESUNDES NEUS JAHR!!!"....
Ich bin schon wieder einmal dringend auf Eure Hilfe angewiesen.
Dank Euch habe ich folgendes Makro:
Option Explicit Sub Maengelliste_SKH() Dim oXlSM As Workbook, oXML As Workbook Dim nIndexXLSM, nIndexXML,...
08.01.2015 11:55:34
Thread-ID: 1401386
10 Beiträge
Hilfestellung für Schleife in VBA
Lara
Hallo zusammen,
ich arbeite gerade an einer Einsatzplanung unserer Mitarbeiter fürs nächste Jahr. Da auf die Datei alle Führungskräfte Zugriff haben will ich Sie so gut es geht Idiotensicher machen, sonst zerhauen die alles schneller als ich es wieder zurecht rücken kann.
In der Excel gibt...
22.10.2021 10:41:20
Thread-ID: 1853030
4 Beiträge
Anzeige
Zeile per Makro einfügen
Mola

Hallo liebe Forumgemeinde,
es regnet und nun ja, widme ich eben mal wieder meinen bescheidenen VBA-Wissen - kurz: habe mal wieder ein kleines Problem, wo ich Hilfe benötige...
Ich habe eine Tabelle in der zum Beispiel in der Zelle D17 "Plan1" steht. In B17 habe ich einen cmd-Button ein...
01.10.2005 17:29:22
Thread-ID: 675486
4 Beiträge
Übereinstimmung suchen und fehlende Einfügen
Benedikt

Hallo liebes Forum,
ich habe mal wieder ein Problem und komme mit meinen bescheidenen VBA Skills einfach nicht weiter.
Und zwar sieht meine Datei folgendermaßen aus:
2 Tabellenblätter
1. Checklist:
in Spalte A ist jeder Zeile eine Nummer zugeordnet
2. Status
in S...
28.11.2016 14:12:26
Thread-ID: 1527571
1 Beitrag
Hyperlink übernehmen
Jan

Ich bin absoluter Anfänger und habe ein Problem mit einem bestehenden VBA-Code
Beschreibung: Das Programm kopiert Daten von verschiedenen Datenblättern in ein anderes Datenblatt (Zusammenfassung). Unter anderem befinden sich darunter auch Hyperlinks.
Problem: Die Hyperlinks werden nur a...
21.08.2020 12:39:22
Thread-ID: 1778052
1 Beitrag
VBA / Tabellenblätter global mutieren
AdiDC

Hallo Zusammen
Ich stehe vor folgendem Problem, welches - so nehme ich schwer an - nur mittels VBA gelöst werden kann. Und da ich mich nicht als VBA-Spezialist bezeichnen kann, wende ich mich mit Hoffnung an euch, dass ihr mir weiterhelfen könnt:
Ausgangslage:
Meine Anlagebuchhaltun...
29.04.2020 12:35:17
Thread-ID: 1755627
3 Beiträge
Zeilen variabel einfügen
Bernie42

Hallo,
ich habe in meiner Tabelle einen VBA-Code eingefügt, damit ich mittels einer Schaltfläche Zeilen einfügen kann.
Hier der VBA-Code
Range("A8").Select
Application.Goto Reference:="R65536C1"
Selection.End(xlUp).Select
ActiveWindow.SmallScroll Down:=-9
...
01.11.2005 15:12:22
Thread-ID: 689757
1 Beitrag
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum