Makro "Inhalte einfügen"
09.08.2006 12:28:15
Martin
ich habe folgendes Problem:
Immer wieder kommt es vor, dass ich Inhalte einfügen möchte. (nur Werte) um Formeln zu eliminieren oder Formate der Zielzelle beizubehalten.
Folgendes sollte mein Makro leisten.
1. Prüfe, ob zwischenablage gefüllt
2. Wenn ja, dass füll die Zellen mit den Werten der Kopie
3. Wenn nein, gib eine Fehlermeldung aus
Mein Versuch war folgender:
Sub Werte_kopieren()
If Application.DisplayClipboardWindow = True Then
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks_
:=False, Transpose:=False
Else
MsgBox "Zwischenablage leider leer!"
End If
End Sub
Indealerweise soll dieses Makro global gespeichert werden und mit einer Tatenkombination belegt werden. Wer kann mir helfen?
Gruß
Martin
Anzeige