VBA Tabellenanalyse: Vergleichen und Zusammenführen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Mir ist nicht ganz klar, weshalb du prüfen willst, ob die Summe für die jweiligen 2 Bestellnummern 0 ergeben muss, denn wenn du den Artikel zurückschickst, ergeben sie doch automatisch 0 - oder sehe ich das falsch?
M.E. reicht es zu prüfen, ob die Bestellnummer doppelt vorhanden ist:

Sub Streichen()
Dim lngZeile As Long
Dim lngLetzte As Long
Dim rngZelle As Range
Dim blnLoeschen As Boolean
lngLetzte = Columns(1).Find(what:="*", SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
For lngZeile = lngLetzte To 1 Step -1
If Cells(lngZeile, 1)  "" Then
If Application.CountIf(Columns(2), Cells(lngZeile, 2)) = 2 Then
Set rngZelle = Columns(2).Find(what:=Cells(lngZeile, 2), _
after:=Cells(lngZeile, 2), lookat:=xlWhole)
If Not rngZelle Is Nothing Then
Cells(lngZeile, 1).ClearContents
rngZelle.Offset(0, -1).ClearContents
blnLoeschen = True
End If
End If
End If
Next lngZeile
If blnLoeschen Then Range(Cells(1, 1), Cells(lngLetzte, 1)).SpecialCells(xlCellTypeBlanks). _
EntireRow.Delete
End Sub

Beliebteste Forumthreads (12 Monate)

VBA Tabellenanalyse: Vergleichen und Zusammenführen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Tabellenanalyse: Vergleichen und Zusammenführen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread