Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1608to1612
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
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach jedem Statuswechsel 4 Zeilen einfügen

Nach jedem Statuswechsel 4 Zeilen einfügen
28.02.2018 16:43:19
Jockel
Hallo,
ich habe eine Große Liste in Excel mit ca 10000 DS.
Wenn die Liste nach Spalte D sortiert wird, findet man in der Spalte D immer so 4-7 DS, die den gleichen Kenner haben. Danach kommt ein neuer Kenner.
Ich brauche nun nach jedem Bock, also wenn in der Spalte D ein neuer Kenner beginnt, 4 Leerzeilen.
Ich könnte das natürlich manuell machen.
Gibt es jemand, der da mit VBA eine Lösung hat
Danke
Jockel

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

Betreff
Datum
Anwender
Anzeige
AW: Nach jedem Statuswechsel 4 Zeilen einfügen
28.02.2018 16:50:26
Hajo_Zi
Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.

AW: Nach jedem Statuswechsel 4 Zeilen einfügen
28.02.2018 16:54:44
UweD
Hallo
so?
Sub Leer()
    Dim Tb, LR As Double, i As Double, Sp As Integer, Anz As Integer, Letzte As Double
    
    Set Tb = Sheets("Tabelle1")
    Sp = 4 'Spalte D 
    Anz = 4 'Leerzeilen 

    LR = Tb.Cells(Tb.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte 
    Letzte = LR
    For i = LR To 2 Step -1
        If Tb.Cells(i, Sp) <> Tb.Cells(i - 1, Sp) Then
            Tb.Rows(Letzte + 1).Resize(Anz).Insert xlDown
            Letzte = i - 1
        End If
    Next
End Sub

LG UweD
Anzeige
Vielen dank Uwe, geht perfekt owT
28.02.2018 17:03:26
Jockel
Prima! Danke für die Rückmeldung. owT
01.03.2018 08:44:48
UweD
AW: Nach jedem Statuswechsel 4 Zeilen einfügen
28.02.2018 17:11:41
Daniel
HI
das kann man auch manuell schnell und einfach lösen:
1. kopiere nach dem Sortieren die Kenner aus Spalte D in die erste freie Spalten am Tabellenende (z.B. Spalte X)
2. kopiere die Kenner nochmal in die nächste Spalte (Y)
3. wende auf die Spalte Y (und bitte nur auf die Spalte Y) die Funktion DATEN - DATENTOOLS - DUPLIKATE ENTFERNEN an
4. kopiere die übrig gebliebenen Werte der Spalte Y und füge sie nacheinander 4x unter die Spalte X ein.
Du kannst auch beim Einfügen den Bereich so selektieren, dass er 4x so groß ist wie der kopierte Bereich, dann werden die Daten entsprechen vervielfacht.
5. Sortiere die Liste nach Spalte X
6. lösche die Spalte X und Y wieder
geht natürlich auch als Makrocode, ich gehe mal davon aus, dass die Zeile 1 eine Überschriftenspalte ist: 
Sub Zwischenzeilen_Einfügen()
Dim S1 As Long
Dim S2 As Long
S1 = ActiveSheet.UsedRange.Columns.Count + 1
S2 = S1 + 1
ActiveSheet.UsedRange.Sort key1:=Cells(1, 4), order1:=xlAscending, Header:=xlYes
Columns(4).Copy Columns(S1).Resize(, 2)
Columns(S2).RemoveDuplicates 1, xlYes
With Range(Cells(2, S2), Cells(1, S2).End(xlDown))
.Copy Cells(1, S1).End(xlDown).Offset(1, 0).Resize(.Rows.Count * 4)
End With
ActiveSheet.UsedRange.Sort key1:=Cells(1, S1), order1:=xlAscending, Header:=xlYes
Columns(S1).Resize(, 2).Clear
End Sub

Anzeige

304 Forumthreads zu ähnlichen Themen

Einfügen mit jeder 2. Zeile als Leerzeile
Ulrich

Hallo zusammen,
wie kann ich einen Bereich einer Tabellen markieren, kopieren und in einem anderen Tabellenblatt über "Inhalte einfügen" und "verknüpfen" automatisch mit jeder zweiten Zeile als Leerzeile versehen, ohne das die Verknüpfung verrutscht?
Danke im Voraus und Grüße,
Ulr...
26.08.2008 14:15:00
Thread-ID: 1004799
4 Beiträge
Anzeige
Jede 2. Zeile einfärben
Frank

Hallo und Guten Abend Zusammen!
Mit folgendem Code
Sub Zeilen_formatieren() Sheets("DATEN").Activate Range("A14:K65536").Select For Zeile = 1 To Selection.Rows.Count If Zeile Mod 2 > 0 Then Selection.Rows(Zeile).Interior.ColorIndex = 15 End If Next Zeile End Sub
kann ich jede z...
17.01.2009 19:20:00
Thread-ID: 1040966
4 Beiträge
Jede 2. Zeile Hintergrund ändern
Blum

Hallo zusammen
Habe da noch eine Frage.
In Excel kann man doch jede 2. Zeile anders darstellen, so dass das lesen von grossen Dateien einfacher wird.
z.B. 1. Zeile weiss, 2. Zeile hellgrün, 1. Zeile weiss, 3 wieder hellgrün usw.
Hemm weiss jemand noch wie das automatisiert geht?...
25.06.2009 17:40:07
Thread-ID: 1084417
6 Beiträge
Anzeige
Jede zweite Zeile ausblenden
kleinerfinger

Guten Morgen, ich hoffe das Wetter bei euch ist etwas besser als bei mir !
Ich möchte per VBA über einen Button von der Zeile 8 bis zur Zeile 1000 jede zweite Zeile ausblenden und über einen anderen Button wieder einblenden.
Wie lautet der Code dafür?
Danke für eure Bemühungen im Vo...
27.10.2009 08:18:15
Thread-ID: 1112393
3 Beiträge
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
Makro zum löschen jeder 2. Zeile
philG

Hallo liebe Herber-Gemeinde,
ich habe ein Problem: elend Lange Tabelle, wo ich die 1., 3., 5. Zeile usw. löschen muss.
Kann mir jemand mit einem VB-Befehl aushelfen, der jede 2. Zeile der Tabelle löscht?
Ich wäre suuperhappy! Habt vielen Dank im Voraus! :-)
05.01.2010 10:26:46
Thread-ID: 1127199
4 Beiträge
checkbox in leere zeile einfügen
tatü

Hallo Forum.
Ich möchte in eine Tabelle unter die letzte beschriebene Zeile in der "B" Spalte eine Checkbox einfügen.
Die Checkbox soll in Zeile "A" stehen.
Unten stehenden Code habe ich schon gefunden. Das Makro fügt aber immer in einer festen Zeile, hier die Zeile 6 eine neue Ze...
16.02.2010 19:15:43
Thread-ID: 1139028
4 Beiträge
Makro: jede zweite Zeile andersfarbig
Holger

Hallo,
aus diesem Forum habe ich unten stehendes Makro gefischt.
Funktioniert soweit alles, nur sobald durch AutoFilter die Auswahl verändert wird,
gerät natürlich alles durcheinander. Mit einer bedingten Formatierung möchte ich es ungern
lösen, mir ist eine reine VBA Lösung li...
07.05.2010 16:37:55
Thread-ID: 1156123
4 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
3
4
3
5
4
2
2
3
3
3
2
1
2
6
1
8
1
3
16
3
6
7
3
6
4