Fix NodeId display, prepare multiselect, select active ribbon page on ribbon merging

app/DD-Record-Organizer/frmMain.vb

@@ -954,12 +954,12 @@ Public Class frmMain
 
     Private Sub ribbonMain_Merge(sender As Object, e As RibbonMergeEventArgs) Handles ribbonMain.Merge
         ' Zeigt im Ribbon Control den Kalender-Tab an, wenn der Kalender Maximiert wurde
-        If e.MergedChild.Name = "ribbonCalendar" Then
-            For Each page As RibbonPage In e.MergeOwner.MergedPages
-                If page.Name = "pageCalendar" Then
-                    e.MergeOwner.SelectedPage = page
-                End If
-            Next
+        Dim oMergeableRibbons = New List(Of String) From {"ribbonCalendar", "ribbonNodeNavigation"}
+        Dim oMergedRibbonControl = e.MergedChild
+
+        If oMergeableRibbons.Contains(oMergedRibbonControl.Name) Then
+            Dim oMergedPage = e.MergeOwner.MergedPages.First()
+            e.MergeOwner.SelectedPage = oMergedPage
         End If
     End Sub