MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 14.09.2018, 15:17   #1
Banane999
MOF User
MOF User
Wink VBA - Kopieren - Flimmernder Kasten nach dem Einfügen?

Hallo Zusammen,

vermutlich eine ganze einfache Frage:

Ich möchte einen Zellbereich kopieren und ihn anschließend ein paar Zellen weiter kopieren.

Dies mache ich beispielhaft mit diesem Code:

PHP-Code:

Sub Hunderassen()
Sheets("Tabelle1").Range("A1:B2").Copy

With Workbooks
("Mappe1.xlsm").Sheets("Tabelle1")
        .
Activate
        
.Range("A3").Select
    End With
ActiveSheet
.Paste


End Sub 
Das Makro macht genau das, was es soll - Es kopiert den Text der Zellen und fügt ihn unten dran ein.

Nun flimmert aber um die kopierten Bereiche immer noch der Kasten vom Kopieren. Wie auch in Excel wenn man manuell kopiert und mit STR+V einfügt. Erst wenn ich im manuellen Modus ENTER drücke, verschwindet der flimmernde Kasten um den kopierten Bereich.

Wie erreiche ich das mit einem Makro?

Danke für die Hilfe.

Gruß aus Hamburg!
Banananaa
Banane999 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2018, 15:19   #2
Superingo2
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Bannana,

füge am Schluss des Codes noch das ein:
PHP-Code:

Application.CutCopyMode False 
LG Ingo

__________________

Viel Spaß


.....ein Feedback wäre nett.....
Superingo2 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2018, 15:27   #3
Banane999
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo,

super, vielen Dank!

Grüße
Banane999 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2018, 15:51   #4
Banane999
Threadstarter Threadstarter
MOF User
MOF User
Standard

Es geht noch weiter:
Sub Hunderassen()
Sheets("Tabelle1").Range("A1:B2").Copy

With Workbooks("Mappe1.xlsm").Sheets("Tabelle1")
.Activate
.Unprotect "passwort"
.Range("A3").Select
End With
ActiveSheet.Paste
Application.CutCopyMode = False


End Sub

Damit wird nun noch der Blattschutz aufgehoben, aber er fügt jetzt nichts mehr ein.
Es erscheint eine Fehlermeldung, dass die Paste aktion nicht durchgeführt werden kann.

Starte ich direkt danach das Makro noch mal, fügt er es ein.
Hat es mit dem Blattschutz zu tun- den ich allerdings korrekt aufhebe?
Banane999 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2018, 17:57   #5
gklumpp
MOF User
MOF User
Standard

Hi Banane,

Du musst vor Copy den Unprotect machen.

__________________

Gruß Gerhard

WIN 8.1, Office 2010
gklumpp ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.10.2018, 20:31   #6
Banane999
Threadstarter Threadstarter
MOF User
MOF User
Standard

Danke
Banane999 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:09 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.