Live-Forum - Die aktuellen Beiträge
Datum
Titel
02.05.2024 18:17:15
Button fixieren
02.05.2024 17:27:11
Größten/höchsten Buchstaben einer Spalte anzeigen
02.05.2024 16:39:02
Daselbe VBA auf unterschiedlichen Betriebsystemen ausführen
02.05.2024 15:54:49
Dateiexplorer öffnet sich bei Formeleingabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1940to1944
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1940to1944
1940to1944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile einfügen wenn

Zeile einfügen wenn
18.08.2023 09:38:58
Iris
Hallo,
ich versuche zur Zeit, aus einem System exportierte Daten in einer Form aufzubereiten, damit ich diese - um weitere Infos ergänzt - wieder ins System zurückspielen kann.
Für den Export habe ich eine genaue Strukturvorgabe.
Aus einer einfachen Liste muss ich die Details in Kopf- und Positionszeilen umschlüsseln. Dazu hole ich im Blatt MI04 die Positionsdaten (Spalte A = "D") aus der Ursprungstabelle. Jedesmal, wenn der Inhalt in Spalte B sich ändert, muss eine Zeile davor eingefügt werden, wo in Spalte A dann "H" stehen muss und der Inhalt aus der darunterliegenden Zelle in Spalte D eingegeben wird.
https://www.herber.de/bbs/user/162368.xlsx
Hat jemand von euch eine Idee, wie ich das meinem File beibringen kann?
Wäre echt super, wenn da jemand einen Tipp für mich hätte.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile einfügen wenn
18.08.2023 09:54:29
UweD
Hallo

den Code in ein normals Modul 
Sub Inventur()

    Dim TB As Worksheet, LR As Long, i As Long

    Dim SP As Integer, Z1 As Integer

    Dim GJ As Integer, Datum As Date

    

    Set TB = Sheets("Tabelle2")

    Z1 = 2 'erste Zeile mit DAten

    SP = 2 'Spalte B

    GJ = 2023

    Datum = "31.07.2023"

    

    With TB

        LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte

    

        For i = LR To Z1 Step -1

            If .Cells(i - 1, SP) > .Cells(i, SP) Then

                .Rows(i).Insert

                .Cells(i, 1) = "H"

                .Cells(i, 2) = .Cells(i + 1, 2)

                .Cells(i, 3) = GJ

                .Cells(i, 4) = Datum

                

            End If

        Next

    End With

End Sub

LG UweD
Anzeige
Zeile einfügen wenn
18.08.2023 10:27:41
Iris
@UweD Danke Uwe, das hat perfekt funktioniert. Habe noch die Werte 2023 und "31.07.2023" in Zellbezüge geändert, damit es für die Nutzer meines Files noch einfacher wird
lg Iris
Zeile einfügen wenn
18.08.2023 10:18:54
daniel
Hi
von Hand (VBA-nein) so:
1. kopiere die Werte aus Spalte B und füge sie in Spalte B unterhalb der Daten als WERT wieder ein.
2. führe mit den eingefügten Werten die Funktion DATEN - DATENTOOLS - DUPLIKATE ENTFERNEN aus.
3. Schreibe die benötigten Inhalte dazu, bspw in die Spalte das H und in Spalte C das Jahr usw und färbe diese Zeilen gelb
4. sortiere jetzt die ganze Liste nach Spalte B und Werten aufsteigend als erste Ebene. Als zweite Ebene verwendest du ebenfalls die Spalte B, sortierst aber nach Zellfarbe und gibst an "gelb oben"
Gruß Daniel
Anzeige

300 Forumthreads zu ähnlichen Themen

wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
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
Anzeige
Mit Makro eine neue Zeile einfügen
Richard

Hallo zusammen,
ich wollte über Makro eine neue Zeile einfügen lassen welche dann aber auch alle Formeln
der darüber liegenden Zeile übernimmt. Diese Funktion sollte dann aber auch immer wieder benutzt
werden können so das immer eine neue Zeile entsteht.
Könnt ihr mir vielleich...
21.01.2010 13:10:01
Thread-ID: 1131758
4 Beiträge
wenn a1 leer, dann ganze zeile löschen
Hajo
Hallo Andreasich vermute mal Du kennst Dich mit VBA aus und kannst eins der folgenden Makros Dir anpassen.129. löschen wenn Spalte A kein Datum enthält
folgender Vorschlag (die Spalte A wird auf Datumsinhalte überprüft):
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step –1
If Not IsDa...
16.04.2002 20:58:38
Thread-ID: 113877
5 Beiträge
Sortieren und dann Zeilen einfügen!
Stut

Hallo Liebe Leute,
ich möchte per VBA eine Tabelle Erst nach Priorität und dann nach Artikelnr. Sortieren.
Danach soll nach jedem unterschiedlichen Artikel eine Zeile eingefügt werden.
Wie muss ich hier Code technisch vorgehen?
Beispieltabelle:
Kunde Prio...
01.04.2010 12:16:51
Thread-ID: 1149766
8 Beiträge
Zellen ausfüllen wenn Bedingung erfüllt (per VBA)
Jessi

Hallo zusammen,
ich habe mal wieder eine Frage bzw. ein Problem, dass ich nicht selbst lösen kann.
Ich lasse per Userform in die Spalte B einen "String" schreiben, das funktioniert auch schon (nicht in Beispielmappe integriert)
Beispielmappe:
https://www.herber.de/bbs/user/6928...
28.04.2010 19:30:32
Thread-ID: 1154354
4 Beiträge
Zellen löschen wenn Bedingung erfüllt ist
Kathi

Hallo zusammen,
zunächst einmal vielen Dank für die vielen tollen Beiträge, die mir schon sehr weitergeholfen haben. Leider stehe ich derzeit vor folgendem Problem (versuche, mich kurz zu fassen):
- habe Fragebogen erstellt, der in Excel eingegeben wird (Optionsfelder)
- insgesamt g...
02.06.2010 10:46:08
Thread-ID: 1159977
3 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
7
3
1
2
3
4
7
3
2
2
1
3
3
5
5
3
2
2
2
8
1
2
9
16