Een cel tussen aanhalingstekens

[nielsbl11]

Ik ben nog een vraagje over het plaatsen van aanhalingstekens.

(Meteen maar een voorbeeldbestand bijgevoegd om misverstanden te voorkomen)

"=C5" nu weergeeft hij dit als tekst (logisch) maar dit is niet de bedoeling stel in C5 staat Hallo

dan moet hij "Hallo" weergeven

 

[koster1984]

Dan moet ie als volgt:

=""""&D5&""""

 

[Roncancio]

Nederlands

=TEKEN(34)&D5&TEKEN(34)

Engels

=CHAR(34)&D5&CHAR(34)

Met vriendelijke groet,


Roncancio

 

[nielsbl11]

Ronancio de code werkt maar nu heb ik een volgend probleempje

ik heb nu het volgende :

=TEKEN(34)&C125&TEKEN(34)

nu haalt hij de waarde uit C125 en die plaatst hij in de cel. Hij weergeeft het zoals ik wil maar de code moet over worden gezet naar een 3D software programma (unigraphics) hier weergeeft hij alleen 1x "&".

heeft iemand hier misschien een oplossing?? manieren om C125 tussen aanhalingstekens in een cel te krijgen zodat hij de waarde misschien wel overneemt.

 

[Roncancio]

Betreffende cel(len) met de formule kopiëren en bij plakken speciaal kiezen voor het plakken van waardes.

Met vriendelijke groet,


Roncancio

 

[nielsbl11]

gelukt,

dankuu

 

[nielsbl11]

gelukt,

dankuu

Kort vraagje nog :$

hoe kun je zorgen dat een cel altijd tussen aanhalingstekens komt te staan

ik heb wel iets dat ik met vba automatisch van een - een _ kan maken maar nu moet er in een cel altijd de waarde tussen " " komen te staan

 

[nielsbl11]

For Each cl In Range("A1:A200").SpecialCells(2)
cl.Value = Replace(cl.Value, "-", "_")
Next

 

[Roncancio]

Bij het invoeren in de cel:

Private Sub Worksheet_Change(ByVal Target As Range)
If Left(Target, 1) <> Chr(34) Then Target = Chr(34) & Target & Chr(34)
End Sub

Bij alle cellen in een bereik

Sub Quotes()
For Each cell In Range("A1:A10")
    cell.Value = Chr(34) & cell.Value & Chr(34)
Next
End Sub

Met vriendelijke groet,


Roncancio

 

[nielsbl11]

Private Sub Worksheet_Change(ByVal Target As Range)
If Left(Target, 1) <> Chr(34) Then Target = Chr(34) & Target & Chr(34)
End Sub

als ik bijvoorbeeld de waarde in B3 tussen aanhalingstekens wil?

 

[Roncancio]

Sub Haakjes()
Range("B3").Value = Chr(34) & Range("B3").Value & Chr(34)

End Sub

Met vriendelijke groet,


Roncancio