folgendes läuft natürlich wieder mal nicht...
i = InputBox("Wie lautet die neue PNR?")
If i = vbNullString Then
Exit Sub
End If
For counter = 5 To 200
If Cells(counter, 2).Value < i Then
Rows("counter:counter").Insert Shift:=xlDown
' Else
' Rows("counter:counter").Insert Shift:=xlUp
End If
Next
Eigentlich möchte ich die Werte die in Spalte B stehen mit der Eingabe vergleichtn.
Wenn die Eingabe kleiner als der Wert ist soll vor dem Wert eine leere Zeile eingefügt werden.
Wenn die Eingabe größer ist, dahinter.
Vielleicht kann mir ja jemand helfen.
Danke und Gruß
Andi