Zelle ausschneiden und einfügen vba

Guten Tag an die Mitglieder im Excel Forum,
ich bin neu registriert und bin somit noch nicht mit allen Regeln und Gepflogenheiten hier vertraut.
Ich habe ein Anliegen, welches eine ganz Simple Excel Tabelle mit Sortierfunktion betrifft.
Hier habe ich für unsere Dreherei Abteilung ein Liste erstellt, für interne Lager Aufträge, die es abzuarbeiten gilt.
Jetzt hätte ich gerne, wenn ich der Spalte G via Dropdown Menü ein "JA" gesetzt wird, dass man im nachhinein durch klicken eines Formularsteuerelements die Zeilen ausschneidet und in das Tabellenblatt "erledigt oder Archiv" überträgt.
Die Zeilen sollten wenn möglich dann im Tabellenblatt "Aktuell" nachrücken, so das keine Leerzeilen entstehen. Das gleiche für das Tabellenblatt "erledigt". Hier sollten die ausgeschnittenen und hier eingefügten Zeilen dann auch immer in die erste freie Zeile eingefügt werden.
Kann es sein, dass dies nur funktioniert, wenn man keine Tabelle mit Sortierfunkton hat?
Hier meine Tabelle:
https://www.herber.de/bbs/user/152414.xlsm
Ich habe hier im Forum auch etwas tolles gefunden, jedoch bekomme ich es nicht hin, dieses VBA für meine Zwecke zu nutzen.
https://www.herber.de/forum/archiv/1552to1556/1553802_Zeile_nach_Beding_in_anderes_Tabellenblatt_versch.html#google_vignette
Freundliche Grüße
Andy

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Set Target = Target.Range("A1") 'immer nur die erste Zelle beachten If Not Intersect(Target, Columns("G:G")) Is Nothing Then Application.EnableEvents = False Select Case Target.Value Case "Erl. (archivieren)" Target.EntireRow.Copy Worksheets("Erledigt").Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).EntireRow.Range("A1") Target.EntireRow.Delete Shift:=xlUp End Select Application.EnableEvents = True End If End Sub

Hallo Andy,
Ein paar Tipps, die das Verstehen + Lernen von VBA beschleunigt:
_ immer zuerst Makrorekorder verwenden (mache ich immer noch). Kurze Aufnahme machen und Code anschauen.
_ Code im Schritt-Modus laufen lassen (F8)
_ dabei das Lokalfenster offen halten (Ansicht, Lokalfenster), um den zsutand der Variablen zu sehen.
_ neugierig sein: was steht in dem Objekt hinter dem "+"
_ Überwachungsausdrücke verwenden: Variable oder Ausdruck markieren, Rechtsklick auf "Überwachung hinzufügen..."
_ Variable verwenden, nur um deren Stand im Lokalfenster zu beobachten.
_ auch gut: Debug.Print xxVariableName, druckt den Zustand eine Variable in das Direktfenster.
_ wenn ein VBA-Begriff nicht bekannt ist, Cursor drauf paltzieren und Strg+F1, um an der Online-Hilfe zu gelangen. Dort sich die Zeit nehmen, grundlich zu lesen (die Aufmachung ist nur am Anfang gewöhnungsbedürftig) und die gegebenen Beispiele anzuschauen.
_ wenn die erste Schritte schon gemacht sind, das Objektkatalog anschauen
und probieren, probieren, probieren
VG
Yal

Beliebteste Forumthreads (12 Monate)

Zelle ausschneiden und einfügen vba

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelle ausschneiden und einfügen vba

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread