Private Sub sevdatVon_GotFocus()
    If sevAdresse1 = "" Then
       With sevDatVon
          .BalloonTip = True
          .ToolTipIcon = rsErrorIcon
          .ToolTipTitle = "Fehler"
          .ToolTip = "Wählen Sie bitte zuerst die richtige Aktion:" & vbCrLf & _
                     "Freie Rechnung - Neue Rechnung erstellen" & vbVrLf & _
                     "aus Auftrag    - Rechnung aus einem Auftrag" & vbCrLf & _
                     "Kopieren       - vorhandene Rechnung kopieren" & vbCrLf & _
                     "Ändern         - vorhandene Rechnung ändern"
       End With
    End If
End Sub