Microsoft Excel

Herbers Excel/VBA-Archiv

sichtbare zeilen (ab zeile 15) kopieren

Betrifft: sichtbare zeilen (ab zeile 15) kopieren von: Andy
Geschrieben am: 07.09.2004 14:36:25

Hallo!

wie kann ich nur die eingeblendeten zeilen eines Tabellenblattes kopieren?
Dazu gibt es jedoch die einschränung, dass die zeilen 1-14 nicht kopiert werden sollen. Weiterhin wird die anzahl der zeilen (j) gezählt, so dass nur bis maximal zur j-1 Zeile kopiert werden soll.
Die kopierten zeilen sollen dann in einem anderen, existierendem, blatt ab zelle
A15 eingefügt werden.

Danke im Voraus
Andy

  


Betrifft: Problem gelöst von: Andy
Geschrieben am: 07.09.2004 15:01:40

Das Problem ist gelöst

e = Sheets("Status").Cells(Rows.Count, 1).End(xlUp).Row + 1
d = e - 15
Dim rng As Range
Set rng = Range(Cells(15, 1), Cells(15 + d, 7)).Cells.SpecialCells(xlCellTypeVisible)
rng.Copy
Sheets("Druck").Select
Range("A15").Select
ActiveSheet.Paste

Andy


 

Beiträge aus den Excel-Beispielen zum Thema "sichtbare zeilen (ab zeile 15) kopieren"