Tabellenkalkulation

Klick auf Zelle - Inhalt kopieren und einfügen

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo, möchte durch einen Klick auf eine Zelle den Inhalt dieser Zelle kopieren und in eine andere Tabelle in eine bestimmte Zelle wieder einfügen lassen. Bitte detaillierten VBA-Code angeben. Verbindlichsten Dank!!

Antwort 1 von Ravetti

Wert steht in Zelle A1 und soll ausgegeben werden in AD56? Formel in AD56 =A1

Antwort 2 von Hertlein

War anders gemeint. Das kopieren und einfügen soll erst stattfinden, wenn ich irgendeine Zelle mit Inhalt angeklickt habe. Kann also nur mit einem Makro gelöst werden.

Aber trotzdem Danke!

Antwort 3 von Mac

Ist das sinnvoll, daß über einen Mausklick zu regelen? was ist wenn Du das Feld nur verändern möchtest, klickst drauf und er löst das Makro aus?
vielleicht ist eine Button Lösung besser?

Gruß
Mac

Antwort 4 von Hertlein

Hallo Mac,

ich schalt vor dem Makro noch ein Kontrollkästchen. Wenn dieses aktiv ist, ist auch der Makro aktiv.

Antwort 5 von Mac

OK.... Hoffe das Dir jemand hilft, der sich mit Makros auskennt (nicht so wie ich...;-) )

Gruß
Mac

Antwort 6 von Guenter

Hallo,

das ist wohl nicht so ganz einfach.
Das Ereignis "Klicken auf eine Zelle" wäre ja SelectionChange. Das wird aber immer mit dem Öffnen des Arbeitsblattes gestartet.

Ich habe mal ein Beispiel:
Voraussetzung zwei Arbeitsblätter, Tabelle1 und Tabelle2. Es werden Daten beim Selektieren von Tabelle1 in A1 von Tabelle2 übertragen (jedenfalls bei mir)


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Target.Select
   Selection.Copy
   
   Sheets("Tabelle2").Activate
  
   ActiveSheet.Paste
   Application.CutCopyMode = False
   Sheets("Tabelle1").Select
End Sub

Gruß
Günter

Antwort 7 von Hertlein

Hallo Günter,

hab ein bißchen experimentiert. Ist doch nicht so einfach. Die Funktion habe ich wenigstens und hoffe diese weiter ausbauen zu können. Vielleicht kann mir doch noch jemand eine bessere Lösung geben?

Auf jeden Fall, besten Dank vorerstmal!

Antwort 8 von Guenter

Hallo,

man könnte noch das Kontrollkästchen einbauen in der Weise, dass das Makro nur abläuft, wenn Checkbox1.Value = True
Beispiel:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If CheckBox1.Value = True then   
Target.Select
Selection.Copy
...
End if
...

Ich habe das nicht ausprobiert, sollte aber möglich sein.

Gruß
Günter

Antwort 9 von Hertlein

Hallo Günter,

könnten man den Code so verbessern, in dem man nur die Spalte A anklicken darf, für die "Kopieren und Einfügen-Aktion". Und das Einfügen soll in einer bestimmten Tabelle, in einer bestimmten Zelle vorgenommen werden.

Das würde mir eigentlich schon reichen!

Danke!

Antwort 10 von Guenter

Hallo,

versuchs mal mit diesem Makro.
Zum Klicken steht Bereich A1 bis A100 zur Verfügung (ggf. selbst änderen). Die markierte Zelle wird in B22 des selben Arbeitsblattes kopiert.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   On Error Resume Next

   Set myRange = Intersect(Range("A1:A100"), Target)
   If Not myRange Is Nothing Then
     Target.Select
     Selection.Copy
     [b22].Select
     ActiveSheet.Paste
     Application.CutCopyMode = False
   End If
End Sub