Vba: een kolomnummer naar een letter converteren

U kunt de volgende syntaxis in VBA gebruiken om een kolomnummer naar een letter te converteren:

 Sub ConvertNumberToLetter()
Range(" B2 ") = Split((Columns(Range(" A2 ")).Address(, 0)), " : ")(0)
End Sub

Deze specifieke macro converteert het kolomnummer in cel A2 naar een letter en geeft de letter weer in cel B2 .

Als de waarde in cel A2 bijvoorbeeld 4 is, wordt in cel B2 ‚D‘ weergegeven, omdat dit de letter is die overeenkomt met de vierde kolom in Excel.

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: Converteer kolomnummer naar letter in VBA

Stel dat we willen weten welke kolomletter overeenkomt met een kolomnummer 4 in Excel:

We kunnen de volgende macro maken om dit getal naar een letter te converteren:

 Sub ConvertNumberToLetter()
Range(" B2 ") = Split((Columns(Range(" A2 ")).Address(, 0)), " : ")(0)
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Cel B2 geeft de waarde “D” weer, omdat dit de letter is die overeenkomt met de vierde kolom.

Als we het getal in cel A2 wijzigen en de macro opnieuw uitvoeren, wordt in cel B2 de bijgewerkte kolomletter weergegeven.

Stel dat we het getal in cel A2 wijzigen in 73 en de macro opnieuw uitvoeren:

Cel B2 geeft nu de waarde “BU” weer, aangezien dit de kolomletter is die overeenkomt met de 73e kolom.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: Hoe de laatst gebruikte regel te vinden
VBA: Hoe de laatst gebruikte kolom te vinden
VBA: het aantal gebruikte kolommen tellen