Messagebox zu klein (Autosize)
{Boris}
bei Doppelklick auf eine Datumszelle öffnet sich eine Messagebox, die dann wiederum anzeigt, um welchen Feiertag es sich handelt.
Wie kann es sein, dass sie tatsächlich zu klein ist - denn bei der ersten MsgBox wird der Titel "Am 13.05.2012 ist..." ja nach "Am 13.05.2012 i..." abgekürzt?!
Der Aufruf der MsgBox erfolgt per Doppelklick auf eine Datumszelle wie folgt (die aktive Zelle enthält ein stinknormales Datum):
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call Feiertag_anzeigen(ActiveCell.Value)
Cancel = True
End Sub
Public Sub Feiertag_anzeigen(vntValue As Variant)
If WorksheetFunction.CountIf(Range("Feiertagsdaten"), vntValue) Then
MsgBox WorksheetFunction.VLookup(CLng(vntValue), Range("Feiersverw"), 2, 0), vbOKOnly, "Am " _
& vntValue & " ist..."
End If
End Sub
VG, Boris
