13. november 2008 - 09:57Der er
6 kommentarer og 1 løsning
Automatisk indsættelse af række
Hej,
Jeg har et problem i Excel, som jeg har set er lykkedes for andre, men jeg er helt blank i hvordan det gøres.
Forestil jer en liste:
ID NAVN ----------- 1 Hans 2 Peter 3 Troels
Så er det jeg gerne vil have muligheden for at kunne indsætte en post i mellem navnene. Det kunne eventuelt være et fast defineret indtastningsfelt, eller også det sidste felt i listen.
Ex. Hvis jeg indtaster følgende i række 4: 4 Ole
Så skal listen blive således (automatisk!):
ID NAVN ----------- 1 Hans 2 Peter 4 Ole 3 Troels
Kan det ikke lade sig gøre på en eller anden snild måde??
Prøv denne i arkets modul, bemærk den tager kun Kolonne A og B med i sorteringen
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Columns("A:B").Select Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End If Range("A1").Select End Sub
Nu har jeg ikke forsøgt mig med den endnu, men er det en makro jeg skal lægge på et specifikt linje hvor jeg taster ind, eller hvordan skal den fungere??
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
