Nur eingeblendete Zeilen kopieren?

Bild

Betrifft: Nur eingeblendete Zeilen kopieren? von: Herbert
Geschrieben am: 08.03.2005 15:37:21

Guten Tag,
vielleicht kann mir wer helfen!
Wenn ich in einer Liste den Autofilter anwende und dann nur diese eingeblendeten Zeilen in ein anderes Tabellenblatt kopiere, dann bläht sich die Datei auf das 100fache(x-MByte) auf? Warum passiert das? Gibt es eine bessere Lösung um nur die eingeblendeten bzw. nichtausgefilterten Zeilen in ein eigenes Tabellenblatt zu kopieren?

Vielen Dank im voraus für die Hilfe!
mfg
Herbert aus der Steiermark-Österreich

Bild


Betrifft: AW: Nur eingeblendete Zeilen kopieren? von: K.Rola
Geschrieben am: 08.03.2005 16:28:16

Hallo,

so z.B.:

Option Explicit
Sub Kopieren_nur_sichtbare()
Dim rngAF As Range
If Sheets("Tabelle1").FilterMode Then
    Set rngAF = Sheets("Tabelle1").AutoFilter.Range
    On Error Resume Next
    Set rngAF = rngAF.Offset(1, 0).Resize(rngAF.Rows.Count - 1, rngAF.Columns.Count)
    If Not Err Then rngAF.Copy Sheets("Tabelle2").[a1]
End If
End Sub


Gruß K.Rola


Bild


Betrifft: AW: Nur eingeblendete Zeilen kopieren? von: Herbert
Geschrieben am: 09.03.2005 10:52:50

Vielen Dank für die Antwort,

jedoch das makro kopiert mir nichts weiter: ich markiere z.b drei zeilen mit inhalten, die mittlere ist augeblendet. dann rufe ich das marko auf leider passiert nix.
bitte, bitte um weitere hilfe!!!!!
wende ich das makro falsch an?
gibt es dafür gar keine fixe Lösung im Excel ohne Makros?

LG
Herbert


Bild


Betrifft: AW: Nur eingeblendete Zeilen kopieren? von: K.Rola
Geschrieben am: 09.03.2005 13:43:18

Hallo,

in deiner Frage gings um gefilterte Listen. Der Code funktioniert nur dann.

Gruß K.Rola


Bild


Betrifft: AW: Nur eingeblendete Zeilen kopieren? von: herbert
Geschrieben am: 15.03.2005 13:30:06

Vielen Dank!
LG
Herbert


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Nur eingeblendete Zeilen kopieren?"