Blatt nur Werte einfügen

Hallo zusammen,
Ich habe folgendes Problem:
Ich möchte mein Arbeitsblatt schützen vor Formatierung und Format Änderungen.
Diese Datei wird an Personen geschickt die eher wenig bis gar keine Erfahrung mit Excel haben. Und somit auch immer ihre Formate und Formatierungen in die Liste kopieren.
Lösung wäre für mich idealerweise wenn man alle Einfüge Optionen ändern könnte auf "Werte einfügen" sodass rein nur der Wert eingefügt wird ohne Formatierungen. Ich habe leider in Excel selbst keine Option dafür gefunden das "normale" einfügen (N) zu deaktivieren oder auf Werte umzustellen.
Vielleicht kennt ihr ja sogar in Excel eine Option die mir hilft.
Oder ihr könnt mir vielleicht einen vba Code schreiben der dies bewirkt.
Danke & viele Grüße,
Werner

Hallo zusammen,
M.E. kann bei geschütztem Blatt nichts eingefügt werden und bei ungeschütztem eben auch mit Formatierung.
Die Einstellungen im Dialog betreffen m.E. nur die Bearbeitung, nicht jedoch das Einfügen an sich.
Ich glaube nicht, dass es die gewünschte Funktionalität gibt. Deshalb bleibt nur der Weg, per VBA das Einfügen in eine eigene Sub umzulenken und dort zu handeln.
Hierzu sind folgende Schritte nötig:
Umlenken des Strg-V und ä. auf die eigene Sub
Context-Menü umbauen oder am besten abschalten
Ribbon-Einfügebutton im XML abschalten und/oder ggf. alternativ neu aufbauen auf eigene Sub.
Hier mal ein Ansatz zum ausprobieren (in das Tabellen-Modul:

Private Sub Worksheet_Activate()
Application.OnKey "^v", "FuegTextEin"
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

Private Sub Worksheet_Deactivate()
Application.OnKey "^v"
End Sub

In ein Modul:
Sub FuegTextEin()
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Ohne Ribbon-Bearbeitung und Abschalten des Context-Menüs bliebe nur der Blattschutz, der in FuegTextEin vorher aufgehoben werden müsste.
Dann aber vergisst Excel den Inhalt in der Zwischenablage. Dieser müsste vorher gerettet und wieder in die Zwischenablage kopiert werden.
Das klappt aber auch nur sehr unzuverlässig.
Sub FuegTextEin()
Dim oClip As dataobject, T As Variant
Set oClip = New dataobject
On Error GoTo Fehler
oClip.GetFromClipboard
T = oClip.GetText
ActiveSheet.Unprotect
oClip.SetText T
oClip.PutInClipboard
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Fehler:
ActiveSheet.Protect
End Sub

viele Grüße
Karl-Heinz

Forumthread: Blatt nur Werte einfügen

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Blatt nur Werte einfügen

Forumthread: Blatt nur Werte einfügen

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread