Zeilen kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Zeilen kopieren
von: dirk
Geschrieben am: 04.06.2002 - 14:11:14

Hi Leute,
ich habe folgende Zeile in einem Makro,

Selection.EntireRow.Insert

funktioniert auch ganz toll.

Jetzt hätte ich gerne sowas:

Selection.EntireRow.Paste

funktioniert aber nicht.
Hat jemand eine Idee???
Gruß Dirk

nach oben   nach unten

Re: Zeilen kopieren
von: Harald Kapp
Geschrieben am: 04.06.2002 - 14:30:59

Hallo Dirk,
hier ein Beispiel mit fester Zielzeile:

sub test()
   Selection.EntireRow.Copy
   Rows("7:7").Select
   ActiveSheet.Paste Destination:=ActiveSheet.Range("8:8")
end sub

Gruß Harald

nach oben   nach unten

brauchs mit relativer
von: dirk
Geschrieben am: 04.06.2002 - 14:49:59

Danke,
aber der Zielbereich darf nicht fest sein
das makro sieht so aus:

Private Sub CommandButton3_Click()
Worksheets("2").Rows(16023).Copy

Sheets("1").Select
Columns("A:A").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Select

Selection.EntireRow.Insert (hier muss die pastesache stehen)
End Sub

nach oben   nach unten

Re: brauchs mit relativer
von: WernerB.
Geschrieben am: 04.06.2002 - 19:06:04

Hallo Dirk,

meinst Du so etwas?
Teste doch mal diesen Code:


Option Explicit
Private Sub CommandButton3_Click()
Dim laR As Long
    laR = Sheets("1").Cells(Rows.Count, 1).End(xlUp).Row
    If laR = 1 And IsEmpty(Sheets("1").Cells(1, 1)) Then laR = 0
    Sheets("2").Rows(16023).Copy
    Sheets("1").Rows(laR + 1).PasteSpecial Paste:=xlAll, _
      Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Viel Erfolg wünscht
WernerB.
 nach oben

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