Voorwaarde, de IF-functie in VBA

[Gerben84]

Hallo,

Wie kan mij vertellen wat er aan de onderstaande macro niet goed is? Hij gaat altijd uit van het eerste, ook is die waarde in E20 groter dan 1,1. De waarde 1,1 staat eigenlijk in cel H20; ik heb daarom ook de vergelijking "E20" > "H20" en "E20" < "H20" gemaakt, maar het lijkt wel of ie dit niet pakt...

Public Function Test()

If ("E20" > "1.1") Then
Range("K5").Select
    Selection.Copy
    Range("E9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End If

If ("E20" < "1.1") Then
Range("L5").Select
    Selection.Copy
    Range("E9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End If

End Function

 

[Gerben84]

Al opgelost, d.m.v

        If Range("E20").Value > 1.1 Then
        
    Range("K5").Select
    Selection.Copy
    Range("E9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            
        Else
        
    Range("L5").Select
    Selection.Copy
    Range("E9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            
        End If

 

[snb]

Antwoord 1:
Gebruik voor het uitvoeren van een aktie geen Function, maar een sub.

Antwoord 2:
Streef naar one-liners

Sub kopie()
    cells(5,iif([E20]>1.1,15,16)).copy [E9]
End Sub

Deze doet hetzelfde als jouw code