Herbers Excel-Forum - das Archiv
Makro
- Makro von Regina vom 19.11.2003 14:14:49
- AW: Makro - von WernerB. am 19.11.2003 14:23:35
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
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).