Automatisk insættelse af række /2

Det ser ud til, at du gør det rigtigt. Det virker upåklageligt hos mig, hvis man taster i B-kolonnen.

Hvis det skal være indtastning i A-kolonnen, der skal udløse sorteringen så prøv med

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Columns("A:E").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        End If
        Range("A1").Select
End Sub

Den sorterer alle kolonner fra A til og med E

Hej
Det virker altså ikke hos mig. Jeg må gøre noget forkert.
Det jeg forventer er, at hvis jeg skriver f.eks a i A1, c i A2, og skriver b i A3 så sortere den så der kommer til at stå a, b, c, i A1, A2, og A3. Det som står i rækkerne A1 til E1, A2 til E2, o.s.v. skal følge med.
Ib

Prøv denne:

Højreklik på arkfanen og vælg Vis programkode. Du skal IKKE insætte et modul, men kopiere nedenstående kode til det modul, der allerede er vist (det har navn efter det ark, det tilhører).

Her er en revideret udgave af koden:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Columns("A:E").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        End If
    Target.Offset(1, 0).Select
End Sub

Hej Jan.
Nu virker det perfekt.
Det fremkalder muligvis et andet spm. men jeg leger lige lidt med det først.
Tak for hjælpen. Smid et svar
Hilsen Ib

Du spørger bare :-)