Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

zeilen kopieren | Herbers Excel-Forum


Betrifft: zeilen kopieren von: Gerhard
Geschrieben am: 09.01.2010 11:05:50

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

  

Betrifft: AW: zeilen kopieren von: Hajo_Zi
Geschrieben am: 09.01.2010 11:09:04

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?

GrußformelHomepage


  

Betrifft: AW: zeilen kopieren von: Gerhard
Geschrieben am: 09.01.2010 12:23:33

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


  

Betrifft: AW: zeilen kopieren von: Hajo_Zi
Geschrieben am: 09.01.2010 12:42:58

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
GrußformelHomepage


  

Betrifft: AW: zeilen kopieren von: Gerd L
Geschrieben am: 09.01.2010 13:00:42

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


  

Betrifft: AW: zeilen kopieren von: Hajo_Zi
Geschrieben am: 09.01.2010 13:11:02

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


  

Betrifft: AW: zeilen kopieren von: Gerd L
Geschrieben am: 09.01.2010 13:20:54

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


  

Betrifft: AW: zeilen kopieren von: Gerhard
Geschrieben am: 09.01.2010 18:56:10

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

Gruß Gerhard


Beiträge aus den Excel-Beispielen zum Thema "zeilen kopieren"