Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen per Doppelklick in die Zwischenablage

Zellen per Doppelklick in die Zwischenablage
03.02.2017 13:42:09
Inshin
Hallo,
werde leider nicht fündig und komme nicht weiter.
Möchte per Doppelklick die aktive Zelle plus die 2 Nachbarzellen (rechts) in die Zwischenablage kopieren.
Habe folgenden Code gefunden der mit der aktiven Zelle funktioniert.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MyData.SetText ActiveCell.Text
MyData.PutInClipboard
MsgBox "[" & ActiveCell.Text & "]" & vbCrLf & _
"in der Zwischenablage!", vbOKOnly + vbInformation, "Copy Done!"
End Sub

Beispiel:
Klick z.B. auf A1 soll A1-A3 in die Zwischenablage kopieren
Danke für eure Unterstützung

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen per Doppelklick in die Zwischenablage
03.02.2017 13:52:10
ransi
Hallo,
Versuch mal so:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Target.Resize(1, 3).Copy
End Sub


ransi
Anzeige
AW: Zellen per Doppelklick in die Zwischenablage
03.02.2017 14:52:15
Inshin
yes...funktioniert.
Vielen Dank
AW: Zellen per Doppelklick in die Zwischenablage
03.02.2017 14:57:27
Inshin
...allerding ist die andere Version etwas eleganter da nun die Zellen im Sheet markiert bleiben.
Kann man
MyData.SetText ActiveCell.Text
nicht ändern so dass die Nachbarzellen kopiert werden?
AW: Zellen per Doppelklick in die Zwischenablage
03.02.2017 16:14:58
Inshin
MyData.SetText ActiveCell.Range(Cells(ActiveCell.Row, 0), ActiveCell.Offset(1, 2)).Text
MyData.PutInClipboard
geht leider auch nicht ;-(
AW: Zellen per Doppelklick in die Zwischenablage
04.02.2017 12:32:32
Inshin
Moin,
noch jemand eine Idee wie ich MyData.SetText ActiveCell.Text auf 3 Zellen erweitern kann?
AW: Zellen per Doppelklick in die Zwischenablage
04.02.2017 13:43:35
ransi
Hallo,
Du musst die 3 Zellen einfach nur verketten.
Option Explicit



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim strText As String
    Dim myData As New DataObject
    Cancel = True
    With Target
        strText = .Text & "-" & .Offset(0, 1).Text & "-" & .Offset(0, 2).Text
    End With
    With myData
        .SetText strText
        .PutInClipboard
    End With
End Sub


ransi
Anzeige
AW: Zellen per Doppelklick in die Zwischenablage
05.02.2017 16:58:46
Inshin
hey ransi,
das geht...aber ich habe einen Denkfehler gemacht.
Ich beschreibe einmal was ich genau vorhabe.
Eine Worddatei ist geöffnet. Hier gibt es eine Tabelle.
Eine Exceldatei ist geöffnet. Hier gibt es Texbausteine in verschiedenen Spalten (2-4)
Anwender macht in der Exceldatei einen Doppelklick auf irgendeine Zelle, diese wird dann an der aktiven Stelle des Worddokumentes eingefügt. Soweit bekomme ich das hin.
Ich möchte aber nun, das die 2 Nachbarzellen aus Excelsheet in die Nachbarzellen des Worddokumentes kopiert werden. Es sollen also immer 3 Zellen übergeben werden und in die Tabelle des Worddokumentes eingefügt werden.
Was geht zur Zeit (z.B. Doppelklick auf A2)
Excel: doppelklick auf Zelle kopiert diese nach Word in die Tabelle, aktuelle Reihe, aktuelle Zelle
Was brauche ich (z.B. Doppelklick auf A2)
Excel: doppelklick auf Zelle kopiert A2/B2/D3 nach Word in die Tabelle aktuelle Reihe
Excelzelle A2 wird nach Word aktuelle Reihe, aktuelle Zelle kopiert (Spalte2)
Excelzelle B3 wird nach Word aktuelle Reihe, eine Zelle neben aktueller Zelle kopiert (Spalte3)
Excelzelle D3 wird nach Word aktuelle Reihe, Zwei Zellen neben aktueller Zelle kopiert (Spalte4)
daran beiss ich mir seit Tagen die Zähne aus....
thx für Hilfe
Tom
Anzeige
AW: Zellen per Doppelklick in die Zwischenablage
09.02.2017 00:36:46
Inshin
Moin....jemand noch eine Idee oder Lösung dazu?
AW: Zellen per Doppelklick in die Zwischenablage
10.02.2017 20:04:50
Mullit
Hallo,
..klar, da geht schon was, aber Deine Angaben sind etwas Kraut und Rüben, sollen jetzt nur die Nachbarzellen mitkopiert werden oder doch noch andere Zellen...? 
Was brauche ich (z.B. Doppelklick auf A2)
 Excel: doppelklick auf Zelle kopiert A2/B2/D3 nach Word in die Tabelle aktuelle Reihe
 Excelzelle A2 wird nach Word aktuelle Reihe, aktuelle Zelle kopiert (Spalte2)
 Excelzelle B3 wird nach Word aktuelle Reihe, eine Zelle neben aktueller Zelle kopiert (Spalte3)
 Excelzelle D3 wird nach Word aktuelle Reihe, Zwei Zellen neben aktueller Zelle kopiert (Spalte4)

Gruß, Mullit
Anzeige

271 Forumthreads zu ähnlichen Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 10:53:15
Thread-ID: 1016793
5 Beiträge
Daten kopieren und in die nächste freie Zeile eine
Haagangelika

Hallo,
kann mir bitte jemand helfen.
Ich möchte aus meinem Tabellenblatt1 einen bestimmten Bereich markieren, und diesen dann in Tabellenblatt 2 einfügen, und zwar immer in die nächste freie Zeile.
Es wird immer aus Tabellenblatt1 ( welches bei bedarf überschrieben wird ) in Tabelle...
05.11.2008 09:34:00
Thread-ID: 1021769
8 Beiträge
Anzeige
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
Gesperrte Zellen in Zwischenablage kopieren
Elias

Hallo Forum,
ich habe eine Tabelle, in welcher ein Datenbereich von B5:B20 per Button in die Zwischenablage kopiert werden soll.
Der Kram mit dem Button ist alles kein Problem, aber die Crux ist:
-Die Zellen sind gesperrt.
-Das PW darf nicht im VBA-Code hinterlegt werden, da das...
13.06.2009 23:26:05
Thread-ID: 1081337
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
4
7
3
2
8
2
2
5
6
1
4
7
4
3
1
5
5
3
6
2
1
1
2