Durch das Markieren mit einem Buchstaben in Spalte A die ganze Zeile in eine andere Tabelle...

Innerhalb einer Tabelle ist das Verhalten normal.

Der Menüpunkt "Ausgeschnittene Zellen einfügen" oder "Ausgeschnittene Zeilen einfügen" erscheint nur außerhalb einer Tabelle.

Daher links von Spalte A die ganze Zeile markieren, dann ausschneiden und dann wiederum mit der rechten Maustaste links von Spalte A mit rechts auf die Zeile klicken, dann kommt der Menüpunkt.

Alternativ kann man auch die ganze Zeile markieren, den Mauscursor auf den Rand bewegen, die UMSCHALT-Taste drücken und festhalten und dann die Zeile an die neue Stelle ziehen, und loslassen.

Wenn mehrere Tabellen in dem Blatt sind (oder andere Dinge wie verbundene Zellen etc.) die sich mit der zu verschiebenden Zeile schneiden, dann geht das natürlich alles nicht.

Andreas.

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim Dest As Range

  If Target.Count > 1 Then Exit Sub

  If Target.Column > 1 Then Exit Sub

  Select Case Target.Value

    Case "S"

      With Worksheets("Suchen")

        Set Dest = .Range("A" & Rows.Count).End(xlUp).Offset(1)

      End With

      Target.EntireRow.Copy Dest

  End Select

End Sub

Hallo Claus,



danke für die Antwort.



Die Tabelle ist wie folgt aufgebaut:



Ab Zeile 7 werden in den Spalten A bis G persönliche Daten eingetragen, in Spalte G das Geburtsdatum.

In Spalte J wird der Buchstabe A oder D eingetragen. Nur wenn die Kombination "Alter unter 18" und "Buchstabe A" vorhanden sind, soll ein Hinweis erfolgen.



Dies könnte ich sicherlich mit einer bedingten Formatierung erledigen, aber ich habe in der Tabelle schon mehrere bedingte Formate eingesetzt, so dass eine Einfärbung oder Hervorhebung nicht mehr so auffallen würde.



Wäre die VBA-Lösung sehr umständlich ?



Liebe Grüße

Reinhold

Hallo,
<br />sortiere die Spalte mit den Buchstaben/Nummer von A nach Z und die Datumsspalte nach Alter absteigend. Gehe dann auf Duplikate entfernen und markiere dort die Spalte mit den Buchstaben/Nummern.
<br />Claus
<br />

Hallo Claus,

vielen Dank für die schnelle Antwort, aber ich habe mich bei meiner Frage wahrscheinlich missverständlich ausgedrückt. Es soll nicht jeweils in die nächste freie Zeile geschrieben werden, sondern in eine ganz bestimmte Tabelle und bestimmte Zelle bei jeder
Zeile. Diese Angaben weichen von Zeile zu Zeile ab und unterliegen keinem Muster.

Zeile 1 Kopfzeile

Zeile2

Holen der Werte aus Angaben der Spalten D bis G - E:\Pfad\ Daten1.xlsm Tab1 E2

Schreiben der Werte aus Angaben der Spalten A und B in Tabelle "Master1" und Zelle "A2"

Zeile 3

Holen der Werte aus Angaben der Spalten D bis G - E:\Pfad\ Daten3.xlsm Tab113 D3

Schreiben der Werte aus Angaben der Spalten A und B in Tabelle "Master2" und Zelle "B3"

Zeile4

usw.

Vielleicht kannst Du mir auf dieser Basis nochmals eine Lösung anbieten?

Vielen Dank!

Volker