Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1256to1260
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
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile einfügen wenn Bedingung erfüllt ist.

Zeile einfügen wenn Bedingung erfüllt ist.
Arthur
Hallo zusammen
Ich habe hier eine riesige Liste mit vielen Spalten und vorallem Zeilen:
B1
012.03000
012.14570
025.25689
124.35689
124.47874
222.45788
222.68974
222.56897
also aufsteigend sortiert.
Wie kann ich ein Makro erstellen, dass in der Spalte B1 alles durchschaut und immer nach einer Gruppe z.B. 012......er "zwei Zeilen" einfügt, bevor dann die nächste Gruppe, alle 025.....er Einträge erscheinen.
Was dann so aussehen würde:
B1
012.03000
012.14570
025.25689
124.35689
124.47874
222.45788
222.68974
222.56897
Von Hand gehts natürlich, aber es sind mehrere 10'000 Zeilen... :-(
Kann mich damit jemand unterstützen, bin für jede Hilfe dankbar!
Vielen Dank
Arthur

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

Betreff
Benutzer
Anzeige
AW: Zeile einfügen wenn Bedingung erfüllt ist.
17.04.2012 23:10:47
Dieter
Hallo Arthur,
du kannst das mit dem folgenden VBA-Programm machen:
Sub LeerzeilenEinfügen()
Dim altNr As String
Dim letzteZeile As Long
Dim neuNr As String
Dim ws As Worksheet
Dim zeile As Long
Set ws = ActiveSheet
altNr = Left$(ws.Range("B1"), 4)
zeile = 1
Do Until IsEmpty(ws.Cells(zeile, "B"))
neuNr = Left$(ws.Cells(zeile, "B"), 4)
If neuNr  altNr Then
' Leerzeile einfügen
ws.Rows(zeile).Resize(2).Insert
zeile = zeile + 1
altNr = neuNr
End If
zeile = zeile + 1
Loop
End Sub
Voraussetzung:
Die Daten beginnen in Spalte B in Zeile 1 und sind in Spalte B lückenlos.
Viele Grüße
Dieter
Anzeige
AW: Zeile einfügen wenn Bedingung erfüllt ist.
18.04.2012 18:26:10
Arthur
Vielen Dank Dieter
Es klappt, wow! Kannst du mir dieses Makro abändern, dass ich eine Range auswählen kann?
Die Daten fangen nicht bei B1 an, sondern von B6:B43563..
Geht das?
Gruss
Arthur
AW: Zeile einfügen wenn Bedingung erfüllt ist.
19.04.2012 08:38:58
Dieter
Hallo Arthur,
das Programm sieht dann folgendermaßen aus:
Sub LeerzeilenEinfügen()
Dim altNr As String
Dim anzLZ As Long       ' Anzahl der einzufügenden Leerzeilen
Dim letzteZeile As Long
Dim neuNr As String
Dim startZeile As Long
Dim ws As Worksheet
Dim zeile As Long
startZeile = 6
anzLZ = 2
Set ws = ActiveSheet
altNr = Left$(ws.Cells(startZeile, "B"), 4)
zeile = startZeile
Do Until IsEmpty(ws.Cells(zeile, "B"))
neuNr = Left$(ws.Cells(zeile, "B"), 4)
If neuNr  altNr Then
' Leerzeilen einfügen
ws.Rows(zeile).Resize(anzLZ).Insert
zeile = zeile + anzLZ
altNr = neuNr
End If
zeile = zeile + 1
Loop
End Sub
Über die Variable startZeile gibst du an, in welcher Zeile deine Daten beginnen. Mit Hilfe von anzLZ bestimmst du, wieviele Leerzeilen jeweils eingefügt werden sollen.
Viele Grüße
Dieter
Anzeige
AW: Zeile einfügen wenn Bedingung erfüllt ist.
18.04.2012 00:32:28
Reinhard
Hallo Arthur, 
Sub tt()
Dim Zei As Long
Application.ScreenUpdating = False
For Zei = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
If Left(Cells(Zei, 2).Value, 3)  Left(Cells(Zei - 1, 2).Value, 3) Then
Rows(Zei & ":" & Zei + 1).Insert
End If
Next Zei
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard
AW: Zeile einfügen wenn Bedingung erfüllt ist.
18.04.2012 18:31:51
Arthur
und es funktioniert!
Vielen vielen Dank.
Gruss
Arthur

148 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
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
Zeilen einfügen wenn
Werner

Hallo zusammen,
vorweg, ich habe im Archiv nichts gefunden dass mir weiterhilft.
Für manch einen vielleichrt ganz einfach.
Meine Daten stehen alle untereinander in Spalte A.
Ich suche eine VBA Lösung (Macro), welches mir nach jeder leeren Zeile, 4 weiter leere Zeilen einfügt.
20.12.2010 15:30:41
Thread-ID: 1192236
4 Beiträge
wenn dann neue zeile einfügen --> als Makro
Jan

Hallo Jungs und Mädels,
ich, als VBA Neuling, habe ein Problem mit einer ExcelTabelle, bei dem ich alleine nicht mehr weiterkomme.
Angenommen, in A2 steht =Summe(D1:D35), in B2 steht irgendwas, und wenn in C2 eine "2" steht, soll eine neue Zeile eingfügt werden. [Fall1]
"...
02.05.2011 14:18:11
Thread-ID: 1212646
6 Beiträge
Anzeige

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
4
7
3
2
3
5
3
2
8
9
1
3
4
11
4
7
1
3
1
3
3