Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei doppelklick Zelle in andere Tabelle kopieren

Forumthread: Bei doppelklick Zelle in andere Tabelle kopieren

Bei doppelklick Zelle in andere Tabelle kopieren
Rüdi
Hallo zusammen,
ich habe leider keine große Erfahrung mit VBA, aber trotzdem eine (für mich) sehr anspruchsvolle Aufgabe vor mir...
Eine kurze Beschreibung:
In Tabelle1 befindet sich eine Auflistung von Verträgen.
In Tabelle2 die Verträge der Vorjahre.
Mein Ziel ist es nun, dass bei Doppelklick (und Neueingabe) auf die aktuelle Vertragsnummer (Tabelle1) diese in Tabelle2 eingefügt wird. Die Vertragsnummern ändern sich jedes Jahr und die Tabelle2 soll somit zum Archiv werden um ältere Verträge zurück verfolgen zu können! Dh. die kopierte Zelle sollte sich in der selben Zeile wie in Tabelle1 befinden...
Ich hoffe man kann mit meiner Beschreibung etwas anfangen und wäre für eure Hilfe sehr dankbar.
Bis jetzt habe ich es nur geschafft dass die Zellen in einer Spalte (wahrlos) unter einander eingefügt wurden...
Viele Grüße
Rüdi
Anzeige
AW: Bei doppelklick Zelle in andere Tabelle kopieren
11.05.2012 17:48:45
Dirk
Poste mal bitte dein Makro um zu sehen was du schon hast
Gruß
Dirk
AW: Bei doppelklick Zelle in andere Tabelle kopieren
12.05.2012 10:33:20
Ass
Hi Rüdi
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim akt, r As Range
If Target.Column = 1 Then
Set r = Worksheets("Archiv").Cells(Target.Row, Columns.Count).End(xlToLeft)
If r.Value  Target.Value Then r.Offset(, 1) = Target.Value
Cancel = True
End If
End Sub
Rechtsklick auf den Tabellenreiter, in der der Doppelklick gesteuert werden soll, und genau dort den Code hinein kopieren. Deine Tabelle2 muss den Namen "Archiv" haben - sonst entsprecchend ändern. Das war's auch schon.
Gruß
Rudi
Anzeige
AW: Bei doppelklick Zelle in andere Tabelle kopieren
14.05.2012 08:49:23
Rüdi
Guten morgen Rudi,
zu erst mal Danke für deine Hilfe! Doch leider funktioniert es bei mir noch nicht.
Muss ich noch etwas beachten bzw im Code anpassen?
Grüße
Rüdi
AW: Bei doppelklick Zelle in andere Tabelle kopieren
14.05.2012 22:19:06
Ass
Hallo Rüdi, ist bei mir gelaufen so wie beschrieben.
Wenn du nicht sagen kannst, was konkret nicht funktioniert, dann hilft nur eine Beispieldatei mit Musterdaten hochzuladen.
Gruß
Rudi
Anzeige
AW: Bei doppelklick Zelle in andere Tabelle kopieren
16.05.2012 09:08:19
Rüdi
Hallo Rudi,
ich habe deinen Code im VBA eingefügt, jedoch passiert bei mir überhaupt nichts. Ich glaube ich muss die Spalte bzw Zeile eingeben in der der Doppelklick gemacht wird. Leider weiß ich nicht wie/wo...
Danke für deine Hilfe
Rüdi
AW: Bei doppelklick Zelle in andere Tabelle kopieren
16.05.2012 09:12:57
Hajo_Zi
Hallo Rüdi,
die Spalte ist angegeben
Target.Column = 1
Spalte A

Anzeige
AW: Bei doppelklick Zelle in andere Tabelle kopieren
16.05.2012 10:07:17
Rüdi
Hallo,
da sieht man, dass ich wirklich keine Ahnung habe. ;) Das war der springende Punkt. Bei mir ist es nicht eins sondern Target.Column=6. Danke für den Denkanstoss!
Vielen Dank
Rüdi

Forumthreads zu verwandten Themen

Doppelklick auf Excel-Datei funktioniert nicht
Markus

Hallo,
mein Excel spinnt ein wenig.
Klicke ich im Datei-Explorer auf eine Excel-Datei wird zwar Excel geöffnet, aber Excel reklamiert dann sogleich, dass die Datei nicht geöffnet werden kann.
Der gesamte DateiPfad der Excel-Datei inkl. des Dateinamenes wird in angezeigt (z.B. d:\da...
02.09.2008 19:37:00
Thread-ID: 1006922
4 Beiträge
Zwei Bereiche Zwei UF mit Doppelklick
Frank

Hallo zusammen, schlage mir mal wieder die nacht um die Ohren.
Vielleicht kann man mir ja irgendwie helfen.
Ich habe ein Tabellenblatt in dem es Zwei Bereiche gibt. Ich möchte nun jeweils die Bereiche mit einer UF per doppelklick ansprechen. Wie schaffe ich es,dass ich den zweiten Berei...
17.09.2008 23:47:00
Thread-ID: 1010567
2 Beiträge
Doppelklick Zelle daten aus anderes Tabelle Vlooku
Karel

Hallo Liebe Leute,
Durch doppelklick auf zelle Wechselkurs Spalte I (Tabelle Invoice) aus ander Tabelle (Kurse) Wechselwährung in Zelle eintragen.
Habe datei als beispiel mit eingefügt
https://www.herber.de/bbs/user/55871.xls
1) Bei Kürzel EURO nur 1 eintragen
2) Datum Währ...
07.10.2008 19:39:32
Thread-ID: 1014802
2 Beiträge
Anzeige
Beim Doppelklick das UserForm starten ?
Selma

Hallo Leute,
wie kann ich beim Doppelklick im Zellenbereich K12:K (ActiveSheet.UsedRange) das UserForm7 starten
und beim Doppelklick im Zellenbereich Q12:Q (ActiveSheet.UsedRange) das UserForm2 starten?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
13.10.2008 17:17:00
Thread-ID: 1016126
4 Beiträge
Vom Doppelklick zum Einmalklick: UF und LB
Lenhard

Moin Excellianer!!
Durch folgenden Code und einem Doppelklick auf ein gesperrtes Tabellenblatt starte ich ein das UserForm0...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) UserForm0.Show Cancel = True End Sub
Meine Frage hier: Kann man das Use...
17.12.2008 23:27:50
Thread-ID: 1033722
5 Beiträge
Doppelklick
Dieter.G

Hallo zusammen,
wie kann ich per "Doppelklick" die beiden Werte aus einer beliebigen Zeile in Spalte I und den benachbarten Wert aus der übernächsten Spalte K Tablelle1, in die erste frei Zelle von unten in Spalte B und C in Tabelle2 kopieren?
Danke schon mal
Gruß Dieter
24.01.2009 13:20:00
Thread-ID: 1043341
4 Beiträge
Anzeige
Bei Doppelklick Zellinhalt übernehmen
Thomas

Hallo an alle und einen schönen guten Abend,
ich habe vor längerer Zeit hier im Forum mal einen Kalender gefunden den ich jetzt sehr gut einsetzen könnte.
Ist es möglich, und wenn ja wie, dass wenn man auf ein Datum im Kalender klickt, dieses Datum in einer anderen Zelle automatisch übe...
08.02.2009 17:58:59
Thread-ID: 1048392
3 Beiträge
Automatischer Eintrag durch Doppelklick auf Zelle
Micha

Hallo liebe Spezialisten,
nachdem mir vorhin so Super in diesem Forum geholfen wurde, hier gleich die nächste Frage:
Ist es möglich, das in einem bestimmten Tabellenbereich mir durch einen Doppelklick auf eine Zelle automatisch ein "x" in diese Zelle eingegeben wird?
Würde mich über...
12.02.2009 14:30:00
Thread-ID: 1050071
6 Beiträge
Zeilen per Doppelklick kopieren von Sheet zu Sheet
Sheet

Hallo Excelfreunde,
ich habe ein Problem bei der Anpassung von einigen VBACodes, die ich mir mit eurer Hilfe
in mühevoller Arbeit zusammengestellt habe. Danke noch mal dafür!
Ich habe eine Beispieldatei meiner Arbeitsmappe beigefügt, in der ich euch die bisherige Funktionsweise erlä...
06.03.2009 16:39:05
Thread-ID: 1057378
3 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
Doppelklick für alle Mappen
Herbert

Hallo liebe Helfer
Ich möchte ein Doppelklick-Ereignis für alle Mappen haben, also den Code in die Personl.xls setzen um das u.a. Makro in anderen Tabelllen auch ausführen zu können. Ich weis aber nicht wie ;-(
So habe ich zur Zeit es für das aktuelle Sheet:
Private Sub Workbook_...
17.03.2009 10:52:49
Thread-ID: 1061025
7 Beiträge
Anzeige
Zeilen unterhalb eines Doppelklick ausblenden/einb
19david65

Hallo,
habe ein Excel-Problem, woran ich seit einigen Tagen knabbere und im Forum bisher auch keine Lösung gefunden habe.
In einer Excel-Tabelle habe ich Hauptzellen/-felder deren Inhalt stets mit "**" (zwei Sternen) anfangen (Beispiel: "** Energie" oder "** Haushalt"). Die Hauptzellen...
26.03.2009 08:33:45
Thread-ID: 1064096
9 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Doppelklick zum Kopieren von Zellen in eine andere Tabelle

Schritt-für-Schritt-Anleitung

Um bei einem Doppelklick auf eine Zelle in Excel diese in eine andere Tabelle zu kopieren, kannst du den folgenden VBA-Code verwenden. Dieser Code geht davon aus, dass du in der ersten Spalte (Spalte A) arbeitest und dass die Ziel-Tabelle den Namen "Archiv" trägt.

  1. Öffne Excel und gehe zu der Tabelle, in der du den Doppelklick registrieren möchtest (z.B. Tabelle1).

  2. Klicke mit der rechten Maustaste auf den Reiter der Tabelle und wähle „Code anzeigen“.

  3. Kopiere den folgenden VBA-Code in das dafür vorgesehene Fenster:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim r As Range
   If Target.Column = 1 Then ' Prüfen, ob die Spalte 1 (A) ist
       Set r = Worksheets("Archiv").Cells(Target.Row, Columns.Count).End(xlToLeft)
       If r.Value <> Target.Value Then r.Offset(, 1) = Target.Value
       Cancel = True ' Verhindert das Editieren der Zelle
   End If
End Sub

  4. Achte darauf, dass du den Namen "Archiv" anpasst, falls deine Ziel-Tabelle anders heißt.

  5. Schließe den VBA-Editor und teste den Doppelklick in deiner Tabelle.

Häufige Fehler und Lösungen

  • Fehler: Nichts passiert beim Doppelklick.

    • Stelle sicher, dass du den Code korrekt in das Modul der entsprechenden Tabelle eingefügt hast und dass die Spalte richtig angegeben ist (z.B. Target.Column = 1 für Spalte A).

  • Fehler: Zellen werden nicht in der richtigen Zeile kopiert.

    • Überprüfe, ob die Zeilennummer des Target-Objekts korrekt verwendet wird. Der Code sollte sicherstellen, dass die Daten in der gleichen Zeile wie in Tabelle1 eingefügt werden.

Alternative Methoden

Falls du keine VBA-Programmierung verwenden möchtest, kannst du auch die Funktion „Kopieren“ und „Einfügen“ manuell nutzen. Dies ist jedoch weniger automatisiert und erfordert mehr Eingaben. Eine andere Möglichkeit ist die Verwendung von Excel-Formeln, um Daten zwischen Tabellen zu verknüpfen.

Praktische Beispiele

  • Beispiel 1: Wenn du in Tabelle1 in Zelle A2 einen Doppelklick machst, wird der Wert von A2 in die entsprechende Zeile in Tabelle2 (Archiv) eingefügt, solange die Zelle in „Archiv“ leer ist.
  • Beispiel 2: Ändere die Spalte im Code zu Target.Column = 6, wenn du eine andere Spalte verwenden möchtest, z.B. Spalte F.

Tipps für Profis

  • Nutze die Möglichkeit, mehrere Spalten zu bearbeiten, indem du If Target.Column = 1 Or Target.Column = 6 Then verwendest.
  • Experimentiere mit weiteren VBA-Funktionen, um die Automatisierung in Excel zu verbessern, wie z.B. das Einfügen von Zeitstempeln oder das Speichern von Änderungen in eine Log-Tabelle.

FAQ: Häufige Fragen

1. Frage
Kann ich den Code auch für andere Spalten verwenden?
Ja, du kannst Target.Column anpassen, um andere Spalten zu verwenden. Achte darauf, dass die Ziel-Tabelle korrekt referenziert wird.

2. Frage
Funktioniert dieser Code in allen Excel-Versionen?
Der Code ist für Excel-Versionen ab 2010 geeignet. Überprüfe die VBA-Einstellungen, wenn du eine ältere Version verwendest.

Beliebteste Forumthreads (12 Monate)

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