Gibt es eine Möglichkeit, dass Excel bei fehlender Kongruenz die Zeile automatisch nach unten schiebt?
Sub Datum_anpassen()
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(i, 2) Cells(i, 1) Then
Range(Cells(i, 2), Cells(i, 3)).Select
Selection.Insert Shift:=xlDown
End If
Next i
End Sub
Sub Datum_anpassen()
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(i, 2) Cells(i, 1) Then
Range(Cells(i, 2), Cells(i, 3)).Select
Selection.Insert Shift:=xlDown
End If
Next i
End Sub
A | B | C | D | E | F | G | |
31 | 07.06.1993 | 07.06.1993 | 422 | 07.06.1993 | 422 | ||
32 | 08.06.1993 | 08.06.1993 | 422 | 08.06.1993 | 422 | ||
33 | 09.06.1993 | 09.06.1993 | 415 | 09.06.1993 | 415 | ||
34 | 10.06.1993 | 11.06.1993 | 449 | Fehler | 10.06.1993 | ||
35 | 11.06.1993 | 14.06.1993 | 452 | 11.06.1993 | 449 | ||
36 | 14.06.1993 | 15.06.1993 | 459 | 14.06.1993 | 452 | ||
37 | 15.06.1993 | 16.06.1993 | 494 | 15.06.1993 | 459 |
Zelle | Formel |
G2 | =WENN(ISTFEHLER(SVERWEIS(F2;B:C;2;));" " ;SVERWEIS(F2;B:C;2;)) |