Herbers Excel-Forum - das Archiv
Nur eingeblendete Zeilen kopieren?
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
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
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
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
Betrifft: AW: Nur eingeblendete Zeilen kopieren?
von: herbert
Geschrieben am: 15.03.2005 13:30:06
Vielen Dank!
LG
Herbert