Sprechblase mit Checkbox
27.11.2012 11:59:54
Andreas
bitte um hilfe!!
Ich möchte in einem Tabellenblatt über Makros mit einer Schaltfläche eine Blase einbauen, in dieser Blase sollten mehrere Daten untereinander erscheinen!
Den eingespielten Code für eine Blase habe ich im Internet gefunden, funktioniert auch, aber ich hätte gerne in dieser Blase mehrere Daten untereinander aufgelistet,zb
1 Min - 0,02
2 Min - 0,03
3 Min - 0,05
4 Min - 0,07
Glaube aber nicht das es der richtige Code ist.
Für eurere Hilfe danke ich im Voraus.
Gruß
Andreas
Private Sub CommandButton1_Click()
With Assistant.NewBalloon
.Heading = "Text"
.Text = "Fragen beantworten"
.CheckBoxes(1).Text = "Frage 1"
.CheckBoxes(2).Text = "Frage 2"
.Button = msoButtonSetOK
.Show
If .CheckBoxes(1).Checked = False Or .CheckBoxes(2).Checked = False Then
MsgBox "Testversion:Blase"
GoTo ende
End If
If .CheckBoxes(1).Checked = True And .CheckBoxes(2).Checked = True Then
MsgBox "Fragen beantwortet"
Else
MsgBox "Ok Weiter"
End If
ende:
End With
End Sub
Anzeige