Markierte Zellen in nächste freie Zeile kopieren

[00202]

Hallo Johannes, :19:

probiere es mal so: :21:

Code:

Option Explicit
Sub Main()
    Dim lngRow As Long
    Application.ScreenUpdating = False
    Selection.Copy
    With ThisWorkbook.Worksheets("Warenübersicht")
        lngRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        .Range("A" & lngRow).PasteSpecial Paste:=xlPasteAll
        .Range("F" & lngRow).Value = ActiveSheet.Name
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Verzichte - wenn möglich - auf "Select". Es geht meistens auch ohne. Die von Matthias verlinkte PDF ist dazu ein guter Einstieg.

[Oberlicht]

Hallo Case,

perfekt, so läuft´s!
:23: :23: :23:
Vielen Dank für die schnelle Hilfe!
Danke auch nochmal Matthias!

Gruß
Johannes

[Oberlicht]

Ok, eine allerallerletzte Frage  

ich hatte bei meinen Versuchen zwischendurch zufällig eine Version erstellt, bei der ich nach dem Klicken des Makrobuttons auch automatisch auf das Ziel-Blatt gelangt bin, ohne das nochmal extra anklicken zu müssen. Das kriege ich jetzt nicht mehr hin... in der entsprechenden Codeversion sehe ich keinen Befehl, der das angibt?

Gruß
Johannes

[Gast 123]

Hallo

setze in deinem neuen Code hinter dem Befehl:  Application.ScreenUpdating = True  
einfach noch den früheren Befehl:  Worksheets("Warenübersicht").Select

mfg  Gast 123

[Oberlicht]

Das war´s genau. So jetzt hab ich es aber.
Vielen Dank für die Hilfe!

Gruß
Johannes