MsgBox - Bei "Yes" tu das! - oder auch nicht!?
30.05.2004 15:40:01
Manuel
Ich habe eine Button, bei dem beim klicken eine MsgBox kommen soll, aber nur, wenn das Feld "A5" in der Tabelle "COPY AND PASTE" gefüllt ist..
Code:
If ("'COPY AND PASTE'!A5" "") Then
Dim msg
msg = MsgBox("COPY AND PASTE - Leeren?", vbYesNo, "COPY AND PASTE - Leeren?")
If (msg = 6) Then
Sheets("COPY AND PASTE").Select
ActiveSheet.Unprotect ("ABC")
ActiveSheet.Range("A5:N28").Select
Aber die MsgBox kommt immer, auch wenn dort kein Inhalt in der Zelle ist.
Sdie Zelle A5 ist gelb hinterlegt, aber das hat damit doch nichts zu tun, oder!?
Ich habe das "If (msg = 6)" ausser Hilfe, da steht, dass "6" der Rückgabewert ist, der kommt, wenn man "Yes" drückt.
Allerdings leigt der Fehler ja schon in der hier 1. Zeile, da er das anscheinende nicht überprüft..
MfG
Manuel