Nicht Löschen, wenn keine Daten vorhanden

  • Excel

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von sayb.

    Nicht Löschen, wenn keine Daten vorhanden

    Hallo und guten Morgen zusammen,

    ich bin von meinem Chef beauftragt worden, ein kleines Makro im Excel 2010 zum schnellen Aussortieren einer längeren Liste zu erstellen.
    Von Visual Basic hatte ich bis Dato keine Ahnung.Also habe ich mich gestern mal ein bisschen eingelesen und auch ein halbwegs funktionierendes Makro zustande gebracht.

    Ziel ist es, in ein vorgefertigtes Dokument jeden Tag eine bestimmte Liste einzufügen, deren Inhalt jeden Tag variabel ist.

    Anschließend sollen nicht benötigte Inhalte entfernt werden.

    Ich habe das ganze so gemacht:

    Range("H2").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=8, Criteria1:="=*Nom*", Operator:=xlAnd
    Range("A3").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.EntireRow.Delete
    Selection.AutoFilter Field:=8
    Selection.AutoFilter

    So weit hat auch alles funktioniert.


    Das Problem das Auftritt:
    Ich hatte jetzt eine Liste, in der unter "Field=8" kein "*Nom*" enthalten war.
    Also hatte er keine Ergebnise, markiert meine Filterzeile (H2, bzw. 2:2) und löscht diese.
    Diese ist aber für die weiteren Arbeitsschritte unbedingt von Nöten.

    Was ich suche ist ein Befehl wie "Wenn keine Daten vorhanden, dann nicht löschen".

    Gibt es sowas? Wenn ja wie geht das?

    Für Lösungsvorschläge bedanke ich mich schonmal im Vorraus ;)


    Grüße


    Edit by Dodo:
    -> Topic verschoben (Grundlagen => VBA)

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

    Wie gesagt, ich bin absolut neu im Thema VB durch meinen neuen Arbeitsplatz und eigentlich gehört es nicht zu meinem Aufgabenbereich, war nur ein kleines "Extra" worum ich gebeten wurde.

    Recht viel mehr Code hab ich eigetnlich nicht.

    Der Sinn meines Codes ist eigentlich einfach nur:
    "Filtere aus einer der 9 Spalten alles heraus, was "nom" enthält, markiere die Ergebnisse und lösche sie."

    Macht er soweit auch, nur wenn in der Spalte nichts mit "nom" enthalten ist, kommen demzufolge keine Ergebnisse aus dem Filter.
    Dann markiert er mir die Zeile, indem der AutoFilter gesetzt wurde und löscht diese.

    Diese Zeile befindet sich in Zeile 2.
    Zum löschen markiert habe ich alles ab A3 abwärts.

    Visual Basic-Quellcode

    1. Sub Nominationen_loeschen()
    2. '
    3. ' Nominationen_loeschen Makro
    4. '
    5. '
    6. Range("H6").Select
    7. Selection.AutoFilter
    8. Selection.AutoFilter Field:=8, Criteria1:="=*Nom*", Operator:=xlAnd
    9. Range("A7").Select
    10. Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    11. Selection.EntireRow.Delete
    12. Selection.AutoFilter Field:=8
    13. Selection.AutoFilter
    15. End Sub



    Mehr ist es nicht, man darf auf den button nur eben nicht klicken, wenn keine "Nom"'s in der Spalte stehen und das is doof.
    Ich will, dass man da immer wenn man das Dokument öffnet und die Liste eingefügt hat, einmal auf den Button drückt und alles, was nicht benötigt wird, aussortiert wird.

    Hallo,

    was hältst du davon?

    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Sub Loeschen_mit_Suche()
    3. Dim vBlatt As Worksheet
    4. Dim vSuchZeile, vSuchSpalte As Integer
    6. vSuchZeile = 6 'Überschriftzeile für Autofilter
    7. vSuchSpalte = 8 'Überschriftspalte für Autofilter (8 = H)
    9. Application.ScreenUpdating = False
    11. Set vBlatt = ThisWorkbook.Sheets("Tabelle1")
    13. vBlatt.Cells(vSuchZeile, vSuchSpalte).AutoFilter Field:=8, Criteria1:="=*Nom*", _
    14. Operator:=xlAnd
    15. vBlatt.Rows(vSuchZeile + 1 & ":" & vBlatt.Rows.Count).Delete Shift:=xlUp
    16. vBlatt.Cells(vSuchZeile, vSuchSpalte).AutoFilter
    18. Application.ScreenUpdating = True
    20. Set vBlatt = Nothing
    22. End Sub


    lg Markus
    :!: Danke an alle, die ihr Wissen freiwillig teilen und stets so kompetent & höflich sind :!:

    Wunderbar, Danke!
    So weit hat der Code genau das gemacht, was ich woltle, perfekt.

    Also hab ich weiter getestet, denn in der Spalte sind mehrere Daten vorhanden, die weg müssen.

    Ich hab das ganze mehrfach untereinander gefügt und die Criterias geändert, wodurch mir die Fehlermedlung:


    Fehler beim Kompilieren:

    Mehrfachdeklaration im Gültigkeitsbereich

    angezeigt wird. Da ist mein Plan wohl fehlgeschlagen :S





    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Sub Aussortieren()
    3. 'Nom
    4. Dim vBlatt As Worksheet
    5. Dim vSuchZeile, vSuchSpalte As Integer
    7. vSuchZeile = 6 'Überschriftzeile für Autofilter
    8. vSuchSpalte = 8 'Überschriftspalte für Autofilter (8 = H)
    10. Application.ScreenUpdating = False
    12. Set vBlatt = ThisWorkbook.Sheets("Tabelle1")
    14. vBlatt.Cells(vSuchZeile, vSuchSpalte).AutoFilter Field:=8, Criteria1:="=*Nom.*", _
    15. Operator:=xlAnd
    16. vBlatt.Rows(vSuchZeile + 1 & ":" & vBlatt.Rows.Count).Delete Shift:=xlUp
    17. vBlatt.Cells(vSuchZeile, vSuchSpalte).AutoFilter
    19. Application.ScreenUpdating = True
    21. Set vBlatt = Nothing
    23. 'storno
    24. Dim vBlatt As Worksheet
    25. Dim vSuchZeile, vSuchSpalte As Integer
    27. vSuchZeile = 6 'Überschriftzeile für Autofilter
    28. vSuchSpalte = 8 'Überschriftspalte für Autofilter (8 = H)
    30. Application.ScreenUpdating = False
    32. Set vBlatt = ThisWorkbook.Sheets("Tabelle1")
    34. vBlatt.Cells(vSuchZeile, vSuchSpalte).AutoFilter Field:=8, Criteria1:="=*storn*", _
    35. Operator:=xlAnd
    36. vBlatt.Rows(vSuchZeile + 1 & ":" & vBlatt.Rows.Count).Delete Shift:=xlUp
    37. vBlatt.Cells(vSuchZeile, vSuchSpalte).AutoFilter
    39. Application.ScreenUpdating = True
    41. Set vBlatt = Nothing
    43. 'Wochenschnitt
    44. Dim vBlatt As Worksheet
    45. Dim vSuchZeile, vSuchSpalte As Integer
    47. vSuchZeile = 6 'Überschriftzeile für Autofilter
    48. vSuchSpalte = 8 'Überschriftspalte für Autofilter (8 = H)
    50. Application.ScreenUpdating = False
    52. Set vBlatt = ThisWorkbook.Sheets("Tabelle1")
    54. vBlatt.Cells(vSuchZeile, vSuchSpalte).AutoFilter Field:=8, Criteria1:="=*wochenschn*", _
    55. Operator:=xlAnd
    56. vBlatt.Rows(vSuchZeile + 1 & ":" & vBlatt.Rows.Count).Delete Shift:=xlUp
    57. vBlatt.Cells(vSuchZeile, vSuchSpalte).AutoFilter
    59. Application.ScreenUpdating = True
    61. Set vBlatt = Nothing
    63. End Sub

    Hallo,

    also wenn du mehr als 2 Kriterien hast (wie in deinem Fall), könnte man entweder den Spezialfilter verwenden oder man lässt den Autofilter durch eine Schleife laufen. Das mehrfache kopieren des selben Codes ist daher unsinnig.

    Dein Fehler kommt daher, weil du die Variablen mehrfach deklarieren willst. "Dim ..."

    Hier ein Beispiel:


    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Sub Loeschen_mit_Suche()
    3. Dim t As Byte
    4. Dim vBlatt As Worksheet
    5. Dim vSuchZeile, vSuchSpalte As Integer
    6. Dim vSuchbegriff(2) As String
    8. vSuchbegriff(0) = "*Nom.*"
    9. vSuchbegriff(1) = "*storn*"
    10. vSuchbegriff(2) = "*wochenschn*"
    12. vSuchZeile = 6 'Überschriftzeile für Autofilter
    13. vSuchSpalte = 8 'Überschriftspalte für Autofilter (8 = H)
    15. Application.ScreenUpdating = False
    17. Set vBlatt = ThisWorkbook.Sheets("Tabelle1")
    19. For t = 0 To UBound(vSuchbegriff)
    20. vBlatt.Cells(vSuchZeile, vSuchSpalte).AutoFilter Field:=8, Criteria1:="=" & vSuchbegriff(t), _
    21. Operator:=xlAnd
    22. vBlatt.Rows(vSuchZeile + 1 & ":" & vBlatt.Rows.Count).Delete Shift:=xlUp
    23. vBlatt.Cells(vSuchZeile, vSuchSpalte).AutoFilter
    24. Next
    26. Application.ScreenUpdating = True
    28. Set vBlatt = Nothing
    30. End Sub



    lg Markus
    :!: Danke an alle, die ihr Wissen freiwillig teilen und stets so kompetent & höflich sind :!:

Facebook
Telefonspende