Werte per Makro von einem Tabellenblatt zum anderen übertragen mit Bedingung

[NobX]

Hallo zusammen,

komme nicht weiter bei der Übertragung von Werten ohne Formeln von einem zum anderen Tabellenblatt.
Die Werte sollen bei Erfüllung der Bedingung, dass in der Spalte "H" der Wert <> 0 von Tabelle1 auf Tabelle2 übertragen werden ohne die Leerzeilen zu kopieren. Wenn die Bedingung nicht erfüllt ist, soll nichts passieren.
Hier mein bisheriges Makro (s. dazu auch die Beispieldatei):

Sub test()
Dim i As Long, r As Long
Dim aWks As Worksheet, bWks As Worksheet
Set aWks = Worksheets("Tabelle1")
Set bWks = Worksheets("Tabelle2")
With aWks
    For i = 1 To 16
        If .Cells(i, 8).Value <> "0" Then
            r = bWks.Cells(Rows.Count, 1).End(xlUp).Row + 1
            Debug.Print r
            With bWks
                .Range(.Cells(r, 6)).Value = aWks.Range(aWks.Cells(i, 1)).Value
            End With
        End If
    Next i
End With
End Sub


Vor "End With" kommt der Laufzeitfehler mit einem nicht definiertem Ojekt/Methode.

Wer kann mir weiterhelfen? Das Makro soll möglichst effizient sein, da es in der tatsächlichen Datei um mehrere Hundert Zeilen geht. die geprüft werden sollen auf den Wert <> "0"
Danke im Voraus für Eure Mühe.

Grüße
NobX

[Klaus-Dieter]

Hallo,

versuche es mal damit:

Code:

Sub übertrag()
    Dim lngZeile As Long
    Tabelle1.Range("A2").CurrentRegion.AutoFilter Field:=8, Criteria1:=">0", _
        Operator:=xlAnd
    lngZeile = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A2:I" & lngZeile).SpecialCells(xlCellTypeVisible).Copy _
        Destination:=Tabelle2.Range("A6")
End Sub

[NobX]

Hallo Klaus-Dieter,

danke für deinen Vorschlag. Grundsätzlich funktioniert Deine Version. Es werden mir beim Einfügen die vorhandenen Formatierungen gelöscht und durch den Autofilter in Tabelle 1 werden die anderen Zeilen ausgeblendet. Diese sollen für weitere Eingaben sichtbar bleiben. Kannst Du mir noch einen Vorschlag machen, wie ich den Code abändern kann um in Tabelle2 die Formatierungen beizubehalten und in Tabelle 1 ohne alle Zellen sichtbar bleiben?
Wenn`s klappt, wäre super.
Habe die Datei mit dem neuen Code noch einmal beigefügt.

Grüße
NobX