Kopieren von bestimmten Zeilen in neues Blatt

Hallo Ihr Lieben,
habe ein kleines Excelproblem, das ich nicht mit Archivbeiträgen lösen konnte. Wär nett wenn ihr Exceltüftler mir helfen könntet!
Ich habe in Excel eine Anmeldeliste erstellt, die aus 2 Tabellenblättern besteht (tabelle 1, tabelle 2)
in tabelle 1 sind die Namen in Spalte B gelistet, in spalte D Anzahl der Kinder, E Anzahl Erwachsene, Spalte F Salat, G Nachspesie und H Bemerkung. :)
In Spalte C wird durch Makro durch Doppelklick ein "X" generiert.
Durch generieren dieses "X" sollen nun alle Mitarbeiter markiert werden, die Teilnehmen. Diese Teilnehmer sollen in Tabelle 2 als tatsächliche Teilnehmer kopiert werden.
Es wäre toll, wenn nun alle Zeilen komplett, die in tabelle 1 in Spalte C dieses "X" enthalten, in Tabelle 2 kopiert werden könnten (natürlich wieder alphabetisch)´, am besten mittels makro?
toll wäre, wenn es mir in tabellenblatt 2 keine leerzeilen gäbe und Änderungen, die ich in Tabelle 1 vornehme ( namensänderung, änderung kinder), automatisch auch in 2 auch geändert werden (auch wenn ich in Tabelle 1 das X wieder entferne soll die entsprechende komplette Zeile aus tabelle 2
verschwinden)
Hoffe das war ausführlich genug und schonmal Danke im Voraus,
liebe Grüße, Bea

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim zell As Range Dim zelle As Range If Intersect(Target, Range("C1:C1220")) Is Nothing Then Exit Sub If Target.Value = "" Then Target.Value = "X" Target.EntireRow.Copy Worksheets("Tabelle2").Range("A" & Worksheets("Tabelle2").Cells(Rows. _ Count, 2).End(xlUp).Row + 1) Else Target.Value = "" With Worksheets("Tabelle2").Range("B1:B100") Set zelle = .Find(Target.Offset(0, -1).Value, LookIn:=xlValues) zelle.EntireRow.Delete End With End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim oSH As Worksheet If Target.Count = 1 Then If Target.Column = 3 Then Application.EnableEvents = False Set oSH = Tabelle1 oSH.Range("I6").Value = "'" & oSH.Range("C6").Value oSH.Range("I7").Value = "'=X" With Tabelle3 oSH.Range("B6", oSH.Cells(oSH.Rows.Count, 3).End(xlUp).Offset(1, 5)). _ AdvancedFilter xlFilterCopy, oSH.Range("I6:I7"), .Range("B6:G6") .Range("B6:G" & .Rows.Count).Sort Key1:=.Range("B6"), Order1:=xlAscending, _ Header:=xlYes End With oSH.Range("I6:I7").Clear Application.EnableEvents = True End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Kopieren von bestimmten Zeilen in neues Blatt

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kopieren von bestimmten Zeilen in neues Blatt

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread