Clever-Excel-Forum

Hallo zusammen,

habe ein wichtiges Problem.

Gibt eine Möglichkeit ein VBA Script zu schreiben um den Abgleich von 2 Zeilen durchzuführen und Zellen einzufügen wo es keine Übereinstimmung gibt ?

Als Beispiel habe Ich eine Tabelle angehängt.

[attachment=39498]

Tabelle 1: Die Zellen aus Spalte 1 muss = Die Zellen aus Spalte 2 sein. in Spalte 3 gibt es den Abgleich, ob ein Wert fehlt oder nicht.
Hier sehen wir, dass bei 5A "prüfen" steht. Hier "fehlt" eine Zahl. Heißt, wir müssen eine Zelle einfügen und die Zellen nach unten verschieben.

Das sieht man in Tabelle 2.
Anschließend, wieder die auswertung ausführen.
Nun ist in 9A ein Fehler.

Hier das gleiche, siehe Tabelle 3.

Manchmal muss auch mehrere Zellen einfügen dass A wieder gleich B ist. (Tabelle 4)

Gibt es hierfür eine Möglichkeit ein Script zu schreiben ?

Kenne mich leider nicht gut genug aus.

Vielen Dank für die Unterstützung

Mit freundlichen Grüßen

Hallo
So wie ich Deine Tabellen 1 und 4 verstanden habe, bleibt Spalte A unverändert. Es muss nur Spalte B angepasst werden.
Das könnte dieses Makro erledigen.

Grüsse Niclaus

Code:
Sub Test()

zlast = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To zlast

    If Cells(i, 3).Value = "Prüfen" Then

        Cells(i, 2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

        Range("C2").Select

        Selection.AutoFill Destination:=Range(Cells(2, 3), Cells(zlast, 3))

    End If

Next

End Sub

MSBG

Niclaus