zeilen kopieren | Herbers Excel-Forum

Forumthread: zeilen kopieren | Herbers Excel-Forum
7 Beiträge zu diesem Forumthread
Anzeige

Forumthread: zeilen kopieren

zeilen kopieren

09.01.2010 12:05:50

Gerhard

Hallo,
Bitte um VBA Hilfe
Wie kann ich von der aktiven Zeile eine definierte Anzahl von Zeilen kopieren?
Beispiel:
Die Zelle B10 ist markiert
jetzt möchte ich die komplette Zeile 10 über Eingabe von z.B 50
also 50 Zeilen nach unten kopieren!
Vielen Dank für Eure Hilfe

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: zeilen kopieren

09.01.2010 12:09:04

Hajo_Zi
AW: zeilen kopieren

09.01.2010 13:23:33

Gerhard
AW: zeilen kopieren

09.01.2010 13:42:58

Hajo_Zi
AW: zeilen kopieren

09.01.2010 14:00:42

Gerd L
AW: zeilen kopieren

09.01.2010 14:11:02

Hajo_Zi
AW: zeilen kopieren

09.01.2010 14:20:54

Gerd L
AW: zeilen kopieren

09.01.2010 19:56:10

Gerhard

AW: zeilen kopieren

09.01.2010 12:09:04

Hajo_Zi

Hallo Gerhard,
Soll die Zeile 10 in Zeile 50 Kopiert werden?
Soll die Zeile 10 von Zeile 11 bis Zeile 50 Kopiert werden?
Soll die Zeile 10 50 mal vor der Zeile 11 eingefügt werden?

AW: zeilen kopieren

09.01.2010 13:23:33

Gerhard

Die Zeile 10 soll von Zeile 11
50mal kopiert werden also im Beispiel bis Zeile 60
Vielen Dank
Gruß Gerhard

AW: zeilen kopieren

09.01.2010 13:42:58

Hajo_Zi

Hallo Gerhard,

Option Explicit
Sub Gerhard()
If Selection.Rows.Count = 1 Then
Dim Lozeile As Long
'Inputbox mit Type 1 laesst nur Zahlen als Eingabe zu.
Lozeile = Application.InputBox("Wie oft soll die Zeile kopiert werden", "Zeilenanzahlk", _
1, Type:=1)
If Lozeile > 0 Then
Application.ScreenUpdating = False
ActiveCell.Rows.Copy Destination:=Rows(ActiveCell.Row & ":" & ActiveCell.Row +  _
Lozeile)
Application.ScreenUpdating = True
End If
End If
End Sub

AW: zeilen kopieren

09.01.2010 14:00:42

Gerd L

Hallo Gerhard!

Sub ab()
Dim x
x = Application.InputBox("Wieviele Zeilen einfügen?", "Aus aktiver Zeile kopieren", 1, Type:=1)
If x > 0 Then
With ActiveCell
Rows(.Row + 1 & ":" & .Row + Int(x)).Insert shift:=xlDown
Rows(.Row).Copy (Rows(.Row + 1 & ":" & .Row + Int(x)))
Application.CutCopyMode = False
End With
End If
End Sub

Gruß Gerd

AW: zeilen kopieren

09.01.2010 14:11:02

Hajo_Zi

Hallo Gerd,
darum mein erster Beitrag. Deine Zeilen werden eingefügt. Gerhard hatte aber geschrieben

50mal kopiert werden also im Beispiel bis Zeile 60

Gruß Hajo

AW: zeilen kopieren

09.01.2010 14:20:54

Gerd L

Hallo Hajo,
das macht auch eher Sinn, wenn in einer bereits bestehenden Liste zwischendrin ergänzt werden soll.
Warten wir einfach die Rückmeldung ab.
Gruß Gerd

AW: zeilen kopieren

09.01.2010 19:56:10

Gerhard

Hallo zusammen,
Vielen Dank für Eure Hilfe,
das Makro von Gerd ist das was ich wollte
Gruß Gerhard

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