Supportnet / Forum / Tabellenkalkulation
VBA: gefilterte Daten excl. Überschriften ausschneiden?
Frage
Tach, liebe VBA-Künstler
folgende Vorgabe:
in einem Blatt ist der Autofilter gesetzt
diesen gefilterten Bereich kann man mit
[code]Selection.CurrentRegion.SpecialCells(xlVisible).Copy[/code]
kopieren, ausschneiden mit Cut.
Jetzt mein Problem:
Mit diesem Befehl wird die Überschriftenzeile mitmarkiert.
Gibts eine Lösung, mit der ich nur die gefilterten Daten excl. Überschriften markiere/kopiere/ausschneide ?
MfG
schnallgonz
Antwort 1 von nighty
hi schnallgonz :)
wie gewünscht :)
gruss nighty
Sub test()
Dim bereich As Range
Set bereich = Sheets(1).Range("A2:A65535").SpecialCells(xlVisible)
bereich.SpecialCells(xlVisible).Copy
End Sub
wie gewünscht :)
gruss nighty
Sub test()
Dim bereich As Range
Set bereich = Sheets(1).Range("A2:A65535").SpecialCells(xlVisible)
bereich.SpecialCells(xlVisible).Copy
End Sub
Antwort 2 von schnallgonz
hi nighty,
besten Dank, hast mir sehr geholfen.
Mit Deinem Vorschlag habe ich folgende Lösung hinbekommen:
wobei Zeile mit
und esp sowie s mit
vorher ausgelesen werden.
Die Filterfunktion ist einfach 1.000 x schneller als jeder Schleifendurchlauf und o.g Finale fehlte mir noch.
Gruß
schnallgonz
besten Dank, hast mir sehr geholfen.
Mit Deinem Vorschlag habe ich folgende Lösung hinbekommen:
Range(Cells(2, 1), Cells(Zeile, esp)).SpecialCells(xlVisible).Cutwobei Zeile mit
Zeile = Cells(65536, s).End(xlUp).Rowund esp sowie s mit
esp = ActiveCell.Columnvorher ausgelesen werden.
Die Filterfunktion ist einfach 1.000 x schneller als jeder Schleifendurchlauf und o.g Finale fehlte mir noch.
Gruß
schnallgonz
Antwort 3 von schnallgonz
Hi nighty,
besser:
Die Filterfunktion ist in meinem Fall einfach 1.000 x schneller als jeder Schleifendurchlauf .
Schließlich bist Du ja so ein ungekrönter Schleifenkönig, ich les mich jedesmal schwindelig, wenn Du dabei zur Höchstform aufläufst...
Gruß
schnallgonz
Zitat:
Die Filterfunktion ist einfach 1.000 x schneller als jeder Schleifendurchlauf
Die Filterfunktion ist einfach 1.000 x schneller als jeder Schleifendurchlauf
besser:
Die Filterfunktion ist in meinem Fall einfach 1.000 x schneller als jeder Schleifendurchlauf .
Schließlich bist Du ja so ein ungekrönter Schleifenkönig, ich les mich jedesmal schwindelig, wenn Du dabei zur Höchstform aufläufst...
Gruß
schnallgonz