Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Nur eingeblendete Zeilen kopieren?"
Eingeblendete Zeilen mit Werten zählen Zeilenhöhe in cm festlegen
Summe gefilterter Zeilen Zeilenumbruch
Leere Zeilen löschen Spalten/Zeilen aus- und einblenden
Zeilenumbruch in Formel erzwingen Zeilen und Spalten über ein Drehfeld ein- und ausblenden
Alle Kopf-/Fußzeilen-Festlegungen löschen Fußzeilen beim Öffnen eintragen