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

Beiträge aus den Excel-Beispielen zum Thema " erkennen ob Listbox da"