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

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige