Datum

Titel

26.04.2024 12:46:38

Nutzereingaben Speichern und Laden

26.04.2024 11:49:48

VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht

26.04.2024 11:38:46

Acrobat PDF Formularfelder mit Excel ausfüllen

26.04.2024 11:23:04

zählen wenn - aber nur die selektierten Zeilen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

876to880

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

zwei Zellen vergleichen

Forumthread: zwei Zellen vergleichen
4 Beiträge zu diesem Forumthread
Anzeige
164 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: zwei Zellen vergleichen

11.06.2007 20:09:26

Jens
AW: zwei Zellen vergleichen

11.06.2007 20:10:00

Beverly
AW: zwei Zellen vergleichen

11.06.2007 20:23:00

Jens
AW: zwei Zellen vergleichen

11.06.2007 20:49:00

Frank

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

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.
________________________________________

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

AW: zwei Zellen vergleichen

11.06.2007 20:49:00

Frank

Vielen Dank für die Hilfe.
Immer wieder Klasse dieses Forum.
Gruß Frank