Avatar billede martpe Nybegynder
11. oktober 2007 - 12:23 Der er 6 kommentarer og
1 løsning

If (blank) else i VBA

Kan ikke helt for skabelonen, hvor makroen gør en ting, hvis celle A18 er blank og noget andet, hvis ikke, til at virke. Kan nogle hjælpe mig på vej? (nedenfor et forsøg)

Sub ny()
Dim valg As Integer
Sheets("Test").Activate
valg = Worksheets("Test").Range("A18")
        If valg <> "" Then
        Range("B19") = 1
End If
     
      If valg <> "" Then
      Range("B19") = 2
End If
End Sub
Avatar billede supertekst Ekspert
11. oktober 2007 - 13:19 #1
Hvad er det præcist som du vil opnå?
Avatar billede w13 Novice
11. oktober 2007 - 13:21 #2
Det må vel være:
-------------------
Sub ny()
Dim valg As Integer
Sheets("Test").Activate
valg=Worksheets("Test").Range("A18")
If valg<>"" Then
Range("B19")=1
Else
Range("B19")=2
End If
End Sub

Du havde sat begge dine if til at være: "hvis den er andet end tom!"
Avatar billede jlemming Nybegynder
11. oktober 2007 - 14:07 #3
den kan se sådan her ud

w13 har ret, men man kann ikke sammeligne tal og tekst (valg og "")

Sub ny()

    Sheets("Test").Activate
    If Worksheets("Test").Range("A18") <> "" Then
      Range("B19") = 1
    Else
      Range("B19") = 2
    End If
End Sub
Avatar billede jlemming Nybegynder
11. oktober 2007 - 14:09 #4
eller:

 
    If Worksheets("Test").Range("A18") <> "" Then
      Worksheets("Test").Range("B19") = 1
    Else
      Worksheets("Test").Range("B19") = 2
    End If
End Sub
Avatar billede w13 Novice
11. oktober 2007 - 14:22 #5
JLemming>> Er det ikke ligemeget, om man bruger Worksheets("Test").Range("A18")<>"" eller først ligger Worksheets("Test").Range("A18") over i valg, og så bruger valg<>"" ?
Avatar billede martpe Nybegynder
11. oktober 2007 - 14:28 #6
Den virker jlemming: send et svar og tak
Avatar billede jlemming Nybegynder
11. oktober 2007 - 15:00 #7
w13: det ville have også have været ligemeget hvis valg havde været defineret som string. Men som sagte, kan ikke sammeligne tal og tekst direkte.
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