Erste Zeile im Aktuellen Arbeitsblatt alle 5 Min. Copy in letzte Zeile per VBA

20/12/2010 - 18:07 von RogHB346 | Report spam
Hallo NG,
im folgenden Code kopiere ich die erste Zeile diese Blattes an dir
letzte Zeile

Sub Aktuelle_Zeile_Copy()
Range("A1:E1").Select
Selection.Copy

Sheets("Tabelle2").Range("A65536").End(xlUp).Offset(1, 0).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub

Wie lautet der Code wenn er alle 5 Minuten die erste Zeile zur letzten
Zeile kopieren soll.--

MfG - Heinz
Zum guten Glück gibt es keine blöden Fragen. Entweder weiß man nach
deren Beantwortung mehr oder man ist im Wissen stehen geblieben.
Anfànger in Excel - Nobodys perfekt (VBA Progm. Excel 2007)
 

Lesen sie die antworten

#1 Claus Busch
20/12/2010 - 19:15 | Warnen spam
Hallo Heinz,

probiere es mal so:

Option Explicit
Public ET As Variant

Sub Aktuelle_Zeile_Copy()
With Sheets("Tabelle1")
.Range("A1:E1").Copy
Sheets("Tabelle2").Range("A65536").End(xlUp).Offset(1, 0) _
.PasteSpecial xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With

ET = Now + TimeValue("00:05:00")
Application.OnTime ET, "Aktuelle_Zeile_Copy"

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen