Markierung in Tab2 aufheben

Forumthread: Markierung in Tab2 aufheben

03.11.2019 19:12:57

Sigi

Hallo,
wie kann ich die Markierung in Tab2 aufheben nach dem Kopieren aufheben ohne das Tabellenblatt zu wechseln?

Sub Copy()
Application.ScreenUpdating = False
Range(Cells(1, 1), Cells(6, 4)).Copy
Sheets("Tabelle2").Cells(15, 1).PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation: _
=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Tabelle2").Cells(1, 1).Activate 'Hier kommt Fehlermeldung
Application.ScreenUpdating = True
End Sub

https://www.herber.de/bbs/user/132934.xlsm
Danke!
Gruß
Sigi

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Markierung in Tab2 aufheben

03.11.2019 19:20:21

Regina
AW: Markierung in Tab2 aufheben

03.11.2019 19:31:02

Sigi
AW: Markierung in Tab2 aufheben

03.11.2019 20:52:20

Nepumuk
AW: Markierung in Tab2 aufheben

04.11.2019 05:08:33

Sigi

AW: Markierung in Tab2 aufheben

03.11.2019 19:20:21

Regina

Hi, in zwei schritten, wenn der Curso dann auf A1 stehen soll:

Sub Copy()
Application.ScreenUpdating = False
Range(Cells(1, 1), Cells(6, 4)).Copy
Sheets("Tabelle2").Cells(15, 1).PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Tabelle2").Activate
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub

Gruß
Regina

AW: Markierung in Tab2 aufheben

03.11.2019 19:31:02

Sigi

Hallo Regina,
Danke für Deinen Tipp!
Dann muß ich es wohl so machen

Sub Copy()
Application.ScreenUpdating = False
Range(Cells(1, 1), Cells(6, 4)).Copy
Sheets("Tabelle2").Cells(15, 1).PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation: _
=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
With Sheets("Tabelle2")
.Activate
.Cells(1, 1).Activate
End With
Sheets("Tabelle1").Activate
Application.ScreenUpdating = True
End Sub

Gruß
Sigi

AW: Markierung in Tab2 aufheben

03.11.2019 20:52:20

Nepumuk

Hallo Sigi,
teste mal:

Public Sub CopyTheme()
    With Application
        .ScreenUpdating = False
        Range(Cells(1, 1), Cells(6, 4)).Copy
        With Worksheets("Tabelle2")
            .Cells(15, 1).PasteSpecial Paste:=xlPasteAllUsingSourceTheme
            .Cells(1, 1).Copy
            .Cells(1, 1).PasteSpecial Paste:=xlPasteAll
        End With
        .CutCopyMode = False
        .ScreenUpdating = True
    End With
End Sub

Und noch was, Copy ist eine Methode in VBA. Da ist es keine gute Idee eine Prozedur so zu nennen.
Gruß
Nepumuk

AW: Markierung in Tab2 aufheben

04.11.2019 05:08:33

Sigi

Hallo Nepumuk,
vielen Dank für Deine Vorschlag und Deine Anregung.
Gruß
Sigi

Beliebteste Forumthreads (12 Monate)

Forumthread: Markierung in Tab2 aufheben

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread