hjælp til onchange

2 sek...

http://www.eksperten.dk/spm/417504

Går ud fra at du taler om VBA til Excel og ikke VB...

jep(vba), kigger lige

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If A1 = "1" Then
    MsgBox "Koden køre"
Else
MsgBox "Her skal der ikke ske noget"
End If

End If
End Sub
 
Men If A1 = "1" Then bliver aldrig udført ?

Hvis du ændrer i celle A1 bliver koden udført.

Men du kan da ikke bare skrive

  if A1 = 1

VB vil opfatte A1 som en tom variabel ved navn A1...

DOOOOOOOOOH, det er da rigtigt :-(
Men hvordan får jeg så koden til at finde ud om der står 1 eller ej i a1

Sorry, man skal lige huske og tænke selv.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Range("A1") = "1" Then
MsgBox "der står 1 i cellen"
Else
MsgBox "der står ikke 1 i cellen"
End If

End If
End Sub

Tak for hjælpen (igen igen) :-)

Lidt fantasi, måske?

Hvad med

If Target.Value = "1"
If Target.FormulaRC = "1"
If Val(Target) = 1
If Val(Target.FormulaRC) = 1
If Range(Target.Address).Value = "1"

Osv. Du kan meget lettere gætte end jeg kan, for din VBA-editor fortæller dig hvad du kan skrive og hvad du ikke kan - jeg gætter bare

Det svar du selv har givet duer KUN for celle A1 - det er nok ikke så smart, eller?

Tak for points

Jo da det kun er en celle som skal køre en kode, og i dette eks valgte jeg så bare A1.

Her er hvad jeg kom frem til:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    If Range("A1") = "1" And Range("c1") > "0" Then
        'Do While Range("c1") > 0
        Dim AntalKasser As Integer
        AntalKasser = Range("c1")
        Range("c1") = AntalKasser - 1
   
    Else
     
    End If

End If
End Sub

Det virker bare perfekt :-)

bare det virker for dig - troede der skulle ske noget bestemt når der blevet skrevet 1 i en VILKÅRLIG celle. Derfor :o)

Hej Martin

Jeg har lige fundet ud af det ikke virker hvis der i A1 står =B2.
Kan du en metode som kan virke på dette. Koden virker nemlig fint ellers.

Sorry, det var jo det du havde linket til.

Bare glem det ;-)

Private Sub Worksheet_Calculate()
    If Range("A1") = 1 And Range("c1") > 0 Then
        'Do While Range("c1") > 0
        Dim AntalKasser As Integer
        AntalKasser = Range("c1")
        Range("c1") = AntalKasser - 1
        MsgBox "nu køre koden"
    Else
    MsgBox "der står ikke 1 i cellen"
    End If
End Sub