AW: Eine Zelle kopieren
28.10.2017 09:21:37
fcs
Hallo Manfred,
mit einem der folgenden Makros kann man den Inhalt der Zelle in die Zwischenablage übernehmmen.
Die 1. Variante mit den Tastenbefehlen übernimmt den Zellinhalt (bei Formeln also die Formel).
Diese Variante setzt voraus, dass die Tastenbelegung für die verwendeten Tastaturbefehle im Originalzustand ist.
Die 2. Variante mit dem Datenobjekt übernimmt den angezeigten Zellinhalt.
Für diese muss ggf. noch im VBA-Editor der Verweis auf die erforderliche Library gesetzt werden.
Das gewünschte Makro am besten in ein Modul der persönlichen Makro-Arbeitsmappe kopieren und danach via Menü Ansicht --> Makros das Makro auswählen und via Optionen einer nicht belegten Tastenkombination zuweisen (z.B. Strg+q, Strg+m oder Strg+j) - Tastenkombination geht schneller als über Maus und Menüs das Makro starten.
Alternativ könntest du auch via Optionen "Menüband anpassen" dein Menüband erweitern und das Makro hinzufügen mit einer Schaltfläche.
Gruß
Franz
Sub Copy_Zellinhalt_Tastenbefehle()
' Zellinhalt in Zwischenablage übernehmen via Tastaturbefehle
Application.SendKeys "{F2}", True
Application.SendKeys "+^{HOME}", True
Application.SendKeys "^c", True
Application.SendKeys "{ESC}", True
End Sub
Sub Copy_Zellinhalt_Datenobject()
' angezeigten Zellinhalt in Zwischenablage übernehmen
' Erfordert, dass für die Datei im VBA-Editor unter Extras-->Verweise der Verweis auf die _
Microsodt MSForms x.y Obejekt Library _
aktiviert ist
Dim objData As New DataObject
objData.SetText ActiveCell.Text
objData.PutInClipboard
End Sub