Vis/skjul afh. af celle

Sagtens, men du skal spørge BAK eller retaxes, eller janvogt, jkrons eller flemmingdahl. de kan ryste det ud af ærmet. jeg har ikke tid i dag (og bruger for lang tid på at regne det ud)

Det lyder godt - mon ikke de ser spørgsmålet ?

Jeg har lavet et eksempel til din inspiration. Navnet læses fra en ComboBox1 på et Excel-ark. Der er så defineret et array med de felter, den enkelte må have lov til at skrive i Excel-arket. Den kan selvfølgelig udbygges, så det i stedet er rækker der må vises i stedet for celler.

Sub Beskyt()
Dim område As Variant
ActiveSheet.Unprotect
Cells.Locked = True

Select Case ComboBox1.Text
    Case "Fobian"
        område = Array("a1", "a2")
    Case "MRG"
        område = Array("b1", "b2")
End Select

For i = 0 To UBound(område)
    Range(område(i)).Locked = False
Next

ActiveSheet.Protect
End Sub

Tak for det, Fobian

Et par kommentarer:
1. I din opstilling kan MRG skrive i cellerne B1 og B2 ?
2. Skjules de øvrige celler ?
3. Hvordan ser det ud hvis det er rækker ?

Dette er i øvrigt min første flirt med VB i excel, så det bliver måske lidt omstændeligt.

Hvis du har mange navne kan du evt. kombinere med celler. Denne makro skjuler alle de rækker hvor der ikke står det relavante navn i kolonne A. (små bogstaver) - fra række 5. Den aktiveres når filen åbnes.
___________________________________
Sub auto_open()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
    Range("a:a").Select
    Selection.EntireRow.Hidden = False
Dim navn As String
navn = InputBox("Indtast navn")
Dim omrode As Range
Set omrode = Range("a5:a500") ' antal rækker hvor relevant
For Each cell In omrode
    cell.Select
    If Selection = navn Then
    Else
        Selection.EntireRow.Hidden = True
    End If
Next
ActiveSheet.Protect
End Sub

fobian-> Bliver det ikke lidt omstændeligt, hvis der er mange celler for den enkelte bruger?

Denner løsning er baseret på, at A1 kolonnen i hver række indeholdeer navnet på den person, der må skrive i rækken. I en comboboks vælges den aktuelle person. Derefter skjules alle de rækker vedkommende må se. selve koden skal ligge på komboboksen:

Private Sub ComboBox1_Change()
r = ComboBox1.Value
For Each c In ActiveSheet.UsedRange.Columns("A:A").Cells
If c.Value = r Then
c.EntireRow.Hidden = False
Else: c.EntireRow.Hidden = True
End If
Next c
    Range("A65000").Select
    Selection.End(xlUp).Select
End Sub

fobian-> Det var array løsningen, der var kompleks, ikke den senere :-)

Det afhænger selvfølgelig af hvor mange celler eller rækker der er tale om der skal vises for den enkelte person. Hvis der er mange rækker, kan det være en fordel at lave en matrix i regnearket, som indeholder navne som overskrift. Derefter kan man afkrydse hvilke rækker der skal vises for hvert navn. Derefter oprettes en macro, som gennemløber kolonnen med medarbejdernavnet og som skjuler de rækker, hvor der ikke er sat kryds.

eller man kunne bruge et ark pr medarbeder og så lade et evt netlogin bestemme, hvilke ark, der skal vises :-)  Mulighederne er mange.

Ja - heldigvis :o)

UPS...der blev afvist ved en fejl (ham tumpen der sad og hjalp mig!). Gider I svare igen...så prøver vi igen...

Jeg har prøvet med jkrons' forslag.

Jeg har nu:
Private Sub ComboBox1_Change()
    ComboBox1.Text = "Vælg person"
    ComboBox1.AddItem "Christian"
    ComboBox1.AddItem "Andre"

r = ComboBox1.Value
For Each c In ActiveSheet.UsedRange.Columns("A:A").Cells
If c.Value = r Then
c.EntireRow.Hidden = False
Else: c.EntireRow.Hidden = True
End If
Next c
    Range("A100").Select
    Selection.End(xlUp).Select
End Sub

Men den skjuler alle rækker (1-100) uanset hvad jeg vælger...

Hvor går det galt ? Skal værdierne i kolonne A have specielt format ?
Derudover er listen i combobox gentagelse af christian og andre flere gange...hvorfor ?

Jeg fyldte min forsøgskomboboks fra et område i regnearket. I dit tilfælde fyldes den faktisk først, når du bruger den. Måske ligger fejlen her.

Prøv evt at fylde komboboksen på en anden hændelse, fx Worksheet_Open

Du får lige et nyt svar :-)

Har du ellers fået styr på det?

Nu kører det !!!! Min første VBA stump !!! Jaaaaa...tusind tak - er det ok at I deler pointene ? Det synes jeg ihvertfald !

Det er helt ok med mig :-) Tak!

Også ok med mig - og tak :o)