Per Doppelklick kopieren und einfügen

Sub doppelklickSucheAnsehen() Range("A3:A500").Select 'Dann sollte die ausgewählte Zelle per Doppelklick kopiert werden Sheets("FilmeAnsehen").Select Call AnsehenFindenUndKopieren2 'Dann sollte aus der Zwischenablage in die Textbox kopiert werden 'und mit ok bestätigt werden End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Target.Resize(1).Copy Sheets("FilmeAnsehen").Select Call AnsehenFindenUndKopieren2 Application.SendKeys "^{v}" 'das wird nicht in die Inputbox Kopiert Application.SendKeys "^{Enter}" 'Enter wird nicht ausgeführt End Sub

warum bei einer Zelle Resize?
Zu Deinem Makro kann ich nichts schreiben.
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Gruß Hajo

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim varPrints, varErgebnis Cancel = True Target.Resize(1).Copy Call AnsehenFindenUndKopieren2 ' hier liegt das Problem Application.SendKeys "^{v}" 'das strg+v wird nicht in die Inputbox Kopiert Application.SendKeys "{Enter}" 'Enter wird nicht ausgeführt Sheets("Gefunden").Select End Sub

Hi
es ist nicht sinnvoll, die Inputbox so zu steuern.
wenn du das selbe Makro verwenden willst, einmal für die Eingabe in die Inputbox und einmal per Auswahl mit Doppelklick, würde ich das mit hilfe einer "globalen Variable" programmieren.
dh bei Doppelklick schreibst du den Wert in die Variable
und rufst dann das Makro mit der Inputbox auf.
hier prüfst du dann, ob die globale Variable einen Wert hat und wenn nein, führst du die Inputbox aus, ansonsten übernimmst du den Variablenwert:
also im Modul des Tabellenblatts:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
xxx = Target.Value
Call AnsehenFindenUndKopieren2
End Sub

im allgemeinen Modul


Option Excplicit
Publix xxx as  string
Sub  AnsehenFindenUndKopieren2()
Dim Eingabe as string
if xxx = "" then
Eingabe = Inputbox(...)
else
Eingabe = xxx
End if
hier dann der weitere Code
xxx = "" 'Globlae Variable leeren, sonst ist der beim nächsten mal auch ohne Doppelklick gefüllt
End Sub

Gruß Daniel

Public Sub AnsehenFindenUndKopieren2() neu erstellen weil doppelt Public Sub AnsehenFindenUndKopieren3() Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True xxx = Target.Value Call AnsehenFindenUndKopieren End Sub Public xxx As String Sub AnsehenFindenUndKopieren3() Dim Eingabe As String If xxx = "" Then ' Eingabe = Inputbox(...) Else Eingabe = xxx End If 'hier dann der weitere Code xxx = "" 'Globlae Variable leeren, sonst ist der beim nächsten mal auch ohne Doppelklick gefüllt End Sub

Beliebteste Forumthreads (12 Monate)

Per Doppelklick kopieren und einfügen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Per Doppelklick kopieren und einfügen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread