mein Problem ist folgendes:
Ich möchte mit einem Makro und einer DoUntil Schleife zwei aufeinanderfolgende Zellen vergleichen, wobei aber nur die ersten 5 Stellen einer jeden Zelle interessant sind, da ab da eh alles verschieden ist. Wie kann ich das machen. Ich hab mir überlegt, dass das irgendwie mit der Formel left zu bewerkstelligen wäre, aber das funzt irgendwie nicht. Hier mal der Code:
Sub Zeilen_einfügen()
Sheets(ActiveSheet.Name).Activate
Range("a2").Select
Do Until ActiveCell.Value = ""
If ActiveCell.FormulaR1C1 = "=LEFT(R[]C[],5)" <> _
ActiveCell.Offset(-1, 0).FormulaR1C1 = "=LEFT(R[]C[],5)" Then
Selection.EntireRow.Insert
ActiveCell.Offset(2, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Bin für jede Hilfe Dankbar.