Sammentælling på menulinien

Det lyder ret spændende - f.eks. et menu element?
Jeg tror jeg har noget, som måske kan anvendes...

Jeg synes selv det lyder interessant. Jeg har i hvert fald ikke set sådan en løsning før.

Glæder mig til at se hvad du har.

altenativt denne i ThisWorkbook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.StatusBar = Sheets("Sheet1").Range("A1") - Sheets("Sheet2").Range("A2")
End Sub

Det er jo en mulighed.

1. Kan man sætte tekst derned, f.eks. difference: (her kommer tallet)
2. Kan man lave flere sammentællinger på statuslinien
3. Hvis det kan hæftes op sammen med/i nærheden af en værktøjslinie e.l. ville det være lidt smartere

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.StatusBar = "Her kommer diference :" & Sheets("Sheet1").Range("A1") - Sheets("Sheet2").Range("A2") & " mere tekst"
End Sub

ellers afvent supertekst's indlæg

Det er sgu smart

Et lille sikkert simpelt spørgsmål. Hvordan får man tusindstalsseperator på.

Glæder mig dog stadig til at se om Supertekst finder på noget...

rem Koden anbringes i ThisWorkBook
rem Differencen vises i separat MenuPunkt
rem =====================================

Dim MenuObject As CommandBarPopup
Const celle1 = "Ark1!A1"        '<----------- TILPASSES
Const celle2 = "Ark2!A5"        '<----------- -"-

Dim strMenuName As String
Const strMenuNo As String = 11
Const intBarsNo As Integer = 1
Private Sub workbook_activate()
    strMenuName = "[Diff.:"
    visDifference
End Sub
Public Sub visDifference()
Dim difference
    DeleteMenu strMenuName, intBarsNo
   
    difference = Format(Range(celle1) - Range(celle2), "##,###,###.00") '<------------- TILPASSES EVT.
   
    strMenuName = "[Diff.: " + CStr(difference) + "]"
   
    CreateMainMenu strMenuName, strMenuNo, intBarsNo
End Sub
Sub DeleteMenu(strMenuName As String, intBarsNo As Integer)
    For Each mm In Application.CommandBars("Worksheet Menu Bar").Controls
        If InStr(mm.Caption, strMenuName) = 1 Then
            mm.Delete
            Exit Sub
        End If
    Next mm
End Sub
Private Sub CreateMainMenu(strMenuName, strMenuNo As String, intBarsNo As Integer)
    Set MenuObject = Application.CommandBars("WorkSheet Menu Bar").Controls.Add(Type:=msoControlPopup, _
                    Before:=strMenuNo, Temporary:=False)
        MenuObject.Caption = strMenuName
End Sub
Sub Workbook_SheetChange(ByVal Sh As Object, _
        ByVal Source As Range)
    visDifference
End Sub

Fint Supertekst

Men det er lidt mærkeligt at se på.

Hvis det egentlig skulle være burde den være ved værktøjslinien (ligesom en knap). Jeg ved godt jeg først fik skrevet menulinien.

Men den første løsning er perfekt. Kom med et svar så får du point.

Også tak til excelent.

Jeg vil dog meget gerne have løsningen på tusindtalsseperator

Og jeg kan se jeg lige har et spørgsmål mere.

Sammentællingen på statusbar skal gerne forsvinde når jeg lukker mit regneark. Det gør de ikke lige nu.

Smart ... synes ikke den virker i 2007 versionen?

OK - du får et svar - oprindeligt stammer koden fra en dynamisk menusystem (Word 2003 - men også testet Ok på 2007), hvor en række undermapper med skabeloner bliver vist og kan vælges i menusystemets hirarkiske opbygning - samtigt med, at evt. nye undermapper/skabeloner, der tilføjes - med det samme vil blive vist, såsnart menupunktet aktiveres.

Denne historie for at beskrive, at i givet fald kunne andre sammentællinger / differencer evt. blive vist i underliggende menupunkter.

Egentlig smart med en "menu" med alle de sammentællinger man ønsker.

Du har ikke lige svaret på mine to sidste spørgsmål Supertekst ?

1000-tals separator skulle blive vist:
  difference = Format(Range(celle1) - Range(celle2), "##,###,###.00")  i denne linie

andet spørgsmål?

Andet spørgsmål er at:

Sammentællingen på statusbar skal gerne forsvinde når jeg lukker mit regneark. Det gør den ikke lige nu.

Hov

Jeg ville meget gerne have løsningen med tudsindstal til denne:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.StatusBar = Sheets("Sheet1").Range("A1") - Sheets("Sheet2").Range("A2")
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.StatusBar = Format(Sheets("Ark1").Range("A1") - Sheets("Ark2").Range("A1"), "#,###.00")
End Sub

'reset ved lukning af projektmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.StatusBar = False
End Sub

Perfekt

Tusind tak for hjælpen.