Office: (Office 2010) Kopieren nur mit Inhalt ohne Formatierung via VBA

Guten Morgen !

Ich habe da mal wieder eine Kleinigkeit *Smilie

Es geht um eine Anwesenheitsliste:
Es soll in der Liste nur möglich sein den Inhalt zu kopieren.
Das Problem ist wenn jmd. einen Inhalt kopiert werden Formatierungen mit kopiert.
Da aber nicht jeder bei uns Excel beherrscht und weiß das man beim kopieren sagen kann nur Inhalt, wollte ich dieses gerne als Makro haben.

Also das für den Bereich C200:AH215 (und in den anderen Monaten auch) nur der Inhalt kopiert werden kann.
Zudem wird der restliche Bereich über den Blattschutz komplett gesperrt.

Danke schonmal *Smilie

:)

 

Die Liste ganz vergessen *entsetzt

 

Hallo Kevin,

Code:

 

Danke für die schnelle Antwort Hajo *Smilie

Ich habe den Code eingefügt und versucht anzupassen:

HTML:

Sub Werte_Format()
'   Formeln ersetzen durch Werte mit Formate
'    Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address).Copy
' Vorschlag Verbesserrung NoNet
Workbooks("Liste.xlsm").Worksheets("Liste").UsedRange.Copy
' *****
With Workbooks("Liste.xlsm").Worksheets("Tabelle1").Range("C11:C26", "C32:C47", "C53:C68", "C74:C89", "C95:C110", "C116:C131", _
"C137:C152", "C158:C173", "C179:C194", "C200:C215", "C221:C236", "C242:C257")
.PasteSpecial Paste:=xlValues       ' Werte

End With
Application.CutCopyMode = False
End Sub

Aber funktioniert irgendwie nicht :/
Was habe ich falsch gemacht ?

 

Hallo SileNT443,

Vielleicht kannst du die Aussage noch genauer Formulieren:
Gibt eine Fehlermeldeung? Wenn ja, dann Name (und wenn vorhanden Nummer) des Fehlers sowie die Fehlerzeile angeben.
Gibt es ein Ergebnis, aber das ist falsch? Wenn ja, dann beschreibe bitte, welches Ergebnis der Code liefert, warum es deiner Meinung nach falsch ist, und was der Code stattdessen liefern müsste.

VG

 

Du kopierst UsedRange zu unterschiedlichen Bereichen.
Bei mir wurde nur zu A1 kopiert.
Was Deine Kopie soll ist mir nicht klar.
Es reicht bei Ziel die erste Zelle.

 

Ich will verhindern das wenn ein Mitarbeiter z.B. den Eintrag TU (Urlaub) kopiert, das die Formatierung mit kopiert wird.
Also das mit STRG+C nur der Wert kopiert wird nicht das Format.
Und das in mehreren Bereichen der Liste, halt für jeden Monat.

Ist das verständlicher ? *tongue.gif*

 

Hallo,

die Anforderung ist also, dass du die Kopierfunktion über STRG + C überschreiben willst. Excel soll damit nicht mehr Zellen und Formate kopieren, sonden nur den Inhalt.

Ist das so richtig?

VG

 

da habe ich die Aufgabe falsch verstanden. du möchtest den Befehl kopieren grundsätzlich umschreiben (für eine Datei für alle)
Das ist mir nun zu aufwendig.

 

Ja genau.
Das halt im gewissen Bereich des Tabellenblatt nur der Inhalt kopiert werden kann.
Schade danke trotzdem *Smilie

 

Die Aufgabenstellung war wohl zu Undeutlich *wink.gif*
Die eigentliche Funktion des Code konnte ich nicht testen, da er nicht passt zu dem was ich vorhabe.
Fehler oder Fehlercode gab es nicht.

 

Ich habe jetzt mal mein vorhaben Aufzeichnen lassen.
Dabei kam das hier raus.
Code:

Für mich relevant wäre ja dann der Befehl
Code:

Und dieser soll auf fest Definierte Bereiche angewendet werden.
Klappt sowas ?

PS. Sehe grad ist der 3. Beitrag hintereinander sry :/

 

Hallo,

ich glaube jetzt verstanden zu haben, was du möchtest.
Die eigentliche Kopierfunktion von Excel zu überschreiben halte ich für schwierig, ich weiß auch nicht, ob das geht.

Du kannst das "Werte einfügen" über eine andere Tastenkombination anstoßen, aber nicht über STRG + C (und auch nicht über Rechtsklick > einfügen). Das führt zu Problemen, wenn der Nutzer sehr an Copy&Paste gewöhnt ist.

Mein Vorschlag wäre daher anders: In einem doppelten Tabellenblatt (dass man verstecken kann) speichert man alle Formate. Jedes mal, wenn sich deine Tabelle jetzt ändert, werden alle Formate aus der verstecken Tabelle kopiert und übertragen. Das führt dazu, dass man das Format nur noch über diese versteckte Tabelle anpassen kann.
Ich denke diese Lösung lässt sich ganz gut umsetzen, ob sie perfomant und praktikabel ist, müsste man testen.

Ist das für dich eine Option?

Viele Grüße

 

Ja genau *Smilie
Das hört sich doch gut an. *Smilie
Das versteckte Tabellenblatt könnte ich dann auch mit Hilfe des Blattschutz vor Veränderung sichern, richtig ?
Also müsste dann jetzt jedes mal wenn ein Wert geändert wird (oder beim schließen der Datei), die Formatierung aus dem Versteckten Blatt auf das sichtbare übertragen werden ?
Aber ganz ehrlich *redface.gif*
Dafür reicht (glaub ich) mein Wissen nicht *eek.gif*
Ich werde es mal versuchen ^^
Wenn jmd. eine Lösung hat wäre ich auch dafür dankbar :P

 

Hallo,

ich werde mich später auch mal daran versuchen *Smilie
Falls du Probleme hast, kannst du auch vorher noch einmal hier nachfragen.

Viel Erfolg und viele Grüße