Vielleicht nochmal als kleiner Hinweis, wenn irgendwer mal das gleiche Problem hat und hier drauf stößt.
Sub Makro5()
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(6, 1), Cells(zeilenanzahl, 4)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Range(Cells(1, 1), Cells(zeilenanzahl, 4)).Select
Selection.EntireRow.Hidden = False
Windows("Mappe2").Activate
Range("A9").Select
ActiveSheet.Paste
End Sub
Wenn man nicht alle Zellen bis zur letzten beschriebene Zelle braucht, also zum Beispiel man braucht bloß A6 bis D50, muss die Zeile:
Range(Cells(6, 1), Cells(zeilenanzahl, 4)).Select
in
Range(Cells(6, 1), Cells(50, 4)).Select
geändert werden.
Wie gesagt, nur wegen der Vollständigkeit. :D
|