Udrtæk af formler

Du taster: Ctrl+Shift+` (Accent grave)

På et dansk tastatur er det tegnet til venstre for backspace

Den har jeg prøvet med, men formlerne er for lange

Jeg er ikke helt med på hvad du mener...

Funktioner -> Indstillinger: Check 'Formler' under 'Vinduesindstillinger' på fanen 'Vis'

Hvad mener du med at formlerne er for lange?
Kan du ikke se hele indholdet, så dobbelklik på overskriftslinien (f.eks. A og B) mellem to kolloner, så udvider kollonen sig til størrelsen af det længste felt i kollonen.

ups... trækker lige den kommentar til mig igen :-)

jeg kan godt følge dig, men det er ikke helt det jeg vil.

Mange af alle de formler jeg har fylder et par linier, så det vil næsten være umuligt med det andet

Det jeg mere tænkte på var om man kunne få alle formlerne for sig selv med deres placering.

Altså lidt i den stil med det jeg viste i toppen

A2    =(G7/B43)+J4
A7    =......
A43  =......
B6    =......

Kan du bruge nedenstående kode?
Den frasorterer værdier, dvs. celler med en fast værdi (<> en formel).

Function getColName(col_no)
  a = col_no Mod 26
  b = col_no \ 26
  If b > 0 Then st = Chr(65 + b)
  st = st & Chr(65 + a)
  getColName = st
End Function
Function getCellName(r, c)
    getCellName = getColName(c) & r
End Function
Sub showFormula()
    Worksheets("Ark1").Activate
    ActiveSheet.UsedRange.Select

    Dim s As Range
   
    Set s = Selection
    For r = 1 To s.Rows.Count
        For c = 1 To s.Columns.Count
            If s(r, c).Cells(1, 1).Formula <> "" & (s(r, c).Cells(1, 1).Value) And s(r, c).Cells(1, 1).Formula <> "" Then
                st = st & getCellName(r, c) & s(r, c).Cells(1, 1).Formula & vbCrLf
            End If
        Next c
    Next r
           
    MsgBox st
   
End Sub

Du kan naturligvis bruge strengen st til hvad du vil, ex. skrive den ned i en tekstfil...

Du kan også lave denne funktion:

Function Visformel(a)
Visformel = a.Formula
End Function

Den virker ved at indtaste funktionen i en celle og i parantes den celle du vil ha' vist: =Visformel(A2)

hvor og hvordan skal det afvikles?? - tror du har fat i noget af det rigtige

Jeg kører en engelsk version, så du må selv bruge fantasien til at oversætte hvordan, men jeg plejer at gøre sådan:

Tryk på Alt+F8 så kommer makromenuen frem. Hvis der er makroer i forvejen, vælger du en af dem og vælger Edit(rediger), derefter trykker Ctrl+End så du kommer til slutningen af filen, her indsætter du de tre linier med funktionen.

Hvis der ingen makroer, så meld lige tilbage.

Denne makro opretter et nyt ark og skriver de informationer (arknavn, celle
, formel) der er knyttet til det ark du stod på da du startede makroen
Den skriver udelukkende de celler der er formler i.

Sub get_all_formulas()
Dim ActivSh As Worksheet, NewSh As Worksheet
Dim rng As Range, c As Range
Dim x As Long

Application.ScreenUpdating = False
Set ActivSh = ActiveSheet
Set NewSh = Worksheets.Add
Set rng = ActivSh.UsedRange.SpecialCells(xlCellTypeFormulas, 23)
For Each c In rng
    x = x + 1
    NewSh.Range("a1").Offset(x, 0) = c.Parent.Name & ",  " & c.Address & ",
" & c.FormulaLocal
Next
NewSh.Columns("A:A").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub

Bak -- det du skriver har jeg næsten fået til at virke, men synes ikke at den vil skrive hele formlen, den skriver kun hvor forlmel er og at det er en beregning.

Hvordan får jeg udtrukekt hele formlen

Det forstår jeg ikke lige. her funker den fint
Linien her var brækket, det er måske derfor
NewSh.Range("a1").Offset(x, 0) = c.Parent.Name & ",  " & c.Address & "," & .FormulaLocal


ellers prøv


Sub get_all_formulas()
Dim ActivSh As Worksheet, NewSh As Worksheet
Dim rng As Range, c As Range
Dim x As Long

Application.ScreenUpdating = False
Set ActivSh = ActiveSheet
Set NewSh = Worksheets.Add
Set rng = ActivSh.UsedRange.SpecialCells(xlCellTypeFormulas, 23)

For Each c In rng
    x = x + 1
    NewSh.Range("a1").Offset(x, 0) = c.Parent.Name & ",  " & c.Address
    NewSh.Range("a1").Offset(x, 1) = "'" & c.FormulaLocal
Next
NewSh.Columns("A:A").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub

Skrivefejl
NewSh.Range("a1").Offset(x, 0) = c.Parent.Name & ",  " & c.Address & "," & c.FormulaLocal

nu virker det - du er sku dygtig :-)

ok :-)