Herbers Excel/VBA-Archiv
sichtbare zeilen (ab zeile 15) kopieren
- sichtbare zeilen (ab zeile 15) kopieren von Andy vom 07.09.2004 14:36:25
- Problem gelöst - von Andy am 07.09.2004 15:01:40
 |
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
| |