Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Ausgewählte Zellen einer Zeile bei Klick in neues Sheet kopieren
#1
Guten Tag allerseits,

Ich habe ein Problem, das ich am einfachsten mit einem Beispiel Schildere.

Im Arbeitsblatt "Adressen" habe ich ein Adressverzeichnis mit den Spalten "Vorname", "Name", "Strasse" und "Ort". Pro Zeile wird also jeweils eine Person erfasst.

Nun will ich, dass ich im Adressverzeichnis eine Person bzw. eine Zeile irgendwie markieren kann (z.B. per Drop-Down, Checkbox etc.) und dass dann gewisse Daten (nicht alle (!)) in einem weiteren Sheet in eine Zeile kopiert werden.

So habe ich dann im Sheet "Teilnehmende" z.B. nur die Spalten "Vorname" und "Name".

Wichtig ist, dass schlussendlich nicht alle Personen vom Sheet "Adressen" auch im Sheet "Teilnehmende" vorkommen, sondern nur die markierten.

Kann mir irgendjemand sagen, wie ich dieses Problem lösen kann?
to top
#2
Hallo,

vielleicht mit einem DoppelClick-Ereignis in der Tabelle Adressen (die Vornamen stehen jeweils in der Spalte A, die Namen in der Spalte B)

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim lngLetzeZeile As Long
  
   With Worksheets("Teilnehmende")
      lngLetzeZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
      Cells(Target.Row, 1).Resize(, 2).Copy .Cells(lngLetzeZeile, 1)
      Cancel = True
   End With
End Sub

Wo Du den Code einzufügen hast, wird dir hier erklärt.
Gruß Stefan
Win 7 / Office 2007
to top
#3
Hallo,

formelmäßig oder mit VBA?

Vielleicht hilft dir dieses Posting weiter: http://www.clever-excel-forum.de/thread-...ml#pid2416

Dort ist sowohl eine Formellösung als auch eine verlinkte VBA-Lösung zu finden.
Gruß
Peter
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Bestimmte Zellen die den Typ enthalten kopieren auf ein anderes AB [VBA Marko] promenade 8 93 23.02.2017, 10:05
Letzter Beitrag: promenade
  Tabellenbereich kopieren, neues Dokument erstellen, einfügen und speichern DrWahnsinn 8 93 21.02.2017, 15:41
Letzter Beitrag: DrWahnsinn
  Gezielte Daten von einer Datei kopieren Hooorn 10 200 18.02.2017, 09:45
Letzter Beitrag: schauan
  Daten der Excel Sheet im Word in Excel übernehmen. blackwindow78 1 69 17.02.2017, 22:27
Letzter Beitrag: schauan
  Zelleninhalt in neues Tabellenblatt übernehmen torsten t. 3 88 16.02.2017, 12:51
Letzter Beitrag: RPP63
  (VBA) Zellen verschiedener gleichaufgebauter Dateien in Auswertungsdatei kopieren Betalo 12 104 15.02.2017, 15:57
Letzter Beitrag: Betalo
Wink Zellen zu einer Zusammenfassen automatisch ExcelNoob11 11 148 15.02.2017, 13:25
Letzter Beitrag: atilla
  Hilfe bei 2x Change im Sheet hbboy15 9 105 15.02.2017, 11:52
Letzter Beitrag: hbboy15
  Teil einer Tabelle um eine Zeile nach unten verschieben Sagulum 7 120 08.02.2017, 15:04
Letzter Beitrag: Sagulum
  Unikate aus Zellen in Spalten kopieren tmessers 4 82 06.02.2017, 21:41
Letzter Beitrag: snb

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste