Vb Excel Makro Spalte Löschen

  • Excel

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Vb Excel Makro Spalte Löschen

    Hallo.
    Hab eine Tabelle mit Waren ganz oben habe ich meine buttons in meiner excell tabelle.
    nun möchte ich z.B: meine angezeigte ware im Userform fenster löschen also komplet aus der excel tabelle löschen.
    habe auch ein code dafür.
    nun löscht es mir aber die spalte mit meinen Buttons soll aber die angezeigte ware löschen

    Mein code wäre meine globale variable für die spalte ist zeile mit der ich meien waren snapreche und bearbeite:

    Quellcode

    1. Cells(Zeile, 1) = ""
    2. Cells(Zeile, 2) = ""
    3. Cells(Zeile, 3) = ""
    4. Cells(Zeile, 4) = ""
    5. Cells(Zeile, 5) = ""
    6. Cells(Zeile, 6) = ""
    7. Cells(Zeile, 7) = ""
    8. If Zeile = 1 Then
    9. Else
    10. LastRow = ActiveSheet.UsedRange.Rows.Count
    11. Application.ScreenUpdating = False
    12. For r = LastRow To 1 Step -1
    13. If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
    14. Next r
    15. MsgBox "Ware Erfolgreich gelöscht."
    16. End If


    Leider löscht dieser code zwar die werte in der zeile aber die zeilen bleiben leer ich möchte dass diese leere spalte ein auf rückt und komplet gelösct wird so dass keien leeren spalten in den daten drin sind.

    Visual Basic-Quellcode

    1. Range("A" & Zeile & ":G" & Zeile).ClearContents
    2. For r = UsedRange.Rows.Count To 2 Step -1
    3. If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete Shift:=xlUp
    4. Next r
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

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

    In welcher Zeile wirft er den Fehler?

    Steht der Code im Context des Worksheet?
    Wenn er in einem Modul steht, musst du bei den sich darauf beziehenden Objekten (Range, UsedRange, Rows...) natürlich das Worksheet jeweils noch angeben.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --