Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Anweisung ohne >Select<

Forumthread: Anweisung ohne >Select<

Anweisung ohne >Select<
Markus
Liebe Leute,
kann mir jemand sagen, wie ich die nachfolgende Anweisung ohne >Select Gruß Markus
Code:
Sheets("Ergebnis").Select
Range("Ergebnis_Row").Select
Rows(ActiveCell.Row - 1).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Anweisung ohne >Select<
30.08.2010 12:16:45
Hajo_Zi
Hallo markus,
ich habe es jetzt nicht nachgebaut.

Option Explicit
Sub Test()
With Sheets("Ergebnis")
With .Rows(.Range("Ergebnis_Row").Row - 1)
.Copy
.Insert Shift:=xlDown
End With
End With
Application.CutCopyMode = False
End Sub

Anzeige
AW: Anweisung ohne >Select<
30.08.2010 12:22:18
Rudi
Hallo,
with sheets("Ergebnis")
with .rows(.Range("ergebnis_row").row-1)
.copy
.insert shift:=xldown
end with
end with
Gruß
Rudi
AW: Anweisung ohne >Select<
30.08.2010 12:38:54
Markus
Hallo Hajo, hallo Rudi,
vielen Dank für die schnelle Hilfe. So macht das Spaß.
Gruß Markus
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige