Supportnet / Forum / Tabellenkalkulation

Hallo zusammen, möchte mehrere Spalten in einer Tabelle per makro vergleichen. Verglichen werden sollen A mit B, E mit F, I mit J, usw..... Die Werte sind eigentlich 6-stellig. Habe diesen Code gefunden, der Spalte A mit B vergleicht. Das Ergebnis ist das gewünschte, ich weiß nur nicht, wie weitere Spalten einbezogen weden. Option Explicit Sub vergleichen() Dim lngI As Long, intWert As Integer Application.ScreenUpdating = False For lngI = 1 To Cells(Rows.Count, 1).End(xlUp).Row intWert = Application.WorksheetFunction. _ CountIf(Worksheets("Tabelle1").Range("B:B"), Cells(lngI, 1).Value) If intWert > 0 Then Cells(lngI, 1).Interior.ColorIndex = 44 End If Next lngI Application.ScreenUpdating = True End Sub Bin für jede Hilfe dankbar.

Hallo,

Option Explicit
Sub vergleichen()
Dim lngI As Long, intWert As Integer
Application.ScreenUpdating = False
For lngI = 1 To Cells(Rows.Count, 1).End(xlUp).Row
intWert = Application.WorksheetFunction. _
CountIf(Worksheets("Tabelle1").Range("B:B"), Cells(lngI, 1).Value)
If intWert > 0 Then
Cells(lngI, 1).Interior.ColorIndex = 44
End If
Next lngI

For lngI = 1 To Cells(Rows.Count, 1).End(xlUp).Row

intWert = Application.WorksheetFunction. _
CountIf(Worksheets("Tabelle1").Range("F:F"), Cells(lngI, 4).Value)

If intWert > 0 Then
Cells(lngI, 1).Interior.ColorIndex = 44
End If
Next lngI
Application.ScreenUpdating = True
End Sub

Den Kusiven Text entsprechend einfügen und die fetten Stellen entsprechend ändern.

Cells(lngI, 4).Value; die 4 steht für "E" bzw. 4. Spalte

Gruß

Helmut

Hallo Helmut,

danke für die schnelle Antwort.
Leider wird weiterhin nur die 1. Spalte eingefärbt. Hast du noch eine andere Idee?
Warum steht die 4 für spalte "E"? Müsste hier nicht die 5 stehen oder wird Spalte "A" nicht gezählt?

Gruß

Hallo,

richtig muss 5 sein

und das muss auch geändert werden

Cells(lngI, 5).Interior.ColorIndex = 44


Gruß

Helmut

Funktioniert optimal!
Herzlichen Dank.

Noch etwas.
Gibt es eine Codierung die den Zelleninhalt durchstreicht, anstatt die Zelle farblich zu hinterlegen?

Hallo Hans,

so geht's

Cells(lngI, 5).Font.Strikethrough = True

Gruß
Rainer

Danke für die Antwort.
Eine letzte Frage noch.
Wenn Spalte D + E verglichen werden und die Werte in Spalte D durchgestrichen, ist es möglich die Werte bzw Texte der Spalten A bis C davon abhängig auch durchzustreichen? Die Funktion ISTWERT ist nicht ganz optimal, daher würde ich eine andere Lösung bevorzugen.

Gruß
Hans

hi all

hier noch ein beispiel

gruss nighty

Sub vergleichen1()
ScreenUpdating = False
Dim lngI As Long
Dim zaehler As Long
Dim suche As Range
Rem hier die 16 waere die max anzahl an spalten
Rem verglichen wird nun 1-2 5-6 9-10 13-14
Rem entsprechen zu erhoehen
For zaehler = 1 To 16 Step 4
For lngI = 1 To Worksheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Set suche = Worksheets(1).Range(Cells(1, zaehler + 1), Cells(Worksheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row, zaehler + 1)).Find(Worksheets(1).Cells(lngI, zaehler), Lookat:=xlWhole)
If Not suche Is Nothing And Worksheets(1).Cells(lngI, zaehler) <> "" Then
Worksheets(1).Cells(lngI, zaehler).Interior.ColorIndex = 44
End If
Next lngI
Next zaehler
Application.ScreenUpdating = True
End Sub

hi all

ups korrigiert

gruss nighty

Sub vergleichen1()
Application.ScreenUpdating = False
Dim lngI As Long
Dim zaehler As Integer
Dim suche As Range
For zaehler = 1 To 16 Step 4
For lngI = 1 To Worksheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Set suche = Worksheets(1).Range(Cells(1, zaehler + 1), Cells(Worksheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row, zaehler + 1)).Find(Worksheets(1).Cells(lngI, zaehler), Lookat:=xlWhole)
If Not suche Is Nothing And Worksheets(1).Cells(lngI, zaehler) <> "" Then
Worksheets(1).Cells(lngI, zaehler).Interior.ColorIndex = 44
End If
Next lngI
Next zaehler
Application.ScreenUpdating = True
End Sub

• 2 spalten miteinander vergleichen
• Werte einer Tabelle vergleichen und in einer anderen Tabelle zusammenfügen
• Excel Spalten vergleichen
• 2 Nr. in tabelle vergleichen und lieferant in tabelle 1 einfügen
• Zwei Spalten vergleichen