Clever-Excel-Forum

Seiten: 1 2

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. Exclamation

Hallo Case,

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

Gruß
Johannes

Ok, eine allerallerletzte Frage Angel

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

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

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

Gruß
Johannes

Seiten: 1 2

Case

Oberlicht

Oberlicht

Gast 123

Oberlicht