Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1168to1172
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

Duplizieren

Duplizieren
Ben
Hallo Zusammen,
ich möchte gerne Zeilen duplizieren. Dabei sollte es so möglich sein, dass ich markierte Zeilen, durch ein Makro oder ähnliches, dublizieren. Dabei soll es so sein, dass die Zeilen doppelt unter einander stehen. . Eine automatische Lösung wäre toll, da es um die 1000 Zeilen sind. Vielen dank.
Gruß

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

Betreff
Benutzer
Anzeige
AW: Duplizieren
02.08.2010 14:03:15
ChrisL
Hi Ben
Quick and dirty...
Sub Makro1()
Dim i As Long
For i = 1 To 1000
Selection.Copy
Selection.Insert Shift:=xlDown
Next i
End Sub

cu
Chris
AW: Duplizieren
02.08.2010 14:33:00
JogyB
Hallo Ben,
teste das mal:
Sub einFügen()
Dim zeiLen() As Long
Dim tempRow As Long
Dim zeLLe As Range
Dim testBereich As Range
Dim i As Long
Dim k As Long
Application.ScreenUpdating = False
Set testBereich = Intersect(Columns(1), Selection.EntireRow)
ReDim zeiLen(1 To testBereich.Cells.Count)
' Zeilen auslesen
For Each zeLLe In Intersect(Columns(1), Selection.EntireRow)
i = i + 1
zeiLen(i) = zeLLe.Row
Next
' absteigend Sortieren - Bubblesort
For i = 1 To UBound(zeiLen)
For k = i To UBound(zeiLen)
If zeiLen(i) 
Gruß, Jogy
Anzeige
AW: Duplizieren
03.08.2010 15:20:27
Ben
Vielen Dank. Hat wunderbar funktioniert.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige