Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1088to1092
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1088to1092
1088to1092
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro - Spalten vergleichen

Makro - Spalten vergleichen
westcasio
Hallo Leute,
ich habe folgendes Problem:
In Spalte A und B haben ich Artikel-Nummern, jetzt möchte ich gerne, dass er mir die Artikel in Spalte A farbig markiert, die in Spalte B vorkommen. Ich habe es schon mit einer Formel versucht aber bei nahezu 20.000 Zeilen, wäre mir der PC fast explodiert. Leider konnte ich im Archiv nichts passendes finden und hoffe nun auf Euch und Eure VBA Kenntnisse.
Vielen Dank schon im Voraus.
Gruß west

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro - Spalten vergleichen
24.07.2009 12:22:17
Hajo_Zi
Hallo Nick,
Bedingte Formatierung Formel ist, 

=ZÄHLENWENN(A:A;B1)>0

AW: Makro - Spalten vergleichen
24.07.2009 12:34:36
Mario
Hallo,
hier ein code-Beispiel:
Sub Vergleichen()
Dim iRowA As Integer, iCounter As Integer, iFirst As Integer, iSecond As Integer
Dim iRowB As Integer
Dim sTxtA As String, sTxtB As String
Dim bln As Boolean
iRowA = 1
iFirst = 1
iSecond = 2
For iCounter = 1 To 2
Do Until IsEmpty(Cells(iRowA, iFirst))
bln = False
iRowB = 1
sTxtA = Cells(iRowA, iFirst).Value
Do Until IsEmpty(Cells(iRowB, iSecond))
sTxtB = Cells(iRowB, iSecond).Value
If Mid(sTxtA, 1, 8) = Mid(sTxtB, 1, 8) Then
bln = True
Exit do
End If
iRowB = iRowB + 1
Loop
If bln = False Then Cells(iRowA, iFirst).Interior.ColorIndex = 6
iRowA = iRowA + 1
Loop
iFirst = 2
iSecond = 1
iRowA = 1
Next iCounter
End Sub
Tschau
Mario
Anzeige
AW: Makro - Spalten vergleichen
24.07.2009 13:32:17
westcasio
Also wirklich, ich kann nur meinen Hut ziehen. Nun habe ich gleich zwei Lösungen erhalten - Formel und VBA - perfekt, besser geht es nicht. Das Beste an der Sache, es funktioniert super, vielen Dank an Euch beide.
west

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige