Msg-Box
22.12.2004 08:40:14
Niklas
Ich habe eine Msg-Box versucht zu programmieren, die zwar auch funktioniert, jedoch nicht so wie sie sollte :-(
Erstens erscheint das Info-Symbol links nicht und er macht die Meldung in zwei Zeilen und nicht wie ich das eigentlich wollte in 4 Zeilen untereinander..
Hat mir jemand einen Tipp was ich falsch mache? Vielen lieben Dank!
Sub Info()
Dim v1 As String, v2 As String, v3 As String, v4 As String
v1 = Range("A1").Value
v2 = Range("A2").Value
v3 = Range("A3").Value
v4 = Range("A4").Value
If v1 = "x" Then MsgBox "Bitte überprüfen Sie die Zielerreichung " & _
"der individuellen Ziele! Sie haben eine oder mehrere " & _
"Bewertungen vergessen! Oder Sie haben ein Ziel mit weniger als 90% " & _
"bewertet! Ist dies gewollt?"
End Sub