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
  Funktion anwenden auf bestimmte Zellen definiert durch eine Bedingung in selber Zeile Lor4x 5 47 Gestern, 18:25
Letzter Beitrag: atilla
  Jede 4 Spalte in 1 neue Zeile kopieren joeker 2 48 20.01.2017, 06:28
Letzter Beitrag: joeker
  VBA Code verschieben einer Zeile in anderes Tabellenblatt rebound6 1 50 18.01.2017, 13:13
Letzter Beitrag: RPP63
  Bei Klick in andere Zelle Andy2711 3 52 17.01.2017, 14:52
Letzter Beitrag: BoskoBiati
  Kopieren einer Zählenwenns-Funktion MyExcel2707 4 66 16.01.2017, 16:03
Letzter Beitrag: lupo1
  Ausgewählte Zeilen verschiedener Tabellen in einer Tabelle zusammenfassen Chris482 7 200 14.01.2017, 15:11
Letzter Beitrag: Rabe
  Werte in einer Zeile addieren bis Zielwert erreicht und verwendete Werte markieren hoteu 2 60 12.01.2017, 13:04
Letzter Beitrag: hoteu
  Sortieren von Datensätzen nach mehreren Kriterien in einer Zeile Doesie 2 107 12.01.2017, 12:01
Letzter Beitrag: Doesie
  Mehrere Drop Down Boxen in einer Zeile mit einem Makro ansteuern maxx007 2 76 08.01.2017, 14:45
Letzter Beitrag: maxx007
  Werte aus verschiedenen Zellen auslesen und in einer Zelle eintragen Robbie1985 2 46 07.01.2017, 10:39
Letzter Beitrag: WillWissen

Gehe zu:


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