Nur reinen Text ausschneiden ?

Hallo zusammen,
in einer To-Do Liste, die nach Tagen geordnet ist, sollen meine Buero-Kollegen Aufgaben, die sie heute nicht geschafft haben, auf die kommenden Tage "verteilen" koennen. "Nichts leichter als das", wird so mancher rufen, und das mit Markieren/STRG X/STRG V bzw. "Drag&Drop" erledigen wollen.
Hab ich auch gedacht. Das Problem allerdings: Damit werden ja auch alle Hintergrundfarben oder farbige Ränder mitkopiert. Da die einzelnen Wochentage farblich unterschiedlich gestaltet sind, wuerde dieses Vorgehen die gesamte Farbgebung zerstoeren.
Die naechste Variante waere natuerlich: Strg C /Bearbeiten /Inhalte Einfuegen/nur "Werte" auswaehlen. Das macht genau das, was es soll. Allerdings ist diese Loesung recht umstaendlich (es wird am Ende des Tages bzw. zu Beginn der Woche recht viel hin und herkopiert) und auch nicht DAU sicher. Gibt es dafuer nicht einen laessigen Shortcut oder eine Drag&Drop Tastenkombination oder ein Makro, dass das macht?
Das Excel 2000 Handuch, Google und die Suche hier im Forum wollen mir nicht so recht weiterhelfen. Freue mich sehr ueber Feedback!
Danke und Gruesse
Thomas Becker

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thomas,
erstelle einen FormularButton mit der Aufschrift
Kopiermodus: Spezial
und weise ihm das Makro Modus() zu.
Nach meiner Logik müste es so funktionieren, aber es klappt nicht, Formate werden mitübertragen, kapier das nicht:-(
Dabei entspricht der Code in vv() dem den man erhält wenn man Bearbeiten--InhalteEinfügen---Werte auswählt.
Und warum man ActiveCell.Select braucht verstehe ich auch nicht, ohne ActiveCell.Select wird der Button umrandet wie nach einem Rechtsklick?!
Ich habe die Frage auf offen gestellt, vielleicht findet jmd anders den Fehler.


Sub Modus()
ActiveSheet.Shapes("Button 1").Select
Select Case Selection.Characters.Text
Case "Kopiermodus: Spezial"
Application.OnKey "^V", "vv"
Selection.Characters.Text = "Kopiermodus: Normal"
Case "Kopiermodus: Normal"
Application.OnKey "^V"
Selection.Characters.Text = "Kopiermodus: Spezial"
End Select
ActiveCell.Select
End Sub


Sub vv()
ActiveCell.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

31 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nur reinen Text ausschneiden ?

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

31 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread