Zeilen ausschneiden bzw. in neues Blatt verschieben

Question

Hallo liebe Community,

ich versuche verzweifelt 2 Excel Blätter mit je 1 Tabelle zu
erstellen, in der ich Zahlungseingänge abarbeiten kann.
Das Blatt 1 besteht aus einer Tabelle, welche aus 11
Spalten besteht. Spalte 1-10 hat diverse Inhalte (RE
Datum, RE Nr, Kundennummer, etc.) und in Spalte 11 (K)
wird der Status der Rechnung eingegeben (Offen oder
Bezahlt). Nun soll nach erfolgreichem Zahlungseingang
und Eingabe des Wortes "bezahlt" in Spalte K der
jeweiligen Zeile, die komplette Zeile von Blatt 1 zu Blatt 2
ausgeschnitten und dort wieder eingefügt werden.
Optimal wäre immer darunter. Beide Blätter haben die
gleiche Form, Überschrift etc. Am Ende beider Tabellen
stehen Summenzahlen, welche am besten immer unten
angefügt bleiben. Nachdem ich überhaupt keine Ahnung
von dem Ganzen habe und  schon etliches versucht
habe, gebe ich mich geschlagen! :-) Könntet Ihr mir hier
evtl. weiterhelfen? Besten Dank schon mal für eure
Bemühungen und Unterstützung....

Answer 1

Hallo  Andi!

Ein Beispiel!

Gruß Nighty

Probier mal!

Nach Eingabe von bezahlt(groß/kleinschreibung) in Spalte K,erfolgt der Automatismus

Einzufügen
Alt+F11/Projectexplorer/Tabelle1

Tabelle2 wird ergänzt

[code]Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column = 11 And UCase(Cells(Target.Row, Target.Column)) = "BEZAHLT" Then
        Rows(Target.Row).Copy Worksheets("Tabelle2").Rows(Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
        Rows(Target.Row).Delete Shift:=xlUp
    End If
    Application.EnableEvents = True
End Sub[/code]

Answer 2

Hallo Andi!

oder auch so :-)

Gruß Nighty
[code]
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column = 11 And UCase(Cells(Target.Row, Target.Column)) = "BEZAHLT" Then Rows(Target.Row).Cut Worksheets("Tabelle2").Rows(Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
    Application.EnableEvents = True
End Sub[/code]

Answer 3

Hallo Nighty,

besten Dank für die schnelle Antwort....Ich habe beide Versionen direkt in einer neuen Mappe erstellt, jedoch klappt das leider nicht.

Ich habe es genauso umgesetzt wie du dies beschrieben hast. An was könnte das liegen?

Besten Dank

Gruß
Andi

Answer 4

Hallo Andi .-)

Im Projectexplorer siehst du

Tabelle1
Tabelle2
Tabelle3

Doppelclick auf Tabelle1
Makro im rechten Fenster einfügen
Worksheetnamen im Makro gegebenefalls anpassen(zur zeit Tabelle2)

Gruß Nighty

Answer 5

Hallo Nighty,

genauso habe ich es auch gemacht, jedoch geht das bei mir leider nicht.

Ich kann dir auch gerne die Datei zukommen lassen :-)

Beste Grüße & Vielen Dank

Andi

Answer 6

Hallo Andi :-)

Schick sie im xls Format
oberley@t-online.de

Gruß Nighty