[Excel 2007, VBA] Éénmalig symbool toevoegen voor cijfer

[tijmen_4real]

Hoi,

Na het invullen van een cijfer in cel C13 wil ik éénmalig het symbool < hiervoor toevoegen.
Ik krijg dit via diverse wegen echter niet voor elkaar.
Wil iemand mij helpen aan/met een oplossing hiervoor?

Bij voorbaat dank en met vriendelijke groet,

Tijmen

 

[Cobbe]

Zet er een ' voor.

 

[tijmen_4real]

Zet er een ' voor.

Ik begrijp je antwoord niet...
Het gaat, zoals de titel van mijn vraag luidt, over een oplossing in VBA.
Iemand geeft het cijfer 6 aan in een cel.
Hier moet de VBA-code vervolgens <6 van maken.

Sub AppendToExistingOnRight()
Dim c as range
For each c in Selection
If c.value <> "" Then c.value = c.value & "@gmail.com" 
Next
End Sub

Geprobeerd aan te passen naar enkele cel, er gebeurde niets...

ActiveCell.Value = ActiveCell.Value & " T"

Ook aangepast, in een sub verwerkt, geen effect.
Wat werkt wel?

 

[Cobbe]

Is dit dan de bedoeling?

 

[snb]

De macro loopt niet uit zichzelf. Je moet hem een zetje geven of eerst je de basisbeginselen van VBA eigen maken.

 

[tijmen_4real]

Is dit dan de bedoeling?

Ik dank u zeer!

 

[tijmen_4real]

Is dit dan de bedoeling?

Nu heb ik jouw code overgenomen in mijn bestaande bestand, en de range aangepast ("C13").
Omdat er al een sub met dezelfde naam was, en een andere functie, heb ik deze samengevoegd.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("C4:C5")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True

On Error GoTo oeps
If Intersect(Target, Range("C13")) Is Nothing Or Target.Value = "" Then Exit Sub
 With Application
   .EnableEvents = False
       Target.Value = "< " & Target.Value
oeps:
   .EnableEvents = True
 End With
End Sub

Nu werkt echter de ene of de andere, niet samen. Ik heb het idee dat het te maken heeft met de .EnableEvents. (?)
Hoe los ik dat op?

 

[Cobbe]

Test het zo eens:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo oeps
If Intersect(Target, Range("C4:C5,C13")) Is Nothing Then Exit Sub
With Application
  .EnableEvents = False
   With Target
    .Value = UCase(Target.Value)
      If .Address = "$C$13" And IsNumeric(.Value) Then
       .Value = "< " & Target.Value
      End If
   End With
oeps:
   .EnableEvents = True
 End With
End Sub

 

[snb]

gebruik numberformat "<"@