Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.10.2025 16:26:10
Sortenreine LKWs Filtern
09.10.2025 13:43:40
Mittelwertwenn aus unterschiedlichen Tabellenblättern
09.10.2025 13:32:39
MahJong für Execl
09.10.2025 10:43:56
Flagstatus eines Meetingtems nicht abfragbar
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1724to1728
1724to1728
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren und Einfügen per VBA aber mit CutCopymode=false

Forumthread: Kopieren und Einfügen per VBA aber mit CutCopymode=false

Kopieren und Einfügen per VBA aber mit CutCopymode=false
23.11.2019 15:42:30
Bastian
Hallo zusammen,
da meine VBA Kenntnisse auf den Makrorecorder beschränkt sind, habe ich nun ein Problem.
Ich habe eine Arbeitsmappe mit dem Tabellenblatt "Zugang einfügen". Dort tragen wir Daten ein und per Button werden diese Daten dann in ein anderes Tabellenblatt (Bestand A oder Bestand B) mit Hilfe von Kopieren und nur die "WERTE" einfügen übertragen. Dieses Makro ist im "Modul 1" zu finden.
Nun habe ich aber noch ein Makro in "DieseArbeitsmappe", dass verhindern soll, dass ein Benutzer mit Ausschneiden und Kopieren arbeiten kann, da mir sonst die Bedingten Formatierungen immer zerschossen werden und sich Zellen falsch markieren.
Von daher muss dieses Makro zwingend drin bleiben!
Leider sind die beiden Makros so nicht kompatibel, denn so funktioniert meine Übertragung in das andere Tabellenblatt auch nicht mehr.
Da mir bewusst ist, dass mein Code der eines "NOOBS" ist, hoffe ich, dass hier jemand eine Idee hat wie man das lösen kann.
https://www.herber.de/bbs/user/133391.xlsm
MfG Bastian
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren und Einfügen per VBA aber mit CutCopymode=false
23.11.2019 16:16:14
Hajo_Zi
Hallo Bastian,
zu der Datei kann man nur schreiben.
Select, Activate usw. ist in VBA zu 99,8% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Hajo-Excel.de
Hinweise zu select usw. Online-Excel.de
Hinweise zu select usw. Online-Excel.de
Der Cursor ist kein Hund, der überall rum geführt werden muss.

Anzeige
AW: Kopieren und Einfügen per VBA aber mit CutCopymode=false
23.11.2019 16:40:57
Bastian
Hi, danke für dein Feedback, dass ist mir klar und ich weiß, dass mein code sch..... ist und das das besser geht, wenn man es denn kann. Deshalb frage ich ja euch. Bin halt leider auf den Makrorecorder angewiesen. Um das so zu gestalten, wie ihr es macht, brauche ich wohl Jahre, wenn ich es denn überhaupt hinbekomme. Kann die Codes halt leider nicht Freihand schreiben.
Liegt das Problem denn jetzt darin, dass ich mit select und activate arbeite, oder weil das Makro in "dieseArbeitsmappe" generell das kopieren und Einfügen verbietet?
MfG Bastian
Anzeige
AW: Kopieren und Einfügen per VBA aber mit CutCopymode=false
23.11.2019 16:46:47
Nepumuk
Hallo Bastian,
welche Zellen sollen wohin kopiert werden?
Wäre es ok die Shortcuts und da Kontextmenü zu ändern?
Gruß
Nepumuk
AW: Kopieren und Einfügen per VBA aber mit CutCopymode=false
23.11.2019 17:24:07
Bastian
Hi, also ich bin für alle "Schandtaten" offen, wenn es im Nachhinein dafür funktioniert ;-)
Also immer vom Blatt "zugang einfügen" nach Blatt "Bestand A" die Werte kopieren.
"zugang einfügen" nach " Bestand A"
C5 nach B8
C6 nach C8
C7 nach D8
C8 nach F8
B15 nach G8
B16 nach H8
B17 nach I8
B18 nach J8
B19 nach K8
B20 nach L8
B21 nach M8
B22 nach N8
B23 nach O8
B24 nach P8
B25 nach Q8
B26 nach R8
B27 nach S8
B28 nach U8
Wenn das einmal steht, kann ich mir das ja auf jede weitere Zeile umfummeln ;-)
MfG Bastian
Anzeige
AW: Kopieren und Einfügen per VBA aber mit CutCopymode=false
23.11.2019 17:17:41
Hajo_Zi
mal nur die ersten Zeilen 
    Range("C5").Copy
Sheets("Bestand A").Range("B8").PasteSpecial Paste:=xlPasteValues
Sheets("Zugang einfügen").Range("C6").Copy
Sheets("Bestand A").Range("C8").PasteSpecial Paste:=xlPasteValues

CutCopymode=false muss am Ende sein da Werte übertragen werden.
Gruß Hajo
Anzeige
AW: Kopieren und Einfügen per VBA aber mit CutCopymode=false
23.11.2019 18:00:21
Bastian
Hi,
habe es so weiter geführt und so funktioniert es!
Vielen Dank an Dich und allen anderen die sich der Sache angenommen haben!
MfG Bastian
AW: Kopieren und Einfügen per VBA aber mit CutCopymode=false
23.11.2019 18:32:07
Werner
Hallo,
wozu denn jede Zelle einzeln kopieren? 
Sub zugang101()
' zugang101 Makro
Application.ScreenUpdating = False
Range("C5:C8").Copy
Sheets("Bestand A").Range("B8").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Range("B16:B28").Copy
Sheets("Bestand A").Range("G8").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Range("B29").Copy
Sheets("Bestand A").Range("U8").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Gruß Werner
Anzeige
AW: Kopieren und Einfügen per VBA aber mit CutCopymode=false
23.11.2019 19:39:09
Bastian
Hi Werner,
vielen Dank für deine Lösung!
MfG Bastian
Gerne u. Danke für die Rückmeldung. o.w.T.
23.11.2019 22:23:32
Werner
;

Forumthreads zu verwandten Themen

VBA copy mode
Jana

Hallo liebes Forum!
Ich bin grad am Bau eines kleinen Makros und lese externe Daten in ein Tabellenblatt. Nachdem die alle relevanten Daten eingelesen sind, moechte ich die externe Quelle wieder schliessen und saemtliche aenderungen NICHT speichern.
Die Anweisung dazu: 'ActiveWorkbook....
20.09.2011 10:51:18
Thread-ID: 1230706
3 Beiträge
Per VBA 2.xls öffnen - schließen->visible=false
Florian

Hallo,
ich habe folgendes Problem:
Start.xls öffnet im Hintergrund eine Liste und macht sich unsichtbar (visible=false).
Nun kommt es vor, dass diese Liste gelegentlich gebraucht wird.
Ich habe ein Makro geschrieben, dass via CommandButton eine UserForm oben rechts öffnet. Die U...
17.04.2013 11:13:43
Thread-ID: 1309172
4 Beiträge
Anzeige
per VBA Range finden, die im cutcopy-mode ist
anugyan

Hi Leute,
gibt es eine Möglichkeit in Excel die Range zu finden (und in eine Variable zu speichern), die sich im cutcopy-mode befindet, wenn nach SelectionsChange schon eine andere Zelle markiert ist?
Über eine schnelle Hilfe würde ich mich sehr freuen. Danke
Anugyan
14.07.2002 12:46:57
Thread-ID: 136397
3 Beiträge
VBA IF "Dateipfad = false then
Mario

Guten Tag
Habe noch ein Problem mit meiner Excel Liste und habe leider keinen plan xD
und zwar:
habe derzeit die AktiveWorkbook.ReadOnly abfrage drinnen und möchte zusätzlich abchecken ob die Datei in den von mir Vorgegebenen Dateipfad liegt ( falls möglich ohne Filenamen sondern nu...
21.10.2017 17:51:29
Thread-ID: 1587172
8 Beiträge
Schleife für CopyPaste aus anderem Workbook
Matthias

Hallo zusammen,
Ich habe folgenden Code geschrieben: Sub CopyPasteDelete() 'L1 Set wbZiel = ThisWorkbook.Worksheets("L1") Set wbQuelle = ActiveWorkbook.Worksheets("L1") With wbQuelle .Range("B3:B9,C3:C9,D3:D9,F3:F9,L3:L9,N3:N9,O3:O9,P3:P9,Q3:Q9,S3:S9,T3:T9,U3:U9,V3:V9,Y3:Y9,AE3: _ _ _ AE9"...
25.10.2018 14:26:17
Thread-ID: 1653573
5 Beiträge
CutCopymode merken
Folker

Hallo,ich kopiere mit Ctrl-C eine Zelle und führe dann ein Makro aus. (Kopierumrandung steht z.B. auf A1 und der Cursor auf B5) Innerhalb dieses Makros wird zwangsläufig der CutCopymode von dieser Zelle (A1) entfernt. Jetzt möchte ich am Ende des Makros den CutCopymode wieder auf die ursprüngli...
18.03.2003 11:47:20
Thread-ID: 233299
6 Beiträge
CutCopyMode-Eigenschaft
thomas

Hallo Leute,
habe in der VB-Hilfe im Excel etwas gesehen, das komisch ist. Bei der CutCopyMode-Eigenschaft steht Folgendes:
False: Deaktiviert den Ausschneide- bzw. Kopiermodus und entfernt den Laufrahmen.
True: Deaktiviert den Ausschneide- bzw. Kopiermodus und entfernt den Laufrahm...
01.01.1970 00:00:00
Thread-ID: 413459
3 Beiträge
If Application.CutCopyMode funkt. nur bedingt
M.
Hallo,
If Application.CutCopyMode = 0 Then MsgBox "Nix zum einfügen da" funtioniert nur bei Excel-Kopien, nicht bei Word- oder Internetkopien.
Vielen Dank für eine Lösung.
Karsten
02.10.2005 16:23:49
Thread-ID: 675747
12 Beiträge
CutCopyMode für eine Spalte
Specke
Hallo Experten,
ich habe in meiner Tabelle in Spalte B eine Gültigkeitsliste. Mit Copy&Paste kann aber auch ein anderer Wert in diese Spalte eingetragen werden.
Nun habe ich über die Forum-Recherche den Befehl Application.CutCopyMode=False gefunden. Es soll aber in anderen Spalten der Tabel...
01.02.2007 10:20:53
Thread-ID: 842572
4 Beiträge
CutCopyMode: welche Zellen sind markiert
Sebastian

Hallo zusammen,
ich möchte gerne in einer Worksheet_SelectionChange-Sub rausfinden, welche Zellen zum kopieren markiert sind (also wenn man Strg+C drückt und die Zellen dann einen gestrichelten Rand bekommen).
Beispiel:
1. User klickt auf Zelle A1, dann Strg+ C
2. User klickt au...
08.07.2020 10:30:43
Thread-ID: 1770112
8 Beiträge
application.cutcopymode
Georg
Liebe Mitglieder, der Code funktioniert, die Mail geht raus, aber ich bekomme die Markierung über vba application.cutcopymode (zeile Ticketinhalt.copy) nicht aus, Der Commandbutton liegt auf einer Userform, i-wie blicke ich gerade nicht, wie auch die Markierung im Sheet wieder kappe.
Der Code...
07.10.2022 11:54:19
Thread-ID: 1901941
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Kopieren und Einfügen per VBA mit CutCopymode=false

Schritt-für-Schritt-Anleitung

  1. Öffne die Excel-Arbeitsmappe mit dem gewünschten Tabellenblatt, z.B. "Zugang einfügen".

  2. Erstelle ein neues VBA-Modul:

    • Gehe zu "Entwicklertools" > "Visual Basic".
    • Rechtsklicke auf "Module" und wähle "Einfügen" > "Modul".

  3. Füge den folgenden Code ein, um Daten zu kopieren und sicherzustellen, dass Application.CutCopyMode = False am Ende des Makros steht:

    Sub KopierenEinfügen()
   Application.ScreenUpdating = False
   Range("C5:C8").Copy
   Sheets("Bestand A").Range("B8").PasteSpecial Paste:=xlPasteValues, Transpose:=True
   Application.CutCopyMode = False
   Application.ScreenUpdating = True
End Sub

  4. Führe das Makro aus, um die Werte von "Zugang einfügen" nach "Bestand A" zu übertragen.

  5. Testen: Überprüfe, ob die Daten korrekt eingefügt wurden.

Häufige Fehler und Lösungen

  • Fehler: Der CutCopyMode bleibt auf True.

    • Lösung: Stelle sicher, dass Application.CutCopyMode = False am Ende deines Makros steht.

  • Fehler: Die Werte werden nicht korrekt eingefügt.

    • Lösung: Überprüfe die Range-Referenzen und stelle sicher, dass sie korrekt sind.

  • Fehler: Das Makro führt keine Aktion aus.

    • Lösung: Achte darauf, dass das Makro nicht in einer anderen Arbeitsmappe oder in einem anderen Modul ausgeführt wird.

Alternative Methoden

  • Verwendung von Copy und PasteSpecial: Anstatt jede Zelle einzeln zu kopieren, kannst du auch Bereiche kopieren und dann die Werte transponieren, wie im folgenden Beispiel:

    Sub AlternativeKopieren()
   Application.ScreenUpdating = False
   Range("C5:C8").Copy
   Sheets("Bestand A").Range("B8").PasteSpecial Paste:=xlPasteValues, Transpose:=True
   Application.CutCopyMode = False
   Application.ScreenUpdating = True
End Sub

  • Direkte Zuweisung: Du kannst auch direkt den Wert zuweisen, um den CutCopyMode zu vermeiden:

    Sub DirekteZuweisung()
   Sheets("Bestand A").Range("B8").Value = Sheets("Zugang einfügen").Range("C5").Value
   Application.CutCopyMode = False
End Sub

Praktische Beispiele

Hier sind einige praktische Beispiele, um Werte von einem Tabellenblatt in ein anderes zu übertragen:

Sub DatenÜbertragen()
    Sheets("Zugang einfügen").Range("C5").Copy
    Sheets("Bestand A").Range("B8").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

Für mehrere Zellen kannst du:

Sub MehrereZellenKopieren()
    Sheets("Zugang einfügen").Range("C5:C8").Copy
    Sheets("Bestand A").Range("B8").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Application.CutCopyMode = False
End Sub

Tipps für Profis

  • Nutze Application.ScreenUpdating = False, um die Bildschirmaktualisierung zu deaktivieren, während das Makro läuft. Das beschleunigt die Ausführung.
  • Verwende Transpose:=True, um Daten in Zeilen oder Spalten entsprechend anzupassen.
  • Halte den Code sauber und vermeide die Verwendung von Select oder Activate, um die Effizienz zu steigern.

FAQ: Häufige Fragen

1. Was bedeutet Application.CutCopyMode = False? Es deaktiviert den Kopiermodus in Excel, wodurch die Auswahl nach dem Kopieren wieder zurückgesetzt wird.

2. Warum sollte ich CutCopyMode am Ende des Makros setzen? Um sicherzustellen, dass die Auswahl zurückgesetzt wird und keine unerwünschten Formatierungen auftreten.

3. Kann ich das Makro auch für andere Bereiche anpassen? Ja, passe einfach die Range-Referenzen im Code an, um andere Zellen oder Bereiche zu kopieren.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige