Daten von Tabelle zu Tabelle per "Button" übertragen

[Niclaus]

Hallo

Zu 1. Meldung, wie viele Zeilen übertragen wurden. Ich habe mein Makro angepasst. Im letzten Teil heisst es nun:

Code:

...
Sheets("Start").Select
zaehler = 0
For j = lzs To 1 Step -1
    If Cells(j, 20).Value = "x" Then
        Rows(j).Delete Shift:=xlUp
        zaehler = zaehler + 1
    End If
Next j

Sheets("Start").Select
    Range("A1").Select
Sheets("Ende").Select
    Range("A1").Select
MsgBox "Uebertragen wurden " & zaehler & " Zeilen."
End Sub

Zu 2. Button neue Zeile: Mit dynamischen Tabellen kenne ich mich überhaupt nicht aus. Da kann ich Dir nicht helfen.

Zu 3. In der Zieltabelle werden Einträge überschrieben. Wenn in meiner Version in jeder Zeile in Spalte B ein Wert steht, kann das kaum passieren.
Das Makro von Werner ist ganz anders konzipiert. Aber ich kann es mir auch bei seiner Version nicht vorstellen, wie das geschehen könnte.

Grüsse Niclaus