ich bin neu im Forum und ein absoluter Anfänger was VBA angeht, aber vielleicht kann mir ja jemand helfen.
Ich habe folgendes Problem: Ich möchte je zwei Spalten miteinander vergleichen. Spalte A soll mit Spalte C und Spalte B soll mit Spalte D verglichen werden.
In den Spalten A und B stehen immer Buchstabenkombinationen, bspw. in Spalte A "TDE" und in Spalte B "BUH". In den Spalten C und D stehen meistens lediglich "-", diese Zeilen sollen nicht weiter beachtet werden. Nur wenn in einer Zeile der Spalten C und D eine Buchstabenkombination steht und diese Buchstabenkombination sich von der Kombination in Spalte A oder B unterscheidet, soll die gesamte Zeile kopiert, direkt darunter eingefügt und farblich markiert werden.
Also bspw. steht in der 15. Zeile der Spalte A "TDE", in Spalte B "BUH", in Spalte C "TDE" aber in Spalte D "KAR". Da die Zeile der Spalte B =! D ist, müsste die gesamte Zeile kopiert und farblich markiert werden.
Über Hilfe wäre ich sehr dankbar.
Folgenden Programmcode habe ich bisher geschrieben, aber der funktioniert leider nicht:
Sub vergleicheSpalten()
'Variablen definieren
Dim i As Integer
Dim last As Integer
'Werte zuweisen
last = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Range(A1, D4).Activate
With ActiveCell.CurrentRegion
For i = 1 To (last - 1)
If A.i C.i Or B.i D.i Then
' hier soll eine Zeile hinzugefügt werden
Rows("i:1").Select
Selection.Insert Shift:=xlDown
'hier soll eine Zeile kopiert werden
.Range("i-1:1").Copy
Destination:=.Range("i:1")
'hier soll die Zeile gefärbt werden
.Rows(i).Interior.ColorIndex = 3
Else
End If
End Sub