Har en regneark hvor jeg skal have sat " før og efter alle felt

Er det en del af teksten du skal bruge. F.eks. skal "Lars Larsen" blive til "Lars" i én celle og "Larsen" i anden celle?
Hvis ja, skal du have fat i venstre og højre funktionerne..

Hvis du gør følgende:
1. Højreklik på cellen, vælg Format cells -> Custom
2. Skriv \"@\"  i tekstfeltet, og klik ok.

Så burde teksten være omgivet af gåseøjne, både foran og efter teksten i cellen

blackadder > ja, men det er visuelt, de er der ikke fysisk.

Hvis de skal være der fysisk, så marker de celler der ønskes " foran og bagved, og kør så makroen


Public Sub Gåseøjne()
For Each C In Selection
C.Value = Chr(34) & C.Value & Chr(34)
Next
End Sub

Hvordan laver man sådan en makro ??

Hvis du ikke vil bruge en makro kan du oprette en kolonne ved siden af den oprindelige en formel.

F.eks: Hvis der står Frank i F9

Indsæt i G10:
=CONCATENATE(CHAR(34);F9;CHAR(34))

Vil der stå "Frank" i G10

kabbak >> interessant detalje, så har jeg lært det idag :-)

Jeg har 2000 linier der går til J
Det er både tal og bogstaver ...Hvordan gør jer det nemmest

det nemmeste er makroen.

Højreklik på en arkfane, vælg vis programkode

nu er du i vba

vælg insert > module


Kopier min kode derind

Luk oppe i øverset X til højre.

maker alle celler du vil have " omkring.

kør koden via makroer kør

Men husk kør den kun en gang, ellers får du ""Frank""

ok...*ss*
Det er næsten 10-4 men der kommer nogle ekstra dicimaler på !!!
Der hvor der før stod 705 står det nu "705,09"
Hvad gør jeg ved det ??

det er fordi du ikke viste decimaler i dit regneark, de har altid været der, men du har ikke kunnet se dem, fordi du ikke ville se decimaler.

Skulle det have været heltal. ?

En anden ting, hvis du havde formler i cellerne, er de væk nu, der er kun resultatat.

det skal kun være heltal...

så skal koden se sådan ud

Public Sub Gåseøjne()
For Each c In Selection
If IsNumeric(c) Then
c.Value = Chr(34) & Int(c.Value) & Chr(34)
Else
c.Value = Chr(34) & c.Value & Chr(34)
End If
Next
End Sub


Håber at det var en test du kørte, for men kan ikke fortryde en makro.

her er en der tjekker om cellen har " i forvejen, så gør det ikke noget at den køres flere gange.

Public Sub Gåseøjne()
For Each c In Selection
If Left(c.Value, 1) <> Chr(34) Then
If IsNumeric(c) Then
c.Value = Chr(34) & Int(c.Value) & Chr(34)
Else
c.Value = Chr(34) & c.Value & Chr(34)
End If
End If
Next
End Sub

kabbak svar hvis du vil have point

et svar. ;-))

Tak for point.

du har fortjent dem.....