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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige