Hallo,
ich möchte eine Zelle kopieren und danach den Wert und das Format dieser Zelle mit einem Klick einfügen.
Speziell für dieses verknüpfte einfügen suche ich eine VBA, damit man dies evtl. mit einer eigenen Schaltfläche verbinden kann.
Danke
Guten Morgen,
dann mal ein paar Fragen:
willst du eine angeklickte zelle kopieren oder eine feste Zelle?
Wenn ich dich richtig verstehe möchtest du auf Click kopieren und einfügen?
mfg
Thana
Hallo Harald
Vielleicht hilft Dir das folgende. „Original“-Zelle markieren und Makro starten.
Grüsse Niclaus
Sub W\_F\_copieren()
Dim rngQuellbereich As Range
Dim rngZielbereich As Range
On Error GoTo finis
Set rngQuellbereich = Selection
Set rngZielbereich = Application.InputBox( \_
"Bitte markieren Sie den Bereich, " & \_
"in den Sie Wert und Format kopieren möchten:", Type:=8)
Selection.Copy
rngZielbereich.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks \_
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, \_
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
finis:
End Sub
Ich habe realisiert, dass es viel einfacher geht:
Die „Original“-Zelle kopieren - ganz „normal“. Dann statt „Einfügen“ das folgende Makro verwenden.
Grüsse Niclaus
Sub W\_F\_copieren\_V2()
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks \_
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, \_
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
finis:
End Sub
PS In andern Fällen sehr hilfreich ist aber aus dem ersten Makro
InputBox (… Type:=8)
Danke für die bisherige Hilfen.
Ich möchte den markierten, kopierten Wert in einer Zelle einfügen und gleichfalls dessen Format.
Leider funktioniert das Makro bei mir nicht, es kommt der Laufzeitfehler 1004 mit dem Hinweis „Die PasteSpecial Methode des Range Objektes konnte nicht ausgeführt werden“.
Ich habe Office 2003, vielleicht liegt es daran?
mfg
Harald
Danke für die bisherige Hilfen.
Leider funktioniert das Makro bei mir nicht, es kommt der
Laufzeitfehler 1004 mit dem Hinweis „Die PasteSpecial Methode
des Range Objektes konnte nicht ausgeführt werden“.
Ich habe Office 2003, vielleicht liegt es daran?
Hallo Harald
Zum LZF 1004:
„Microsoft Office Excel 2003 and Microsoft Office Excel 2007 enthalten eine Sicherheitsfunktion, mit deren Hilfe Sie auswählen können, ob der programmgesteuerte Zugriff auf das Visual Basic-Projekt als sicher eingestuft werden soll. - Standardmäßig wird der programmgesteuerte Zugriff auf das Visual Basic-Projekt als nicht sicher eingestuft.“
Wahrscheinlich hat das mit der Makro-Sicherheit auf Deinem PC zu tun.
Dazu aus der Excel-Hilfe:
Klicken Sie im Menü Extras auf Optionen.
Klicken Sie auf die Registerkarte Sicherheit.
Klicken Sie unter Makrosicherheit auf Makro Sicherheit.
Klicken Sie auf die Registerkarte Sicherheitsstufe, und wählen Sie die gewünschte Sicherheitsstufe aus.
Grüsse Niclaus
ich möchte eine Zelle kopieren und danach den Wert und das
Format dieser Zelle mit einem Klick einfügen.
Speziell für dieses verknüpfte einfügen suche ich eine VBA,
damit man dies evtl. mit einer eigenen Schaltfläche verbinden
kann.
Hallo harald,
vielleicht so:
Sub tt()
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Gruß
Reinhard
Jetzt klappt´s, Danke!
Nach dem richtigen Haken (im 2. Registerblatt) und einem Neustart von Excel klappt es.
Danke
Harald