paste values per VBA

Forumthread: paste values per VBA

Deister

Hallo zusammen,
Ich sitze wieder auf dem Schlauch ;-(
Mit VBA kopiere ich eine Reihe von Formeln. Dann kopiere ich sie wieder als Werte an die gleiche Stelle.
Range("E5:IJ8").Select
Application.CutCopyMode = False
Selection.Copy
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Wenn ich die Macro anschliessend laufen lasse bekomme ich immer die Meldung " Do you want to replace the contents of the destination cells". Wie kann ich diese Meldung per VBA unterdrücken?
Danke für die Hilfe
Ant

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: paste values per VBA

ChrisL
AW: Danke Chris

Deister

AW: paste values per VBA

25.11.2009 15:28:59

ChrisL

Hallo
Entweder...
Application.DisplayAlerts = False
Range("E5:IJ8").Select
Application.CutCopyMode = False
Selection.Copy
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.DisplayAlerts = True
oder ganz einfach:
Range("E5:IJ5") = Range("E5:IJ5").Value
cu
Chris

AW: Danke Chris

25.11.2009 15:36:03

Deister

Besten Dank Chris,
Application.DisplayAlerts = False
Ist die einfachste Lösung für mich
Gruss
Ant

Infobox / Tutorial

Werte per VBA einfügen ohne Warnmeldungen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.
Neues Modul einfügen: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle Einfügen > Modul.

Code eingeben: Füge den folgenden Code in das Modul ein:

Sub PasteValues()
   Application.DisplayAlerts = False ' Warnmeldungen unterdrücken
   Range("E5:IJ8").Copy ' Bereich kopieren
   Range("E5").PasteSpecial Paste:=xlPasteValues ' Werte einfügen
   Application.CutCopyMode = False ' Kopiermodus deaktivieren
   Application.DisplayAlerts = True ' Warnmeldungen wieder aktivieren
End Sub

Makro ausführen: Drücke F5, um das Makro auszuführen und die Werte an die gewünschte Stelle einzufügen.

Häufige Fehler und Lösungen

Fehler: "Do you want to replace the contents of the destination cells"
Lösung: Stelle sicher, dass Application.DisplayAlerts = False vor dem Einfügen der Werte gesetzt ist, um diese Warnmeldung zu unterdrücken.
Fehler: Der Kopiermodus bleibt aktiv
Lösung: Füge Application.CutCopyMode = False nach dem Einfügen der Werte hinzu, um den Kopiermodus zu deaktivieren.

Alternative Methoden

Direktes Zuweisen von Werten: Du kannst die Werte auch direkt zuweisen, ohne den Kopiermodus zu verwenden:
```
Range("E5:IJ8").Value = Range("E5:IJ8").Value
```
Verwendung von Copy Destination: Eine weitere Möglichkeit ist die Verwendung von Copy Destination:
```
Range("E5:IJ8").Copy Destination:=Range("E5")
Range("E5").PasteSpecial Paste:=xlPasteValues
```

Praktische Beispiele

Kopieren und Einfügen eines Zellbereichs:

Sub CopyAndPasteValues()
   Range("A1:A10").Copy
   Range("B1").PasteSpecial Paste:=xlPasteValues
   Application.CutCopyMode = False
End Sub

Werte von einer Tabelle in eine andere kopieren:

Sub CopyValuesBetweenSheets()
   Sheets("Sheet1").Range("A1:A10").Copy
   Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues
   Application.CutCopyMode = False
End Sub

Tipps für Profis

Setze Application.CutCopyMode = False immer am Ende eines Makros, um sicherzustellen, dass der Kopiermodus deaktiviert ist.
Nutze Application.DisplayAlerts = False sinnvoll, um Benutzeroberflächeninteraktionen zu minimieren, besonders bei automatisierten Abläufen.
Experimentiere mit den verschiedenen PasteSpecial-Optionen, um verschiedene Formate und Werte zu kopieren, z.B. xlPasteFormats für Formatierungen.

FAQ: Häufige Fragen

1. Wie kann ich Werte ohne Formate einfügen?
Verwende Selection.PasteSpecial Paste:=xlPasteValues, um nur die Werte ohne Formate einzufügen.

2. Wie kann ich den Kopiermodus aktivieren oder deaktivieren?
Nutze Application.CutCopyMode und setze es auf False, um den Kopiermodus zu deaktivieren. Das ist wichtig, um den Zustand nach dem Kopieren zurückzusetzen.

Beliebteste Forumthreads (12 Monate)