Update profile selection in frmNIVerknuepfungen

ToolCollection/frmNIVerknuepfungen.vb

@@ -486,24 +486,22 @@ Public Class frmNIVerknuepfungen
     ''' </summary>
     ''' <remarks></remarks>
     Private Sub cmbProfilauswahl_DropDownItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles cmbProfilauswahl.DropDownItemClicked
-        ClassNIProfile.aktivesProfil = ClassNIProfile.getProfilByName(e.ClickedItem.Text)
-        Me._selectedProfil = ClassNIProfile.aktivesProfil
         Try
-            'wenn noch kein Profil geladen wurde soll das ausgewählte auf jeden Fall geladen werden
             If Me._selectedProfil IsNot Nothing Then
-                Me.LoadSelectedProfile(e.ClickedItem.Text)
-                Me.pnlZielQuelle.Enabled = True
-            Else ' wenn bereits ein Profil geladen war
+                If e.ClickedItem.Text = Me._selectedProfil.Profilname Then Exit Sub
                 If Me._selectedProfil.HasChanges Then
                     Me._selectedProfil.Save(True, "profile")
                 End If
-                ' wenn ein anderes Profil ausgewählt wurde
-                If Not e.ClickedItem.Text = Me._selectedProfil.OriginalProfilname Then
+            End If
+
             Me.LoadSelectedProfile(e.ClickedItem.Text)
-                Else
-                    'MsgBox("Keine Änderung")
-                End If
+            Me.pnlZielQuelle.Enabled = True
+
+            For i = 0 To arrProfile.GetUpperBound(0)
+                If arrProfile(i, 0) = e.ClickedItem.Text Then
+                    _pos = arrProfile(i, 1)
                 End If
+            Next
 
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei der Auswahl der Profile")