Avatar billede richter1 Nybegynder
19. januar 2008 - 10:52 Der er 5 kommentarer og
1 løsning

Indsæt række i et interval der hvor markøren er placeret

jeg har et ark hvor der er 10 kolonner. arket er ligesom delt i to ligesom en avis. Når brugeren placere markøren f.eks. i række 12, så skal jeg have indsat en række i de første 5 kolonner. Det eksisterende indhold skal rykke nedad. indholdet i de resterende kollonner skal ikke flyttes. Tilsvarende skal jeg have mulighed for at indsætte i de sidste 5 kolonner uden at de første flyttes.
Hvordan løser jeg det smartest? ved et dobbeltklik i cellen hvor der skal indsættes?
Avatar billede excelent Ekspert
19. januar 2008 - 11:04 #1
ja dobbletklik er et godt valg: koden forudsætter du anvender A til J

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column < 6 Then
Range("A" & Target.Row & ":E" & Target.Row + 5).Insert Shift:=xlDown
Else
Range("F" & Target.Row & ":J" & Target.Row + 5).Insert Shift:=xlDown
End If
End Sub
Avatar billede excelent Ekspert
19. januar 2008 - 11:24 #2
Hov læste forkert, det var 1 linie men i 5 kolonner

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column < 6 Then
Range("A" & Target.Row & ":E" & Target.Row).Insert Shift:=xlDown
Else
Range("F" & Target.Row & ":J" & Target.Row).Insert Shift:=xlDown
End If
End Sub
Avatar billede richter1 Nybegynder
19. januar 2008 - 14:08 #3
Den virker helt perfekt - :O)) dejligt.
Kan du sætte lidt ord på target?
Læg et svar, så er der point på vej - velfortjent.
God weekend.
Avatar billede excelent Ekspert
19. januar 2008 - 14:29 #4
velbekom
Target er den aktuelle celle der blev klikket på
Avatar billede richter1 Nybegynder
19. januar 2008 - 23:37 #5
Er det korrekt at target kun kan anvendes sammenmen woksheet_beforedoubleclick, change sub rutiner - altså når det er i forbindelse med en event?
Avatar billede richter1 Nybegynder
23. januar 2008 - 15:00 #6
Hej excelent
Kan koden ændres, således at den også virker hvis mit worksheet er shared?
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester