Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: zwei Zellen vergleichen

zwei Zellen vergleichen
11.06.2007 19:51:00
Frank
Hallo Forum,
ich hab folgendes Problem.
Ich habe ca. 14000 Zeilen. Und nun möchte ich nur diese Zeilen haben, wo in der Spalte B und der Spalte C jeweils die gleichen Zahlen stehen. Die ungleichen Zeilen können gelöscht werden.
Kann mir jemand helfen?
Gruß Frank

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: zwei Zellen vergleichen
11.06.2007 20:09:26
Jens
Hallo Frank
z.B. so:

Private Sub Worksheet_Activate()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("B65536").End(xlUp).Row To 1 Step -1
If Cells(i, 2).Value  Cells(i, 3).Value Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub


Gruß aus dem Sauerland
Jens

Anzeige
AW: zwei Zellen vergleichen
11.06.2007 20:10:00
Beverly
Hi Frank,
das wäre mit diesem Code möglich

Sub gleiche_loeschen()
Dim loZeile As Long
Dim strWerte As String
For loZeile = 1 To IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row,  _
Rows.Count)
If Cells(loZeile, 2)  Cells(loZeile, 3) Then
strWerte = strWerte & ", " & loZeile & ":" & loZeile
End If
Next loZeile
If strWerte  "" Then Range(Mid(strWerte, 3)).Delete
End Sub


Vor dem Testen aber bitte eine Sicherheitskopie anlegen.
________________________________________

Anzeige
AW: zwei Zellen vergleichen
11.06.2007 20:23:00
Jens
Hallo nochmal
etwas abgeändert...
Dim i As Long
Application.ScreenUpdating = False
For i = Range("B65536").End(xlUp).Row To 1 Step -1
If IsNumeric(Cells(i, 2)) And IsNumeric(Cells(i, 3)) Then
If Cells(i, 2).Value Cells(i, 3).Value Then Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
Hierbei werden nur Zellen berücksichtigt, die Zahl-Werte enthalten. Bei gleichem Text in den Zellen, werden diese Zeilen nicht gelöscht.
Gruß aus dem Sauerland
Jens

Anzeige
AW: zwei Zellen vergleichen
11.06.2007 20:49:00
Frank
Vielen Dank für die Hilfe.
Immer wieder Klasse dieses Forum.
Gruß Frank
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige