Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

Makro

  • Makro von Regina vom 19.11.2003 14:14:49
Bild

Betrifft: Makro
von: Regina
Geschrieben am: 19.11.2003 14:14:49
Hallo !!

Ich habe folgendes Makro erstellt.



Sub Makro4()
' Makro4 Makro
' Makro am 19.11.2003 von Regina Fischer-Röttgers aufgezeichnet
' Tastenkombination: Strg+q
Selection.Copy
Sheets("Trend").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3").Select
Sheets("Friedel").Select
Application.CutCopyMode = False
End Sub


Nun möchte ich aber nicht, dass der Zellrahmen auf A3 stehen bleibt, sondern immer die nächste freie Zelle benutzt. Was muss ich da (ich denke bei Range )ändern, damit mein Rechner dies macht ?

Gruss
Regina
Bild

Betrifft: AW: Makro
von: WernerB.
Geschrieben am: 19.11.2003 14:23:35
Hallo Regina,

mein Vorschlag:


Sub Makro4()
' Makro4 Makro
' Makro am 19.11.2003 von Regina Fischer-Röttgers aufgezeichnet
' Tastenkombination: Strg+q
Dim laR As Long
Selection.Copy
Sheets("Trend").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
laR = Cells(Rows.Count, 1).End(xlUp).Row
Range("A" & laR + 1).Select
Sheets("Friedel").Select
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Bild