Sub Makro2()
zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To zeilenanzahl
If IsEmpty(Cells(i, 3)) Then
Range(i & ":" & i).Select
Selection.EntireRow.Hidden = True
End If
Next
Range(Cells(1, 1), Cells(zeilenanzahl, 4)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Range(Cells(1, 1), Cells(zeilenanzahl, 4)).Select
Selection.EntireRow.Hidden = false
Sheets("Mappe2").Activate
Range("A9").Select
ActiveSheet.Paste
End Sub
Ab Zeile 6 sollen die potentiellen Leerzeilen ausgeblendet werden? Dann ist die For-Schleife auf "FOR i=6 ...." zu ändern.
Ist der zu kopierende Bereich ab Zeile 6 gemeint, dann "Range(Cells(1, 1), Cells(zeilenanzahl, 4)).Select" durch "Range(Cells(6, 1), Cells(zeilenanzahl, 4)).Select" zu ersetzen.
Ich gehe davon aus, dass du das Originalblatt wieder komplett haben willst. Nach dem Kopiervorgang wird daher alles auf Ausgangszustand wieder hergestellt.
|