• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

opmaak via cel eigenschappen

Status
Niet open voor verdere reacties.
C

cor.de.kruijf

Gebruiker
Lid geworden
5 mrt 2001
Berichten
233
hallo allemaal,

ik zoek me al enige dagen suf naar het volgende

als ik in een cel bv test invoer wil ik dat het via celeigenschappen, getal,aangepast "test"! wordt.

is dit überhaupt mogelijk?

bij voorbaat dank voor het meedenken

Cor
 
Waarom getal als een een tekst betreft?
 
Daar staan veel meer eigenschappen en Getal heeft niets met tekst te maken.
Plaats dus een voorbeeld document en leg daarbij uit wat je exact bedoelt.
 
Denk dat TS bedoelt dat je via Rechtermuisknop > Celeigenschappen > tabje Getal bij het format "Aangepast" komt.

Daar is het gewenste format schijnbaar: de ingevoerde tekst uit een cel tussen aanhalingstekens, en een uitroepteken erachter.

Ik heb even zitten speuren, maar kwam erachter dat aangepaste formats voor getallen heel gemakkelijk zijn, maar aangepaste formats voor teksten vrijwel niet bestaan in Excel! Maar wellicht dat iemand mij kan bijscholen....
 
Laatst bewerkt:
Ik had dus de verkeerde "Getal" voor ogen :)
Hoe het op de gevraagde manier moet zou ik zo niet weten.
Wel kan het simpel met een eventprocedure achter dat werkblad:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target <> "" And Target.Count = 1 Then
        Application.EnableEvents = False
        Target.Value = Chr(34) & Target.Value & Chr(34)
        Application.EnableEvents = True
    End If
End Sub

In het document:
Bekijk bijlage Kopie van Map1.xls
 
Laatst bewerkt:
Kleine aanpassing nog voor als je een bestaande waarde in een cel aanpast:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target <> "" And Target.Count = 1 And Left(Target.Value, 1) <> Chr(34) And Right(Target.Value, 1) <> Chr(34) Then
        Application.EnableEvents = False
        Target.Value = Chr(34) & Target.Value & Chr(34)
        Application.EnableEvents = True
    End If
End Sub
 
Top, nogmaals bedankt

sorry, kom er nog een keer op terug.
dacht dat het makkelijk aan te passen is maar ik mis ergens een paar hersencellen geloof ik.
Hoe pas ik het aan zodat het (2x single quote) ''test'! wordt?
 
Laatst bewerkt:
Wijzig 34 in 39. De enkel quote moet er aan het begin dan wel 2x staan.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target <> "" And Target.Count = 1 And Left(Target.Value, 1) <> Chr(39) And Right(Target.Value, 1) <> Chr(39) Then
        Application.EnableEvents = False
        Target.Value = Chr(39) & Chr(39) & Target.Value & Chr(39) & "!"
        Application.EnableEvents = True
    End If
End Sub

Of:
"'" in plaats van Chr(39)
 
Laatst bewerkt:
ik heb hem denk ik

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target <> "" And Target.Count = 1 And Left(Target.Value, 1) <> Chr(39) And Left(Target.Value, 1) <> Chr(39) And Right(Target.Value, 1) <> Chr(39) And Right(Target.Value, 1) <> Chr(33) Then
Application.EnableEvents = False
Target.Value = Chr(39) & Chr(39) & Target.Value & "'!"
Application.EnableEvents = True
End If
End Sub
 
Slip of the finger ;)
Aangepast.

Edit:
Precies :)

NB:
Gebruik codetags bij het plaatsen van code.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan