visual basic

[Simgill]

Hello

I have a problem in Visual basic with Numberformat.

I have a large matrix (schedule) in excel with diverent names (random text of MAX 3 initials /cell) when I click with the Right moussebutton on the activecell I wants that the content (text) of the activecell confert to NUMBER format.

Exemple: when I click (procedure Worksheet_BeforeRightClick) on activecell "ABC" I want the letters "ABC" as numberformat so when I fill in afterwards a number ( for exemple number one ) I see "ABC" in the activecell but number one in the formulabalk

Module that doesn't work:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim cel As String
cel = ActiveCell.Value
If ActiveCell.Value <> "" And ActiveCell.Value <> 1 Then
ActiveCell.NumberFormat = cel
ActiveCell.Value = 1
Cancel = True
End If
End Sub

Many Thanks

Johan

 

[Cobbe]

I have a problem with the language.

 

[sylvester-ponte]

Johan, in het Nederlands begrijp ik je beter,
maar heb je een voorbeeld bestandje? ( an exemple Excefile )

 

[Simgill]

Mijn excuses.
Aanvankelijk eerst de vraag gesteld op het forum van Microsoft (Engels) maar daar begrepen ze de doelstelling niet.
Het komt er op neer dat ik graag bij het aanklikken van onderstaande procedure in VB graag de inhoud van de activecell (willekeurige tekst van max 3 karakters) had overgedragen naar de notatiecode. Zie voorbeeld: de activecell met inhoud is nu 1 in de formulebalk maar de notatie is "ABC"


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim cel As String
cel = ActiveCell.Value
If ActiveCell.Value <> "" And ActiveCell.Value <> 1 Then
ActiveCell.NumberFormat = cel
ActiveCell.Value = 1
Cancel = True
End If
End Sub

Met oprechte dank
Johan

 

[VenA]

Aanvankelijk eerst de vraag gesteld op het forum van Microsoft (Engels) maar daar begrepen ze de doelstelling niet.

Daar kan ik mij dan ook geheel bij aansluiten.

De vraag van sylvester-ponte was een voorbeeldbestand. Voor plaatjes moet je op andere fora zijn.