Office: (Office 2013) Zeile löschen oder verschieben, wenn

Hallo Fachleute,

zunächst: Ich weiß es gibt genug Beiträge die mein Problem behandeln.
Jedoch bin ich zu doof um es für mich umzusetzen.

Hier mein Problem:
Ich möchte wenn in einer bestimmten Zelle (im Beispiel Spalte I) ein Z.B. X steht dass die ganze Zeile gelöscht oder vielleicht noch besser auf ein anderes Tabellenblatt verschoben wird.

Ich bekomme es nicht hin. Vielleicht jemand von euch?

Vielen Dank für Eure Hilfe.

MfG Sven

:)

 

Hallo Sven,

VBA wurde abgelehnt, da XLSY Datei.
Das kannst Du ohne VBA nicht lösen.

 

Hallo Sven,

Im Beispiel ist es Spalte J !

In welchen Spalten kann das 'x' auftreten ?

Wohiin soll die Zeile dann verschoben werden ?

Was ist Deine Vorstellung zum Zeitpunkt:
- sofort nach setzen des 'x' ?
- oder zB auf Tastendruck alle Zeilen durchsuchen, die in den näher bezeichneten Spalten das 'x' enthalten ?

Gruß
Aloys

 

Hallo Aloys,

das x soll nur in Spalte J auftreten.
Sofort nach setzen des x soll die gesamte Zeile in ein anderes Tabellenblatt verschoben werden. Und zwar einfach nur fortlaufend.

MfG Sven

 

Aloys fragt nicht ohne Grund.

Denn das x könnte auch anders als händisch gesetzt werden, nämlich z.B. gleichzeitig in mehrere Zeilen der Spalte J durch Kopieren von außen.

Das OnChange_Ereignis könnte dieses z.B. zusätzlich abfragen, und die entsprechenden (mehreren!) Zeilen dann verspätet, aber automatisch, verschieben-oder-wegkopieren-und-löschen, wenn das nächste einfache händische x gesetzt wird.

Steckt das Mehrfach-Löschen in einer manuell ausführbaren Routine, kann diese natürlich ebenfalls zusätzlich durch OnChange aufgerufen werden.

 

Hallo Sven,

anbei mein Lösungsvorschlag.

Gruß
Aloys

 

In Tabelle 1 verschwindet der Satz nicht. Bei mir (xl2010).

 

Hallo Lupo,

danke für den Hinweis !

Anbei der ergänzte Code:
Code:

Gruß
Aloys

 

Hallo Aloys,

also großes Lob von mir. Es ist genau das was ich mir vorgestellt habe.
Vielen Dank für die geniale Hilfe!! Super, Super, Super.

Gruß Sven