So vergleichen Sie zwei Zeilen in Excel mit VBA

Das manuelle Vergleichen von Daten Zeile für Zeile kann mühsam sein, wenn es manuell durchgeführt wird. Wir zeigen Ihnen, wie Sie zwei Zeilen in Excel mit VBA vergleichen und diesen Prozess automatisieren.

VBA verfügt über eine integrierte Funktion namens StrComp , die zwei Zeichenfolgen vergleichen kann. Diese Funktion gibt eine Ganzzahl basierend auf dem Ergebnis des Vergleichs zurück. Null ‘0’ bedeutet eine perfekte Übereinstimmung, und das folgende Codebeispiel hebt die Zelle hervor, wenn das Ergebnis NICHT gleich ‘0’ ist.

Die StrComp-Funktion erhält 3 Argumente: Die ersten 2 Argumente sind die zu vergleichenden Zeichenfolgen und das letzte ist der Vergleichstyp (optional). Wenn nicht angegeben, bestimmt die Einstellung Option Vergleichen die Art des Vergleichs. Nachfolgend finden Sie alle verfügbaren Optionen:

• vbUseCompareOption: Führt einen Vergleich mit der Einstellung der Option Compare-Anweisung durch.
• vbBinaryCompare: Führt einen binären Vergleich durch. Groß- und Kleinschreibung.
• vbTextCompare: Führt einen Textvergleich durch. Nicht case sensitive.
• Vbdatabasevergleichen: Führt einen Vergleich basierend auf Informationen in Ihrer Datenbank durch. Nur Microsoft Access.

Der Code erfordert, dass der Benutzer die Zeilen in einem einzelnen Bereich auswählt. Der ausgewählte Bereich wird einer Bereichsvariablen zugewiesen, und jede Zelle in diesem Bereich wird spaltenweise verglichen. Mit einer With-Anweisung müssen wir nicht beide wiederholenzeilen für jede Zeile und Für … Nächste Schleife ist, wie wir jede Zelle überprüfen können.

>

Nachdem Sie den Bereich erhalten haben, können Sie die ColorIndex-Eigenschaft verwenden, um diesem Bereich eine Farbe zuzuweisen. Hier sind einige Indexnummern für Farben:

• 3: Rot
• 5: Blau
• 6: Gelb
• 0: Keine Füllung

Zuerst müssen Sie das Modul der Arbeitsmappe oder der Add-In-Datei hinzufügen. Kopieren Sie den Code und fügen Sie ihn in das Modul ein, um es auszuführen. Der Hauptvorteil der Modulmethode besteht darin, dass der Code in der Datei gespeichert werden kann, damit er später erneut verwendet werden kann. Darüber hinaus können die Unterprogramme in Modulen durch Symbole in den Menübändern oder Tastaturkürzel verwendet werden. Denken Sie daran, Ihre Datei entweder im XLSM- oder XLAM-Format zu speichern, um Ihren VBA-Code zu speichern.

Beispielcode zum Hervorheben

Sub HighlightRowDifferences() Dim bothrows As Range, i As Integer Set bothrows = Selection With bothrows For i = 1 To .Columns.Count If Not StrComp(.Cells(1, i), .Cells(2, i), vbBinaryCompare) = 0 Then Range(.Cells(1, i), .Cells(2, i)).Interior.ColorIndex = 6 End If Next i End WithEnd Sub