Thema Datum  Von Nutzer Rating
Antwort
Rot Löschung einer kompletten Zeile mit 2 Bedingungen
12.05.2019 20:05:56 ChrisFeyer
NotSolved
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:
ChrisFeyer
Datum:
12.05.2019 20:05:56
Views:
96
Rating: Antwort:
  Ja
Thema:
Löschung einer kompletten Zeile mit 2 Bedingungen

Hallo zusammen,

ich bräuchte einmal euren Rat. Aktuell habe ich folgende Datei, mit aktuellen Sendungen, in denen Handlungsbedarf herrscht. Jeden Morgen aktualisere ich die Daten indem ich den neuen Datensatz unter den Alten kopiere. Hier kommt es zu folgender Situation:

Sendungen, die in Spalte A eine Bemerkung stehen haben und die Sendungsnummer in J einzeln ist muss in diesem Fall, die komplette Spalte gelöscht werden. Aktuell funktioniert, das Makro nicht so richtig, da es mehrere Anläufe braucht bis alle Daten gelöscht sind. Und das größte Problem ist, dass trotzdem Sendungen gelöscht werden, die nicht den Bedingungen entsprechen.

Ich finde leider nicht den Fehler, wieso das Makro mehrmals betätigt werden muss und die Bedingungen manchmel nicht sauber abgearbeitet werden.

 

Sub Einzelne_löschen()
Dim Zelle As Range
lz = Cells(5000, 10).End(xlUp).Row
For Each Zelle In ActiveSheet.Range("J6:J" & lz)
 If WorksheetFunction.CountIf(Range("J6:J" & lz), Zelle.Value) = 1 Then
    If Zelle.Offset(0, -6).Value <> "" Then
Zelle.EntireRow.Delete
End If
End If
Next Zelle
End Sub
 
Ich hoffe Ihr könnt mir mit meinem Problem helfen.
 
Vielen Dank im Voraus.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Löschung einer kompletten Zeile mit 2 Bedingungen
12.05.2019 20:05:56 ChrisFeyer
NotSolved
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