AW: Zeilen kopieren wenn kein Wert in Spalte
26.08.2019 22:08:40
Werner
Hallo Andreas,
bei mir nicht. Aber versuch das mal, hatte auch noch vergessen eine Prüfung einzubauen, falls es im Bereich in Spalte F keine leeren Zellen gibt.
Public Sub aaa()
Dim loSpalte As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Offset(, 1).Column
.Range(.Cells(1, loSpalte), .Cells(556, loSpalte)).FormulaLocal = "=LÄNGE(F1)"
.Range(.Cells(1, loSpalte), .Cells(556, loSpalte)).Value = _
.Range(.Cells(1, loSpalte), .Cells(556, loSpalte)).Value
If WorksheetFunction.CountIf(.Range(.Cells(2, loSpalte), _
.Cells(556, loSpalte)), 0) > 0 Then
.Range(.Cells(1, 1), .Cells(556, loSpalte)).AutoFilter Field:=loSpalte, _
Criteria1:=0
With .AutoFilter.Range
.Offset(1).Resize(.Rows.Count - 1, loSpalte - 1).Copy
Worksheets("Tabelle2").Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
.Range("A1").AutoFilter
End If
.Columns(loSpalte).ClearContents
End With
End Sub
Gruß Werner