Office: (Office 2007) Zellinhalte per Klick in Zwischenablage

Hallo,
wie kann ich folgendes beim start einer xl-mappe erreichen:
Excel-Mappe öffnen > Zelle markieren > der Klick kopiert den Text in Zwischenablage > wechsel zu anderem (von mir gewünschten) Programmfenster/Start einer gewünschten Appl. > Excel wird kleinstmgl. minimiert (z.b. nur titelleiste)
(na ja, ab "..wechsel zu.." wäre wunschdenken *rolleyes.gif* )
aber die copy-aktion wär´mir schon wichtig *redface.gif*)
habe schon einige beispiele gefunden, aber anscheinend bin ich zu blöd das umzusetzen *frown.gif*
hier ein bsp. das ich gefunden habe:
Sub zwischenablage()
Application.DisplayAlerts = False
ActiveCell.copy
ActiveWorkbook.Close
End Sub
Ich hab den o.g. Code in VBA´bei Tabelle 1 eingefügt...
und nun???
ich öffne xl-datei, markiere zelle und nix passiert *mad.gif*
kann ich in xl irgendwo angeben, das beim öffnen der mappe das ding läuft?
OHNE dass ich noch´n button klicken muss

Schon mal vorab DANKE!!!

mfg/sepp01

:)

 

Moin, Sepp01,

es gibt eine Office-Zwischenablage und eine für Windows...

Code:

Nun ja, die Mappe mit dem Code bzw. das AddIn muss bis zum Beenden der Aktion geöffnet bleiben, was bei einem AddIn aber eh der Fall sein sollte... *wink.gif*

 

HAllo Sepp

Ich habe das so verstanden:

' **********************************************************************
' Modul: Tabelle2 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Springt an bei Doppelklick auf eine Zelle
Target.Copy
'Cancel=true'Nicht in den Bearbeitungsmodus rein
End Sub
'oder
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'Springt an bei Rechtsklick auf eine Zelle
Target.Copy
'Cancel=true 'Kontextmenu wegblenden
End Sub

'oder
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Springt an wenn ein anderer Tabellenbereich ausgewählt wird
Target.Copy
End Sub


Such dir ei passendes Ereigniss aus.
Jetzt in eine anderes Tabellenblatt wechseln und einfügen.

Wenn du allerdings die Zielzelle(den Zielbereich) vorher schon kennst, kann man das vollständig automatisieren.

ransi

 

hallo jinx,
erstmal danke...
ich denke der txt sollte in die windows zwischenablage

und wie soll das nun fkt.?
hab den code übernommen und nu´?
sorry für die blöden fragen...
aber ich möchte einfach nur die datei öffnen, die mit txt gefüllte zelle mit ´nem klick markieren und wie von zauberhand soll der eben in der zwischenablage sein...

 

hey ransi,
jo, das mit dem re-klick war´s....(für´s erste) spitze, besten dank (aber auch an jinx :-) )

was könnte man denn jetzt noch in den code einfügen, um z.b. eine andere app. zu öffnen bzw. zu ihr zu wechseln, um dann den kopierten inhalt dort einzufügen?

 

Moin, Sepp01,

ich würde Deine Begeisterung mal auf die Verwendung von ShortCuts lenken, wie sie unter anderem bei ALT+F8/Optionen für die Makros angelegt werden können. Wenn die Makros in einer allgemein zugänglichen Sammlung (AddIn oder personl.xls) vorliegen, stehen die Makros immer und überall auf Tastenkombination zur Verfügung.

Zum Aufruf: wenn das Programm VBA "spricht", über GetObject oder CreateObject und entweder als Early oder als LateBinding. Ansonsten sollte ShellExecute helfen, um die Anwendung aufzurufen...

 

hallo jinx,
auch für diesen tip meinen Dank!
da kann man wählen wie man´s braucht, toll...
(nur in diesem fall sollte es sofort beim start verfügbar sein)