AW: Zeile in anderes Tabellenblatt kopieren, WENN
10.10.2016 16:24:52
UweD
Hallo
so z.B.
Sub TT()
On Error GoTo Fehler
Dim TB1, TB2, LR1&, LR2&, Ze%
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
Ze = 3 'ab Zeile
LR1 = TB1.Cells(TB1.Rows.Count, "A").End(xlUp).Row + 1
LR2 = TB2.Cells(TB2.Rows.Count, "A").End(xlUp).Row
If TB2.AutoFilterMode Then TB2.AutoFilterMode = False ' Autofilter ausschalten
TB2.Columns(4).AutoFilter
TB2.Columns(4).AutoFilter Field:=1, Criteria1:="<>"
TB2.Rows(Ze & ":" & LR2).Copy TB1.Rows(LR1)
LR1 = TB1.Cells(TB1.Rows.Count, "A").End(xlUp).Row + 1
TB1.Cells(LR1, 4).FormulaR1C1 = "=SUM(R3C:R[-1]C)"
Err.Clear
On Error GoTo Fehler
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
LG UweD