AW: Genereller Titelname bei mehreren MsgBox
25.02.2020 13:05:40
Regina
Hi,
so würde das aussehen:
Public Const MsgBoxTitle As String = "ABC"
Sub Rahmen_Linie_Namen_auslesen()
Select Case Selection.Borders.LineStyle
Case 1
MsgBox "xlContinuous" & vbLf & "Wert: 1" , vbExclamation, MsgBoxTitle
Case 4
MsgBox "xlDashDot" & vbLf & "Wert: 4", vbExclamation, MsgBoxTitle
Case 5
MsgBox "xlDashDotDot" & vbLf & "Wert: 5", vbExclamation, MsgBoxTitle
Case -4115
MsgBox "xlDash" & vbLf & "Wert: -4115", vbExclamation, MsgBoxTitle
Case -4118
MsgBox "xlDot" & vbLf & "Wert: -4118", vbExclamation, MsgBoxTitle
Case -4119
MsgBox "xlDouble" & vbLf & "Wert: -4119" , vbExclamation, MsgBoxTitle
Case -4142
MsgBox "xlLineStyleNone" & vbLf & "Wert: -4142" , vbExclamation, MsgBoxTitle
End Select
End Sub
Du musst den Titel bei jedem Aufruf angeben, anders geht das nicht.
Gruß Rgeina