Bij dubbelklik de kolomletter platsen in cel

[danny147]

Beste

Heb een formule gevonden die bij dubbelklikken van de muis een "X" plaatst in een cel.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target = "X"
End Sub

Nu wil ik een stapje verder gaan en bij dubbelklik de kolomletter plaatst in de cel
Vb. als ik dubbelklik in cel C10 dan moet daar een "C" staan en dubbelklik ik in cel G2
dan moet daar "G" staan.

Groetjes Danny. :thumb:

 

[Jan van Asseldonk]

Target = Chr(ActiveCell.Column + 64)

 

[danny147]

Beste Jan van Asseldonk

Heb target ="X" verandert in Target = Chr(ActiveCell.Column + 64)

Helaas gebeurt er niets, of doe ik iets verkeerd ?

Groetjes Danny. :thumb:

 

[Wigi]

Target = Chr(ActiveCell.Column + 64)

En wat na kolom Z, Jan?

Kolom AA bijvoorbeeld zal [ krijgen, niet AA.

 

[danny147]

Best Jan van Asseldonk

Heb een foutje gemaakt, het lukt wel.
Bedankt.

Ja WIGI en wat na Z, is daar een oplossing voor?


Groetjes Danny. :thumb:

 

[Wigi]

Zie mijn site, dan Excel, dan Voorbeeldbestanden, dan Excel's kolommen.

Wigi

 

[Wigi]

Toch niet, het staat bij VBA-code

Zie mijn site, dan Excel, dan VBA-code, dan Excel's kolommen.

 

[Jan van Asseldonk]

En wat na kolom Z, Jan?

Dat lossen we via jouw site op, toch. :thumb:

 

[Wigi]

LOL

Ok dan, kant en klaar antwoord in dat geval!

 

[danny147]

Beste Wigi

Ben naar uw site geweest, maar wat moet ik er tussen plaatsen om na "Z" "AB" te krijgen.
VBA is nog altijd niet mijn sterkste kant.

Groetjes Danny. :thumb:

 

[Wigi]

Na Z komt AA, toch?

 

[danny147]

Beste Wigi

Ben er niet in geslaagd om de code te vinden na de "Z".
Maar ik ben al tevreden dat het al lukt tot aan de "Z".

Bedankt in ieder geval.

Groetjes Danny. :thumb:

 

[Wigi]

Ik dacht toch dat ik daar code voor geschreven heb, niet?

Maar ik zal straks eens kijken.

 

[PJGreeve]

Ik dacht toch dat ik daar code voor geschreven heb, niet?

Maar ik zal straks eens kijken.

Hoi Wigi,

Heb je die code nog gevonden?
Kan hem niet vinden op je site maar ben wel geïnteresseerd.:thumb:

Groeten
Paul

 

[danny147]

Beste PJGreeve

Hoi Wigi,

Heb je die code nog gevonden?
Kan hem niet vinden op je site maar ben wel geïnteresseerd.:thumb:

Groeten
Paul

Een topic van 2 jaar geleden haal je niet zomaar op.

Plaats in uw geval een nieuwe topic en verwijs naar deze.

Groetjes Danny. :thumb:

 

[cow18]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Value = Split(ActiveCell.Address, "$")(1)
End Sub

 

[huijb]

Op slot dus. Zoals gezegd, een gedateerde topic.