If ActivCell.Range('B4') = Selelct funzt nich, war

Computer: Software & Programmierung Office Software
1

hallo ihr lieben…

ich möchte das excel folgendes ausführt:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if ActivCell.Range(„B4“) = Selelcted Then MsgBox „Bla“

End If
End Sub
also eine MsgBox ausführt wenn jemansch die Zelle B4 anklickt.
doch so wie ich es daoben beschrieben habe gibts leider nur ne fehlermeldung…(Objekt erwartet…)

wer kann mir verzweifeltem helfen?

vielen dank und beste grüße

herpes

2

Hi Herpes,

versuch’s doch mal mit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = „$B$4“ Then MsgBox „bla“
End Sub

Gruß

Sculpture

3

hi sculpture:
vielen dank, es klappt!!!
aber: wenn ich End If am ende lassen kommt die fehlermeldung: End If ohne If-Block (??)
is doch quatsch, weil is doch n if-block??

gruß
herpes

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

Hi Herpes,

das „EndIf“ brauchst Du nur, wenn sich der If-Block über mehr als eine Zeile erstreckt, also z.B.:

If a = 1 then

End If

Bei einer einzeiligen If-Anweisung brauchst Du kein EndIf, bzw. umgekehrt: Findet der Interpreter kein EndIf, weiß er, dass das If nur zu dieser einen Zeile gehört, findet er eines, nimmt er den ganzen Block in die If-Bedingung, und überspringt ihn, wenn die Bedingung nicht erfüllt ist.

Alles klar?

Gruß