diff --git a/UID/Mitarbeiter/usrCntlMitarbeiter.vb b/UID/Mitarbeiter/usrCntlMitarbeiter.vb
index 92ad34f..f415aa0 100644
--- a/UID/Mitarbeiter/usrCntlMitarbeiter.vb
+++ b/UID/Mitarbeiter/usrCntlMitarbeiter.vb
@@ -429,45 +429,86 @@ Public Class usrCntlMitarbeiter
     End Sub
 
     Private Sub UserKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UserKopierenToolStripMenuItem.Click, BerechtigungenSetzenToolStripMenuItem.Click
+
+        Dim copyUserName As String = "UserKopierenToolStripMenuItem"
+        Dim setPermissionsName As String = "BerechtigungenSetzenToolStripMenuItem"
+
         If TabControl1.SelectedIndex = 0 Then
 
             If dgvVERAG.SelectedRows.Count <> 1 Then Exit Sub
-            If sender.Name = "UserKopierenToolStripMenuItem" Then
-                copyUser(dgvVERAG.CurrentRow.Cells(0).Value)
-            ElseIf sender.Name = "BerechtigungenSetzenToolStripMenuItem" Then
-                Dim frm As New frmBenutzerBerGruppenKopieren(dgvVERAG.CurrentRow.Cells(0).Value)
-                frm.Show(Me)
-            Else
 
-            End If
+            Select Case sender.Name
+                Case copyUserName
+                    copyUser(dgvVERAG.CurrentRow.Cells(0).Value)
+                Case setPermissionsName
+                    Dim frm As New frmBenutzerBerGruppenKopieren(dgvVERAG.CurrentRow.Cells(0).Value)
+                    frm.Show(Me)
+            End Select
+
 
 
         ElseIf TabControl1.SelectedIndex = 1 Then
             If dgvATILLA.SelectedRows.Count <> 1 Then Exit Sub
-            copyUser(dgvATILLA.CurrentRow.Cells(0).Value)
+            Select Case sender.Name
+                Case copyUserName
+                    copyUser(dgvATILLA.CurrentRow.Cells(0).Value)
+                Case setPermissionsName
+                    Dim frm As New frmBenutzerBerGruppenKopieren(dgvATILLA.CurrentRow.Cells(0).Value)
+                    frm.Show(Me)
+            End Select
 
         ElseIf TabControl1.SelectedIndex = 2 Then
             If dgvIMEX.SelectedRows.Count <> 1 Then Exit Sub
-            copyUser(dgvIMEX.CurrentRow.Cells(0).Value)
+            Select Case sender.Name
+                Case copyUserName
+                    copyUser(dgvIMEX.CurrentRow.Cells(0).Value)
+                Case setPermissionsName
+                    Dim frm As New frmBenutzerBerGruppenKopieren(dgvIMEX.CurrentRow.Cells(0).Value)
+                    frm.Show(Me)
+            End Select
         ElseIf TabControl1.SelectedIndex = 3 Then
 
             If dgvUNISPED.SelectedRows.Count <> 1 Then Exit Sub
-            copyUser(dgvUNISPED.CurrentRow.Cells(0).Value)
+            Select Case sender.Name
+                Case copyUserName
+                    copyUser(dgvUNISPED.CurrentRow.Cells(0).Value)
+                Case setPermissionsName
+                    Dim frm As New frmBenutzerBerGruppenKopieren(dgvUNISPED.CurrentRow.Cells(0).Value)
+                    frm.Show(Me)
+            End Select
 
         ElseIf TabControl1.SelectedIndex = 4 Then
 
             If dgvAMBAR.SelectedRows.Count <> 1 Then Exit Sub
-            copyUser(dgvAMBAR.CurrentRow.Cells(0).Value)
+            Select Case sender.Name
+                Case copyUserName
+                    copyUser(dgvAMBAR.CurrentRow.Cells(0).Value)
+                Case setPermissionsName
+                    Dim frm As New frmBenutzerBerGruppenKopieren(dgvAMBAR.CurrentRow.Cells(0).Value)
+                    frm.Show(Me)
+            End Select
 
         ElseIf TabControl1.SelectedIndex = 5 Then
 
             If dgvFRONTOFFICE.SelectedRows.Count <> 1 Then Exit Sub
-            copyUser(dgvFRONTOFFICE.CurrentRow.Cells(0).Value)
+            Select Case sender.Name
+                Case copyUserName
+                    copyUser(dgvFRONTOFFICE.CurrentRow.Cells(0).Value)
+                Case setPermissionsName
+                    Dim frm As New frmBenutzerBerGruppenKopieren(dgvFRONTOFFICE.CurrentRow.Cells(0).Value)
+                    frm.Show(Me)
+            End Select
 
         ElseIf TabControl1.SelectedIndex = 6 Then
 
             If dgvVERIMEX.SelectedRows.Count <> 1 Then Exit Sub
-            copyUser(dgvVERIMEX.CurrentRow.Cells(0).Value)
+            Select Case sender.Name
+                Case copyUserName
+                    copyUser(dgvVERIMEX.CurrentRow.Cells(0).Value)
+                Case setPermissionsName
+                    Dim frm As New frmBenutzerBerGruppenKopieren(dgvVERIMEX.CurrentRow.Cells(0).Value)
+                    frm.Show(Me)
+            End Select
 
         End If
     End Sub
diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb
index 8780a20..33ce4e7 100644
--- a/UID/My Project/AssemblyInfo.vb	
+++ b/UID/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.1.8")>
-<Assembly: AssemblyFileVersion("1.2.1.8")>
+<Assembly: AssemblyVersion("1.2.1.9")>
+<Assembly: AssemblyFileVersion("1.2.1.9")>