diff --git a/app/DD_PM_WINDREAM/frmProfileDesigner.vb b/app/DD_PM_WINDREAM/frmProfileDesigner.vb
index 325d41d..ff47d85 100644
--- a/app/DD_PM_WINDREAM/frmProfileDesigner.vb
+++ b/app/DD_PM_WINDREAM/frmProfileDesigner.vb
@@ -274,11 +274,11 @@ Public Class frmProfileDesigner
                 TBPROFILE_GROUPTableAdapter.Fill(DD_DMSLiteDataSet.TBPROFILE_GROUP, profileId)
                 TBDD_USERTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_USER, profileId)
                 TBDD_GROUPSTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_GROUPS, profileId)
+
             End If
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der User zu Profil:")
         End Try
-
     End Sub
 
     Private Sub TBPM_USERBindingSource_AddingNew(sender As System.Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USERBindingSource.AddingNew
@@ -424,7 +424,11 @@ Public Class frmProfileDesigner
     Private Sub TabControl1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
         Select Case TabControl1.SelectedIndex
             Case 1
-                FillProfile_User(PROFILGUIDTextBox.Text)
+                If PROFILGUIDTextBox.Text = String.Empty Then
+                    MsgBox("Kein Profil angelegt oder ausgeählt", MsgBoxStyle.Critical)
+                Else
+                    FillProfile_User(PROFILGUIDTextBox.Text)
+                End If
             Case 3
                 Refresh_log()
         End Select
@@ -940,13 +944,17 @@ Public Class frmProfileDesigner
             Dim userManagerPath As String = clsModules.GetModulePath("User Manager")
 
             If userManagerPath Is Nothing Then
-                MsgBox("User Manager konnte nicht gefunden werden!", MsgBoxStyle.Critical)
+                MsgBox("Pfad zu User Manager konnte nicht gefunden werden!", MsgBoxStyle.Critical)
             Else
 
                 Dim exePath As String = Path.Combine(userManagerPath, "DDUserManager.exe")
-                Dim psi As New ProcessStartInfo(exePath)
 
-                Process.Start(psi)
+                If File.Exists(exePath) Then
+                    Dim psi As New ProcessStartInfo(exePath)
+                    Process.Start(psi)
+                Else
+                    MsgBox("Programm User Manager konnte nicht gefunden werden!", MsgBoxStyle.Critical)
+                End If
             End If
         Catch ex As Exception
             MsgBox("Error while startign User Manager:" & vbCrLf & ex.Message, MsgBoxStyle.Critical)