Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1720to1724
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1720to1724
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Markierung in Tab2 aufheben

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
Anzeige
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
Anzeige
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
Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige