Thema Datum  Von Nutzer Rating
Antwort
Rot komplette Zeile löschen mit Do until
24.07.2022 13:44:53 F.Z
NotSolved
24.07.2022 13:55:37 Mackie
Solved

Ansicht des Beitrags:
Von:
F.Z
Datum:
24.07.2022 13:44:53
Views:
817
Rating: Antwort:
  Ja
Thema:
komplette Zeile löschen mit Do until

Sub test1()

Range("W3").Select

Do Until Application.WorksheetFunction.CountA(ActiveCell.Range("W3:W23")) = 0
 If ActiveCell = 1 Then
    ActiveCell.EntireRow.Delete
    ActiveCell.Offset(-1, 0).Select
End If

    ActiveCell.Offset(1, 0).Select
    
Loop

    

End Sub

 

'In der Spalte ab W3 stehen entweder 1 oder 0, bei dem Wert 1 soll die gesamte Zeile gelöscht werden, leider geht die Funktion nicht in die If Funktion rein sondern überspringt diese komplett. Das rein gehen in die Zelle W3 funktioniert hingegen, jedoch dann wird nicht die If Funktion abgerufen. das ganze soll so lange gehen bis in der Spalte W nix mehr steht. bzw kommen ab dem Zeitpunkt wo es keine 1 und 0 mehr stehen eh nur noch leere Spalten.  


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot komplette Zeile löschen mit Do until
24.07.2022 13:44:53 F.Z
NotSolved
24.07.2022 13:55:37 Mackie
Solved