Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1648to1652
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
Inhaltsverzeichnis

Wenn Zeile leer dann 2 mal kopieren

Wenn Zeile leer dann 2 mal kopieren
08.10.2018 07:39:36
glupki
Hallo,
ich brauche einen Code der alle Zeilen aus Spalte B (kann variable länge haben) 2x kopiert in Zeile F. Dabei sollten aber die beiden gleichen Zeilen untereinander stehen.
Lg

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

Betreff
Datum
Anwender
Anzeige
AW: Wenn Zeile leer dann 2 mal kopieren
08.10.2018 07:57:06
Gerd
Moin, dein Betreff u. Text differieren.
Sub egal()
Dim Zelle As Range, Zeile As Long
Zeile = 2
For Each Zelle In Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
Zelle.Copy Cells(Zeile, 6)
If Cells(Zeile, 6) = "" Then Zelle.Offset(-1, 0).Copy Cells(Zeile, 6)
Zeile = Zeile + 1
Next
End Sub

Gruß Gerd
AW: Wenn Zeile leer dann 2 mal kopieren
08.10.2018 11:13:03
glupki
der Code funktioniert bei mir leider nicht :-/
AW: Wenn Zeile leer dann 2 mal kopieren
08.10.2018 11:13:39
glupki
der Code funktioniert bei mir leider nicht :-/
AW: Wenn Zeile leer dann 2 mal kopieren
08.10.2018 11:26:18
Daniel
Hi
Dim Zelle As Range
For Each Zelle In Columns(2).SpecialCells(xlCellTypeConstants, 3)
Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).Resize(2).Value = Zelle.Value
Next

Gruß Daniel
Anzeige
AW: Wenn Zeile leer dann 2 mal kopieren
08.10.2018 12:26:59
Ludwig
Versuche mal zu zeigen wie die Lösung am Ende aussehen soll, dann lässt es sich leichter nachvollziehen. Oder Beispieldatei posten. Sollte Gerd bereits den richtigen Code gepostet haben, kann mein Post getrost ignoriert werden ;)

354 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige