versuchs doch mal mit SVERWEIS(E2;A2:G7;1) in Zelle J2
die Formel dann um jeweils 12 erhöhen und in K2 bis P2 eintragen.
Gruss
Markus
noch ein Zusatz:
im SVERWEIS am ende muss noch ein ;FALSCH eingetragen werden
Gruss
Markus
hab wohl noch Tomaten auf den Augen, mit SVERWEIS ist da natürlich nichts zu machen, aber ich schau mal obs anders geht.
Gruss
Markus
kopiere den folgenden Code in ein Modul.
Sub test()
For k = 2 To ActiveWorkbook.ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Row
If Cells(k, 1) > Cells(k, 5) Then
Cells(k, 1).Insert xlDown
Cells(k, 2).Insert xlDown
Cells(k, 3).Insert xlDown
Else
If Cells(k, 1) < Cells(k, 5) Then
Cells(k, 5).Insert xlDown
Cells(k, 6).Insert xlDown
Cells(k, 7).Insert xlDown
End If
End If
Next k
End Sub
Gruss
Markus
das war genau die Lösung die ich brauchte!!!!!!
Vielen Dank!