Tastenkombination für Inhalte einfügen, Werte
Anna
ich suche alternativ für den Befehl Bearbeiten, Inhalte einfügen, Werte eine
entsprechende Tastenkombination.
Wer kann helfen?
DANKE!
--
Anna
Bernd Held
das funktioniert nur, wenn Du vorher eine Tastenkombination definierst.
Mit dem folgenden Makro wird die Tastenkombination STRG + W dazu
verwendet, um Inhalte einufügen (Werte).
Füge beide Makros in einem neuen Modul ein, speichere die Arbeitsmappe,
schließe und öffne sie wieder. Danach steht dir diese Funktionalität zur
Verfügung.
Sub Auto_open()
Application.OnKey "^w", "WerteEinfügen"
End Sub
Sub WerteEinfügen()
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Jetzt neu: Excel-VBA in 21 Tagen unter http://held-office.de
und neue Rubiken Access-VBA und Office-VBA
"Anna" <ann...@manager.de> schrieb im Newsbeitrag
news:av3lgn$24d$04$1...@news.t-online.com...
Monika Weber
Du könntest Dir dazu selbst eine Kombination per VBA
stricken.
Kopiere beide der folgenden Prozeduren in ein Modul.
Die erste Prozedur belegt die Tastenkombination Ctrl + Z
mit der zweiten Prozedur. Diese Prozedur musst Du nur
einmal ausführen.
Die zweite Prozedur fügt die Werte, welche sich im Kopier-Modus
befinden ein. D.h. kopiere erst den Bereich, den Du als Werte
ausgeben möchtest, wähle dann den Zielbereich aus und drücke
die Tastenkombination Ctrl + Z.
Sub TK()
' Ctrl + Z
Application.OnKey "^z", "Werte_einfuegen"
End Sub
Sub Werte_einfuegen()
On Error GoTo Errorhandler
Selection.PasteSpecial _
Paste:=xlPasteValues
Application.CutCopyMode = False
Exit Sub
Errorhandler: MsgBox "Bitte zuerst einen Bereich kopieren"
End Sub
Mit der folgenden Prozedur kannst Du die Tastenkombination
Ctrl + Z wirder zurücksetzen, falls Du sie nicht mehr genötigst,
denn sie ist von Excel ja eigentlich für die Funktion "Rückgängig"
belegt.
Sub TK_zuruecksetzen()
' Ctrl + Z zurücksetzen
Application.OnKey "^z"
End Sub
--
Ich hoffe, dass Dir das weiterhilft.
"Es liebs Grüessli" aus der Schweiz
Monika Weber
Fragen werden nur in Newsgroups kostenlos beantwortet.
------------------------------------------
Microsoft MVP für Excel
http://www.jumper.ch
http://excel.codebooks.de
"Anna" <ann...@manager.de> schrieb im Newsbeitrag
news:av3lgn$24d$04$1...@news.t-online.com...
Thomas Ramel
Anna schrieb:
>
> ich suche alternativ für den Befehl Bearbeiten, Inhalte einfügen, Werte eine
> entsprechende Tastenkombination.
>
> Wer kann helfen?
Tut es auch ein Button in der Symbolleiste?
Extras --> Anpassen --> Register: 'Befehle' --> Kategorien: 'Bearbeiten'
--> Befehle: 'Werte einfügen' (an 9.Stelle von oben) --> mit der linken
Maustaste anklicken und in die Symbolleiste ziehen --> [Schliessen]
Nun kannst Du kopieren, die Zielzelle anklicken und den Button in der
Symbolleiste betätigen.
--
Mit freundlichen Grüssen
Thomas Ramel
- MVP für Microsoft-Excel -
Eberhard Funke
wrote:
Hallo Thomas,
kann man auch einen Button basteln, der zusätzlich noch das Kopieren
übernimmt? Nach Markieren eines Zellenbereichs soll er kopieren +
Inhalte einfügen Werte.
Als Newbie grüßt
--
Eberhard
Thomas Ramel
Eberhard Funke schrieb:
>
> kann man auch einen Button basteln, der zusätzlich noch das Kopieren
> übernimmt? Nach Markieren eines Zellenbereichs soll er kopieren +
> Inhalte einfügen Werte.
Was in diesem Falle dann fehlt, ist die Angabe *wohin* die Werte kopiert
werden sollen.
Nimm anstelle von Einfügen einfach 'Werte einfügen', dann geht es so rasch
wie Copy/Paste.
Eberhard Funke
wrote:
Hallo Thomas
>
>Was in diesem Falle dann fehlt, ist die Angabe *wohin* die Werte kopiert
>werden sollen.
Die Werte sollen in den Ursprungsbereich zurückkopiert werden, um die
Formel durch Werte zu ersetzen. Ich brauche das manchmal bei der
Auswertung von Versuchsreihen.
>Nimm anstelle von Einfügen einfach 'Werte einfügen', dann geht es so rasch
>wie Copy/Paste.
Ich dachte, daß man möglicherweise den von Dir erwähnten Button so
erweitern kann, daß er nach Markieren des Bereichs das Kopieren gleich
mit erledigt, also in einem Schritt die Formeln durch Werte ersetzt.
(Ist vielleicht eine naive Vorstellung, aber wenn ich hier in der NG
sehe, was alles möglich ist, dann glaube ich manchmal: "Nichts ist
unmöglich [Toyota]")
Ich habe inzwischen hier gleich zwei Prozeduren gefunden, die genau
das tun, was ich brauche.
Thomas Ramel
Eberhard Funke schrieb:
> On Sun, 05 Jan 2003 19:58:11 +0100, Thomas Ramel <t.r...@mvps.org>
> wrote:
>
> Hallo Thomas
>
>>Was in diesem Falle dann fehlt, ist die Angabe *wohin* die Werte kopiert
>>werden sollen.
>
> Die Werte sollen in den Ursprungsbereich zurückkopiert werden, um die
> Formel durch Werte zu ersetzen. Ich brauche das manchmal bei der
> Auswertung von Versuchsreihen.
Das war (bisher) noch nicht klar.
> Ich dachte, daß man möglicherweise den von Dir erwähnten Button so
> erweitern kann, daß er nach Markieren des Bereichs das Kopieren gleich
> mit erledigt, also in einem Schritt die Formeln durch Werte ersetzt.
Der Button ist nichts anderes als der Menü-Eintrag Bearbeiten --> Inhalte
einfügen --> [x] Werte --> OK.
Für das von dir Gewünschte braucht es, wie Du unten schreibst, ein eigenes
Makro, das auf einen Button in der Symbolleiste gelegt werden kann.
Als Variante das Folgende; einfach Bereich markieren und starten:
Sub Werte_an_gleiche_Stelle()
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub
> "Nichts ist unmöglich [Toyota]"
Ersetze [Toyota] durch [Excel], dann bleiben wir beim Thema ;-)
Peter Dorigo
F2 und anschliessend F9
mfg Peter
--
MVP für MS-Excel
---------------------------
"Anna" <ann...@manager.de> schrieb im Newsbeitrag
news:av3lgn$24d$04$1...@news.t-online.com...