Office: Alle Werte ungleich Null kopieren und in neues Blatt einfügen

Freut mich.
Danke für Deine Rückmeldung!

 

Hallo,

ist zwar schon gelöst, aber da ich auch schon was geschrieben habe meine Lösung auch noch. Ich hab den Autofilter benutzt.

PHP:

         Sub Schaltfläche1_Klicken()
Dim loLetzte As Long

Application.ScreenUpdating = False

With Worksheets("Tabelle3")
loLetzte = .Cells(.Rows.Count, "J").End(xlUp).Row
.Range("I10:J" & Worksheets("Tabelle2").Range("E2")).AutoFilter Field:=2, Criteria1:="<>0"
With .AutoFilter.Range
.Columns(2).Offset(1).Resize(.Rows.Count - (loLetzte - (Worksheets("Tabelle2").Range("E2") + 9))).Copy
With Worksheets("Tabelle2")
.Range("G" & .Cells(.Rows.Count, "G").End(xlUp).Offset(1).Row).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End With
If .AutoFilterMode Then .AutoFilterMode = False
End With
End Sub