Ændre kolonneoverskrifter til tekst efter eget ønske?

Det tror jeg ikke kan lade sig gøre!
Hvad er der ivejen for at bruge 1. række?

Hilsen KOL

Så vidt jeg ved kan du ikke ændre kolonnenavnene, men for at følge lidt op på kol's forslag så kan du jo blot skrive dine ønskede navne i række 1 og så formatere cellerne, så de ligner overskrifter. Endelig kan du så fjerne visningen af Excel's overskrifter (menuen Funktioner/Indstillinger fanebladet vis, hvor du fjerner fluebenet ud for "Række- og kolonneoverskrifter").

Ja jeg ved godt at jeg kan skjule kolonne og rækkeoverskrifterne og så bruge 1. række. Jeg har bare set i et, i LotusNotes integreret Exceldokument, at kolonneoverskrifterne var ændret. Jeg er derfor overbevist om at det må kunne lade sig gøre.

Med venlig hilsen

TVC

Jeg tør ikek sige om det kan lade sgi gøre, hvis du integerer ett Excel ark i Notes, men Excel har ikke en mulighed for at ændre kolonneoverskrifterne til andet end tal.

Jeg mener heller ikke det kan lade sig gøre. Jeg har set det engang med et ældre Lotus-program, der hedder Lotus Improv. Er de sikker på at det ikke er det du har set istedet.
Ellers er sjap forslag stadig det eneste jeg kan komme i tanke om. Det kan dog udvides med under funktioner / indstillinger på fanebladet Beregning at sætte flueben ved "Accepter etiketter i formler". Dette gør at de nye overskrifter kan bruges aktivt i formlerne, som hvis du havde omdøbt række og kolonneoverskrifterne

Jeg undersøger lige hvad det er lavet i og vender tilbage. Det kan nemlig godt tænkes, at det slet ikke er Excel men måske Access der blot ligner Excel.

TVC

I Access bestemmer du selv kolonneoverskrifterne. Til gengæld er der ingen rækkenumre.

Hej alle

Jeg har lige hørt fra vores Notes ekspert, at det er en Lotus Spreadsheet Component (regnearkskomponent i Notes) der er anvendt og ikke excel.

Så Bak du havde ret i at det er Lotus Regnsark der har funktionen. Er der nogle af jer der ved hvorfor Microsoft ikke lader brugerne ændre kolonne overskrifterne (i alt fald visuelt)?

Det er i alt fald meget ærgeligt, at det ikke kan lade sig gøre!

TVC

Man kan da lege lidt med det :-)
www.tbdl.dk/excel/betalingsid.xls

bak -> Fikst trick :-)

Takker Jan. Hvis man ændrer en af kolonne eller rækkeoverskrifter følger formler faktisk også med :-)

Ja, etiketter er en smart ting. Det eneste der mangler er muligheden for at markerer hele rækker og kolonner ved hjælp af dine titler - og så genvejsmenuen .-)

Jaah, jeg er klar over at der er nogle begrænsninger og eksemplet er også bare lavet for sjov.
I mellemtiden kan ctlr-mellemrum og shif-mellemrum da gøre lidt, men genvejmenuen klarer de ikke.
apropros genvejsmenuen må det vel egentligt være muligt at hente den indbyggede ved tryk på overskrifterne, har dog ikke chekket

Det har jeg også tænkt på. Mwen jeg gider ikke se på det lige nu :-)
Min bemækning var også mest for at drille. Det var bestemt ikke kritik.

Men du kan faktisk stå i en af dine titelceller og så bruge fx ctrl+mellemrum til at markere kolonnen og så bruge genvejsmenutasten på dit tastatur.

Jeg opfattede det slet heller ikke som kritik,men som gode ideer, så jeg var allerede ved at kode indtil jeg så hvad klokken var :-)

Og så brrugte jeg alligevel tid. Det må være din skyld:

Den kode gør det, men hvordan knyttes den til højre museknap?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row = 1 And Target.Column <> 1 Then
        CommandBars("column").ShowPopup
    End If
    If Target.Column = 1 And Target.Row <> 1 Then
        CommandBars("row").ShowPopup
    End If
    If Target.Row = 1 And Target.Column = 1 Then
        Cells.Select
    End If
End Sub

fx

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Target.Row = 1 And Target.Column <> 1 Then
Cancel = True
        Target.EntireColumn.Select
        CommandBars("column").ShowPopup
    End If
    If Target.Column = 1 And Target.Row <> 1 Then
    Cancel = True
        Target.EntireRow.Select
        CommandBars("row").ShowPopup
    End If
    If Target.Row = 1 And Target.Column = 1 Then
        Cells.Select
    End If

End Sub

Ja selvfølgelig. Det var alligevel for sent i går :-)  Din kode markerer så samtidigt, og nu mangler vi bare at skaffe os af med den "almindelige" genvejsmenu i sidste tilfælde, så er vi stort set ved et helt normalt fungerende regneark.

Det må kunne gøres ved at dele dem i to makroer:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Target.Row = 1 And Target.Column <> 1 Then
Cancel = True
        Target.EntireColumn.Select
        CommandBars("column").ShowPopup
    End If
    If Target.Column = 1 And Target.Row <> 1 Then
    Cancel = True
        Target.EntireRow.Select
        CommandBars("row").ShowPopup
    End If

End Sub

og

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Row = 1 And Target.Column = 1 Then
        Cells.Select
    End If

End Sub

Har ikke glemt jer men skal lige have prøvet at sætte tingene sammen :-)

det ser rigtig smart ud og nu har jeg tilmeldt mig et kursus i VBA for at kunne forstå lidt mere af hvad I skriver :-)

På forhånd tak for hjælpen

TVC

Skal vi lukke denne?

Smider i et svar hver?

ok :-)

0k :-)