kontrol af hvad der er markeret (Excel)

Jeg vil gerne have en dialogboks, hvis det er celle "A1" der er markeret.

Her er mit bud, men det virker ikke.

Sub kontrol()
'
' Makro5 Makro

If Selection = ("A1") Then
MsgBox ("vælg en anden linie")
End If
End Sub

Kan nogen hjælpe !

Mvh
Kristian

Kode 

Sub kontrol()
'
' Makro5 Makro

    If Excel.ActiveCell.Address = "$A$1" Then
    MsgBox "vælg en anden linie"
    End If
End Sub

Kode 

Range("C4").Select

Jeg vil gerne have en dialogboks, hvis det er celle "A1" der er markeret.

Her er mit bud, men det virker ikke.

Sub kontrol()
'
' Makro5 Makro

If Selection = ("A1") Then
MsgBox ("vælg en anden linie")
End If
End Sub

Kan nogen hjælpe !

Mvh
Kristian

Dette burde virke:

Kode 

Sub kontrol()
'
' Makro5 Makro

    If Excel.ActiveCell.Address = "$A$1" Then
    MsgBox "vælg en anden linie"
    End If
End Sub

Der skal dog være dollartegn ( $ ) i mellem. Spørg mig ikke hvorfor.
Og dette kan du skifte markering med:

Kode 

Range("C4").Select

Her uden dollartegn ( $ ).
---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?

Jeg vil gerne have en dialogboks, hvis det er celle "A1" der er markeret.

Her er mit bud, men det virker ikke.

Sub kontrol()
'
' Makro5 Makro

If Selection = ("A1") Then
MsgBox ("vælg en anden linie")
End If
End Sub

Kan nogen hjælpe !

Mvh
Kristian

Dette burde virke:

Kode 

Sub kontrol()
'
' Makro5 Makro

    If Excel.ActiveCell.Address = "$A$1" Then
    MsgBox "vælg en anden linie"
    End If
End Sub

Der skal dog være dollartegn ( $ ) i mellem. Spørg mig ikke hvorfor.
Og dette kan du skifte markering med:

Kode 

Range("C4").Select

Her uden dollartegn ( $ ).
---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?

Hej!

Det ser ud til at virke :-)

Er det muligt at få en "end sub" ind hvis det ér celle A1 der er markeret og der kommer en dialogboks frem?

mvh
Kristian Skriver

[Redigeret d. 05/01-06 14:58:06 af Kristian Skriver]

Kode 

sub ny()
if "b"="b" then
exit sub ' b er b så forlad subben og glem boksen.
end if
msgbox "b er åbentbart ikke b???"
end sub