Avatar billede tvc Seniormester
05. august 2004 - 20:11 Der er 10 kommentarer og
1 løsning

Angiv rækkenavn ved markering af celle i rækken

Hej

Jeg har et planlægningsskema der består af et 200 rækkers indeks og med plads til indtastning af op til 8 forskellige medarbejdere.

Indeks  Tekst              Medarb.1  Timer1  Medarb.2  Timer2
1.1.1  Handlingsplan      AA        1,0    BB        2,5

Jeg vil gerne have, at der på en eller anden vis vises hvilket indeks (række) der er markeret når man eksempelvis står under medarbejder 1.

Er der nogle der ved om dette kan lade sig gøre ved eksempelvis anvendelse af kommentarfunktionen eller ved at rækken på en eller anden måde markeres når man står i den?

Mvh.

Tem
Avatar billede bak Forsker
05. august 2004 - 20:28 #1
Her er et forslag. Rækken vises i statusbaren nederst i venstre hjørne.
Bare kopier det hele ind i arkets eget kodemodul (højreklik på arkfanen og vælg "Vis programkode"

Private Sub Worksheet_Deactivate()
    Application.StatusBar = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.StatusBar = "Række " & Target.Row
End Sub
Avatar billede bak Forsker
05. august 2004 - 20:33 #2
sorry så ikke lige at det  var indekset du skulle bruge
Private Sub Worksheet_Deactivate()
    Application.StatusBar = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.StatusBar = "Indeks : " & range("A" & target.row)
End Sub
Avatar billede tvc Seniormester
05. august 2004 - 23:03 #3
Tak bak

Det var lige det jeg skulle bruge. Hvordan giver jeg dig dine point?
Avatar billede tvc Seniormester
05. august 2004 - 23:11 #4
Bak ved du om man kan følgende.

Jeg har anvendt en

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

tidligere i samme ark. Er der mulighed for at gøre noget så der kan være mere end en

Worksheet_SelectionChange(ByVal Target As Range) i et ark?

Mvh. Tem
Avatar billede bak Forsker
05. august 2004 - 23:34 #5
I samme ark, Nej
I samme fil, Ja

hvis det skal være i samme ark så vis lige den anden
Avatar billede tvc Seniormester
05. august 2004 - 23:46 #6
Den anden er denne:

If Range("X3") <> "" Then
    If Not Intersect(Target, Range("X3")) Is Nothing Then
        MsgBox Range("B3") & " " & (Range("X3"))
    End If
End If
Avatar billede tvc Seniormester
05. august 2004 - 23:47 #7
Mangler lige toppen :-)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("X3") <> "" Then
    If Not Intersect(Target, Range("X3")) Is Nothing Then
        MsgBox Range("B3") & " " & (Range("X3"))
    End If
End If

End Sub
Avatar billede bak Forsker
05. august 2004 - 23:53 #8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.StatusBar = "Indeks : " & range("A" & target.row)
    If Not Intersect(Target, Range("X3")) Is Nothing And Range("X3") <>"" Then
        MsgBox Range("B3") & " " & (Range("X3"))
    End If


End Sub
Avatar billede tvc Seniormester
06. august 2004 - 00:01 #9
Selvfølgelig jeg sætter dem bare under samme Sub.

Tak bak - Lad os lukke dette spørgsmål.

Er helt ny i brugen af denne side så er der noget med at du skal sende et svar for at jeg kan give dig point?
Avatar billede bak Forsker
06. august 2004 - 00:06 #10
Jo jeg skal lige lægge et svar, men først skulle problemet jo være løst :-)
Avatar billede tvc Seniormester
06. august 2004 - 00:11 #11
Det tror jeg det er og ellers ved jeg nu hvor jeg skal henvende mig :-)

Tak for hjælpen!
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