Autofilter kopieren, bei leerer Zelle wird abgebrochen

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Nadine.Uhlig.

    Autofilter kopieren, bei leerer Zelle wird abgebrochen

    Guten Tag,

    meine VBA Kenntnisse sind nicht sehr gut. Bis jetzt habe ich es aber immer irgendwie geschafft meine Knöpfe zum laufen zu bringen. Jetzt klappt es leider trotz intensiven Googlen nicht.

    Ich habe einen Button, der eigentlich ganz simpel die gefilterten Daten in eine andere Tabelle kopieren soll. Das hat immer super geklappt. Jetzt das große ABER
    Sobald ich einen Filter setze, der auch leere Zellen enthält, werden nur die Zeilen darüber kopiert. Er bricht einfach ab. Am einfachsten wäre es vermutlich eine Art Schleife einzubauen, die sagt solange in meiner Spalte AI (hier ist eine ID drin, die immer befüllt ist) was steht, weiter kopieren... Ich hab nen Knoten im Kopf oder denke vielleicht in die falsche Richtung.

    Wie gesagt, Programmiererfahrung ist in den Kinderschuhen, ich habe es mir stellenweise (zB beim löschen der Liste) sehr leicht gemacht.
    Ich wäre sehr dankbar für Hilfe und einen Denkanstoß.
    Lieben Dank an jeden, der sich die Mühe macht sich den Code anzuschauen.

    Hier der Code:

    Visual Basic-Quellcode

    1. Sub Schaltfläche2_KlickenSieAuf()
    2. 'in Serienbrief-kopieren-Button
    4. If MsgBox("Soll die Tabelle 'Serienbrief' überschrieben werden?", vbYesNo) = vbYes Then
    6. Dim lngFilterRow As Long, lngFilterColumn As Long
    7. Dim lngFilter As Long
    8. 'Zeilenanzahl für die spätere Ausgabe
    9. Dim Zeilenanzahl As Long
    11. With Worksheets("EKH2 2019")
    12. If .AutoFilterMode Then
    13. If .FilterMode Then
    14. With .AutoFilter
    15. lngFilterRow = .Range.Row
    16. lngFilterColumn = .Range.Column
    17. With .Filters
    18. For lngFilter = 1 To .Count
    19. If .Item(lngFilter).On Then Exit For
    21. Next
    23. End With
    24. End With
    25. 'Serienbrief bis Zeile 500 löschen
    26. Worksheets("Serienbrief").Range("a2:ai500").EntireRow.Delete
    28. 'Einfügen
    29. .Range(.Range(.Cells(lngFilterRow + 1, lngFilterColumn), _
    30. .Cells(lngFilterRow + 1, _
    31. lngFilterColumn + .AutoFilter.Filters.Count - 1)), _
    32. .Cells(lngFilterRow, lngFilter).End(xlDown)).Copy _
    33. Worksheets("Serienbrief").Range("A2")
    35. Zeilenanzahl = Worksheets("Serienbrief").Range("A65536").End(xlUp).Row - 1
    36. MsgBox "Es wurden " & Zeilenanzahl & " Datensätze kopiert"
    37. Else
    38. If MsgBox "Es ist kein Filter gesetzt"
    39. End If
    40. End If
    41. Else
    42. MsgBox "Kein Autofilter in der Tabelle.", 48, "Hinweis"
    43. End If
    44. End With
    45. Else
    46. Exit Sub
    47. End If
    48. End Sub


    CodeTags gesetzt, bitte in Zukunft selber setzen. ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Nadine.Uhlig schrieb:

    Sobald ich einen Filter setze, der auch leere Zellen enthält, werden nur die Zeilen darüber kopiert
    Das liegt an dem End(xlDown) in

    Visual Basic-Quellcode

    1. Cells(lngFilterRow, lngFilter).End(xlDown)).Copy _
    Das geht nur bis zum Ende der Region, also z.B. bis eine leere Zelle kommt.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende