Anzeige
Archiv - Navigation
220to224
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
220to224
220to224
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

2 Spalten Vergleichen und markieren!

2 Spalten Vergleichen und markieren!
17.02.2003 16:15:02
martin
Hallo,
habe gerade ein echtes Problem. ich möchte 2 Spalten( A und I) miteinenander vergleichen. Gleiche Zellen sollen dann jeweils in der nebenstehenden Spalte (B und F) markiert werden. hat bisher mit folgendem Makro immer super funktioniert.
For Count = 3 To 1370
For ACount = 3 To 1580
If Cells(Count, "A") = Cells(ACount, "I") Then
Cells(Count, "B") = "X"
Cells(ACount, "F") = "X"
End If

Next ACount
Next Count
Nun markiert er aber fast schon willkürlich. In den zellen sind kombinierte zahlen und Buchstaben zB. 2369B873X
Ich habe auch schon die Zellen in verschiedensten Art und weisen formatiert, kein Erfolg.

Danke schon mal im Vorraus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: 2 Spalten Vergleichen und markieren!
17.02.2003 21:10:01
Regina

Hallo Martin,
versuchs mal hiermit,


Sub vergleichenSpalten()
Dim s As Long 'schleifenzähler
Dim h As Long
Dim ende As Long

Application.ScreenUpdating = False
ende = Cells(65536, 1).End(xlUp).Row 'von letzter Zeile aufwärts

For s = 2 To ende
For h = 2 To ende
If Cells(s, 1) = Cells(h, 9) Then
Cells(s, 2) = "X"
Cells(h, 10) = "x"


End If
Next
Next
Application.ScreenUpdating = True
End Sub


Gruß Regina

Re: 2 Spalten Vergleichen und markieren!
18.02.2003 09:30:20
Martin

Danke Regina,
sieht so aus als ob es klappt.

Gruß Martin

Anzeige

318 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige