Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro

Forumthread: Makro

Makro
19.11.2003 14:14:49
Regina
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
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro
19.11.2003 14:23:35
WernerB.
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).
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige