ohne Formatierung ausfüllen

Lui · 2017-09-09T12:25:47+00:00

Guten Tag, kann ich excel so einstellen, das beim kopieren immer ohne Formatierung ausgefüllt wird? Ich spreche nicht von der Auto-Ausfülloption! Gibt es einen VBA Code für jedes sheet? Oder kann ich so eine Einstellung direkt in Excel einstellen? Habe noch nichts gefunden. Für Hilfe wäre ich dankbar. MfG Lui PS. Ich arbeite mit Office 2013-2016

HI
wenn es dir reicht, dass du mit STRG+V ohne Formate einfügen kannst, dann so:
1. füge in ein allgemeines Modul dieses Makro ein:

Sub Einfügen()
Selection.PasteSpecial xlPasteFormulas
End Sub

2. gehe in die Makroliste (Ansicht - Makros - Makros anzeigen)
markiere dort das Makro und weise in den Optionen den gewünschten Buchstaben zu, der in Verbindung mit STRG dieses Makro starten soll.
hierbei kannst du auch das V nehmen, solange diese Datei geöffnet ist, überlagert deine Zuweisung die originäre Excelzuweisung.
Wenn du die Datei schließt, haben die Tasten dann wieder ihre normale Funktion.
bzw, wenn du dieses Verhalten nur in der einen Datei haben willst und das STRG+V in anderen geöffneten Exceldateien normal funktionieren soll, dann kannst du den Code so erweitern:

Sub einfügen()
If ThisWorkbook.Name = ActiveWorkbook.Name Then
Selection.PasteSpecial xlPasteFormulas
Else
ActiveSheet.Paste
End If
End Sub

Gruß Daniel

Hi
um zu überprüfen, ob du in der richtigen Datei und dem richtigen Tabellenblatt bist, solltet du die Namen der Objekte vergleichen und nicht die ganzen Objekte.
Außerdem, wenn du den CodenNamen eines Tabllenblatts verwendest, dann funtkioniert das immer nur mit den Tabellenblättern in der Datei mit dem Makro! Auf Blätter in anderen Dateien musst du über den normalen Namen und Sheets("Tabelle1") gehen.
und wie der Schreibfehler in der zweiten Zeile zustande kommt, musst du selber wissen.
Eigentlich hättest du da nur Copy-Paste machen brauchen.
so sollte der Code aussehen, wenn du sicherstellen willst, dass die Sonderfunktion nur in dem einen Blatt gilt:

Sub Einfügen()
If ActiveWorkbook.Name & ActiveSheet.Name = ThisWorkbook.Name & Tabelle1.Name Then
Selection.PasteSpecial xlPasteFormulas
Else
ActiveSheet.Paste
End If
End Sub

Gruß Daniel

Forumthread: ohne Formatierung ausfüllen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Excel ohne Formatierung ausfüllen und einfügen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)