Bereich einfügen
20.10.2007 17:27:00
Ernst
Ich möchte die Zeile 58 bis 74 kopieren und unter der letzt benutzten Zeile einfügen. Was habe ich im code unten falsch gemacht?
Mit freundlichen Grüßen
Ernst Dunkel
Option Explicit
Dim LRow As Range
Private Sub CommandButton6_Click() 'Bereich unter letzte Zeile einfügen
Rows("58:74").Select
Selection.EntireRow.Hidden = False
Selection.Copy
Set LRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count)
LRow.Select
ActiveSheet.Paste
End Sub
Anzeige