Thema Datum  Von Nutzer Rating
Antwort
12.05.2019 20:05:56 ChrisFeyer
NotSolved
Blau Löschung einer kompletten Zeile mit 2 Bedingungen
13.05.2019 07:15:03 Gast41300
NotSolved
13.05.2019 21:24:56 ChrisFeyer
NotSolved
14.05.2019 07:36:00 Gast23444
Solved
14.05.2019 12:09:23 Chrisfeyer
NotSolved
14.05.2019 16:40:26 ChrisFeyer
NotSolved

Ansicht des Beitrags:
Von:
Gast41300
Datum:
13.05.2019 07:15:03
Views:
431
Rating: Antwort:
  Ja
Thema:
Löschung einer kompletten Zeile mit 2 Bedingungen

Grundsätzlich begrüße ich es, wenn die Beschreibung zu einer Frage und der dazugehörige Code schon voneinander abweichen.
< Sendungen, die in Spalte A eine Bemerkung
> prüft der Code auf Spalte D

Dieses Manko korrigiert und im kleinen Umfeld getestet tut der o.g. Code zwar augenscheinlich seinen Zweck. Nur habe ich immer ein schlechtes Gefühl, wenn ich so aus einem in Schleife definierten Range einzelne Bereiche lösche.

Sub altEinzelne_löschen()
Dim x As Long

   For x = Cells(Rows.Count, 10).End(xlUp).Row To 6 Step -1
      If WorksheetFunction.CountIf(Columns(10), Cells(x, 10).Value) = 1 _
      And Cells(x, 4).Value <> "" Then Rows(x).Delete
   Next x

End Sub

 


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
12.05.2019 20:05:56 ChrisFeyer
NotSolved
Blau Löschung einer kompletten Zeile mit 2 Bedingungen
13.05.2019 07:15:03 Gast41300
NotSolved
13.05.2019 21:24:56 ChrisFeyer
NotSolved
14.05.2019 07:36:00 Gast23444
Solved
14.05.2019 12:09:23 Chrisfeyer
NotSolved
14.05.2019 16:40:26 ChrisFeyer
NotSolved