26. april 2006 - 20:07Der er
6 kommentarer og 1 løsning
If cell ="tekst" Then c19 =
Skal "måle" på en celle (m9) og derefter indsætte et tal i en anden cell (c19). Mvh Lun
Se her: 'Finder ud af Software model Select Case BoghModel Case Link If Cells(m9) = "BEGYNDELSE:" Then Cells(c19) = "2" End If If Cells(m9) = "IND:" Then Cells(c19) = "1" End If If Cells(m9) = " " Then Cells(c19) = "3" Else: Cells(c19) = "4" End If
Select Case BoghModel Case Link Select Case Range("M9") Case "BEGYNDELSE:": Range("c19") = "2" Case "IND:": Range("c19") = "1" Case " ": Range("c19") = "3" Case Else: Range("c19") = "4" End Select Case ...... Case ...... Case Else End Select
Hej bak. Tak Du får point.. Men hvorfor den anden Case ? Men den virker helt fint uden, sådan her: Select Case BoghModel Case Link Select Case Range("M9") Case "BEGYNDELSE:": Range("c19") = "2" Case "IND:": Range("c19") = "1" Case " ": Range("c19") = "3" Case Else: Range("c19") = "4" End Select
Der behøver heller ikke være 2 select case inden i hinanden. Det var bare mere overskuelig for mig. Jeg ken der ingen grænser for hvor mange cases der kan være.
Hvis jeg skulle lave det med IF istedet ville det se således ud
Select Case boghmodel Case link If Range("m9") = "BEGYNDELSE:" Then Range("c19") = "2" ElseIf Range("m9") = "IND:" Then Range("c19") = "1" ElseIf Range("m9") = " " Then Range("c19") = "3" Else: Range("c19") = "4" End If
? benytte Case også hvis man ønsker en formel indsat ?
Select Case boghmodel Case counter If Range("c19") = "2" Then Range("d19") = (L119*C3)+d9 ElseIf Range("c9") = "1:" Then Range("d19") = (L121*C3)+d9 ElseIf Range("c9") = "3" Then Range("d19") = L123*C3)+d9 Else: Range("d19") = "Dont know" End If
Eller AND 'med flere If på samme:
Select Case boghmodel Case counter If Range("c19") = "2" and Range("c20") = "3" Then Range("d19") = L119 If Range("c19") = "2" and Range("c20") = "2" Then Range("d19") = L97 If Range("c19") = "2" and Range("c20") = "1" Then Range("d19") = L72 ElseIf Range("c9") = "1:" and Range("c20") = "3" Then Range("d19") = L121 ElseIf Range("c9") = "1:" and Range("c20") = "2" Then Range("d19") = L98 ElseIf Range("c9") = "1:" and Range("c20") = "1" Then Range("d19") = L73 ElseIf Range("c9") = "3" and Range ("c20") = "3" Then Range("d19") = m234 ElseIf Range("c9") = "3" and Range ("c20") = "2" Then Range("d19") = m237 Else: Range("d19") = "Dont know" End If
Eller skal det gøres på en anden måde, måske smartere ?
mvh Lun
Synes godt om
Ny brugerNybegynder
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.
Ny bruger
Nybegynder
Opret
Preview
