Avatar billede lurup Ekspert
19. januar 2015 - 21:38 Der er 7 kommentarer og
1 løsning

Excel ........=LOPSLAG

Hej

Har 2 problemer

Bruger dette i forskellige lister

Er det mulig at den skriver det i samme celle som formelen står i ??

Fx hvis jeg skriver V i celle c17 skal den skrive Vinduer i celle C17 ???

Er det mulig at den bruger 2 forskellige fyld farver alt efter hvad jef skriver i cellen ???
Er godt klar og jeg skal skrive det i hver felt inden det virker .
Alle mine drenge skal være blå og piger skal være røde

=LOPSLAG(B6;Elever!$A$2:$J$1009;7;FALSK)
20. januar 2015 - 09:03 #1
Du kan ikke have 2 forskellige oplysninger i samme celle.
LOPSLAG skal bruge en opslagsværdi, og den vil forsvinde, hvis du indtaster formlen i samme celle - og give en cirkulær reference, hvis du forsøger.

En løsning på det du efterspørger kunne laves i VBA.

Du kan bruge Betinget formatering (fanen Startside) til at farvelægge celler efter indhold.
20. januar 2015 - 09:25 #2
Denne VBA-kode indsættes i arkets kodeblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Udfyld As Range
    Set Udfyld = Range("V17,V18,V19,V20")
    If Not Application.Intersect(Udfyld, Range(Target.Address)) Is Nothing Then
        If Range("V17") <> "V" Then
            Cells(17, 22).Value = "Vindue"
        End If
    End If
End Sub
Avatar billede lurup Ekspert
20. januar 2015 - 10:14 #3
Kan du skrive kort hvordan jeg får det lagt ind i arket ??

TAK
20. januar 2015 - 11:44 #4
Tast Alt-F11 for at starte VBA-editoren.
Dobbeltklik på arkets navn i menuen til vestre
Kopier koden og indsæt den i billedet.

Voila!

Rettelse:
Opdager at jeg ikke fik rettet denne linje tilbage efter en test.
If Range("V17") <> "V" Then
skal være
If Range("V17") = "V" Then

Hele koden kommer her: med en lille tilføjelse, så du kan se udviddelsesmulighederne

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Udfyld As Range
    Set Udfyld = Range("V17,V18,V19,V20")
    If Not Application.Intersect(Udfyld, Range(Target.Address)) Is Nothing Then
        If Range("V17") = "V" Then
            Cells(17, 22).Value = "Vindue"
        End If
        If Range("V17") = "D" Then
            Cells(17, 22).Value = "Dør"
        End If
    End If
End Sub
Avatar billede lurup Ekspert
20. januar 2015 - 14:50 #5
Der kommer bare en tom grå kasse op ??
20. januar 2015 - 22:07 #6
Hvis der slet ikke vises noget i VBA-editoren kan du taste Ctrl-R for at få vist Project-vinduet.
Heri dobbeltklikker du som beskrevet ovenfor på arkets navn, og indsætter koden i det vindue, der åbner sig.
Avatar billede lurup Ekspert
07. april 2015 - 12:48 #7
Vil du svare Erik Juul
07. april 2015 - 13:33 #8
Kommer her...... !
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

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