Visning af VBA "lopslag" i statusbar

Hvor er listen placeret?
Hvor er der initialer - samme kolonne på alle ark eller?

Listen er placeret i arket Forside (området kan navngives - "medarbejdere").

Initialerne findes i 6 underliggende ark i kolonne C - I (i enkelte ark er C kolonnen anvendt til andre data).

Det sværeste, er jo at vide, hvornår en celle indeholder initialer, den skal jo kun trikke ved dem.

Det er rigtig. Hvis nu initialerne altid skrives med stort og ikke må være længere end tre tegn, vil det så hjælpe?


Excelent har tidligere udarbejdet denne til mig til brug for visning af dato i statusbaren, hvis den på nogen måde kan være til hjælp:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.StatusBar = ""
If Intersect(Target, Range("G:M")) Is Nothing Then Exit Sub
Application.StatusBar = Format(DateSerial(Val(Ark2.Range("Tår")), 1, 1) + ((Cells(Target.Row, 1) - 1) * 7) + Target.Column - 6, "dd-mm-yyyy")
End Sub

I et module

Option Explicit
Global Bruger As Variant

i ThisWorkbook modulet

Private Sub Workbook_Open()
Bruger = [Navne], navngivet område
End Sub


I arkets modul

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I As Integer
    Application.StatusBar = ""
    If Intersect(Target, Range("G:M")) Is Nothing Then Exit Sub
    For I = 1 To UBound(Bruger)
        If Bruger(I, 2) = Target Then
            Application.StatusBar = Bruger(I, 1)
            Exit For
        Else
            Application.StatusBar = ""
        End If
    Next
End Sub

den sidste kan også være i thisWorkbook modulet, så gælder den for alle ark

så hedder den
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

-> Kabbak

Jeg har nu indsat følgende i ThisWorkbook:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim I As Integer
    Application.StatusBar = ""
    If Intersect(Target, Range("C:I")) Is Nothing Then Exit Sub
    For I = 1 To UBound(Bruger)
        If Bruger(I, 2) = Target Then
            Application.StatusBar = Bruger(I, 1)
            Exit For
        Else
            Application.StatusBar = ""
        End If
    Next
End Sub

Private Sub Workbook_Open()
    Bruger = [medarbejdere]
End Sub


Jeg har ligeledes indsat følgende i et modul:

Option Explicit
Global Bruger As Variant


Men den går istå ved:
For I = 1 To UBound(Bruger)

Hvad har jeg gjort galt?

Har du husket at lukke mappen, og så åbne den igen.

Private Sub Workbook_Open()

køres, når mappen åbnes.

Du kan også sætte denne ind i stedet, der er isat en linje, der tjekker om data er indlæst, hvis ikke, så gør den det.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim I As Integer
    Application.StatusBar = ""
    If Intersect(Target, Range("C:I")) Is Nothing Then Exit Sub
    If IsEmpty(Bruger) Then Call Workbook_Open 'NY LINJE
    For I = 1 To UBound(Bruger)
        If Bruger(I, 2) = Target Then
            Application.StatusBar = Bruger(I, 1)
            Exit For
        Else
            Application.StatusBar = ""
        End If
    Next
End Sub

Nu virker det - jeg havde ikke tænkt over at mappen skulle lukkes ned.

Tak for hjælpen det virker perfekt!

Lægger du et svar?

Hilsen

TVC

et svar ;-))