vbscript: plaasten van quotes in geselecteerde kolom

[bling]

In een excel bestand wil ik in een geselecteerde kolom quotes toevoegen.
Omdat ik niets kon vinden als 'actievekolom' heb ik de volgende code geschreven in de hoop dat alle geselecteerde cellen gemuteerd werden:

Sub Haakjes()

If ActiveCell.Value <> "" Then
ActiveCell.Value = """" & ActiveCell.Value & """"
End If

End Sub

Helaas wordt alleen 1 cel van de selectie als active gezien.

Iemand een idee hoe ik binnen Excel alle waarden in de velden (van de gespecificeerde kolommen) tussen dubbele quoteskan krijgen (zo dus: “groen” )?

 

[Wigi]

Zo bvb:

Sub Haakjes()

Dim r As Range

For Each r In Columns(5).SpecialCells(xlCellTypeConstants, 3)
    r.Value = Chr(34) & r.Value & Chr(34)
Next

End Sub

Hier is het voor kolom E gedaan (de 5de). Pas aan indien nodig.

Wigi

 

[bling]

Okey, duidelijk! :thumb:

Is het ook mogelijk het columns-getal (in het voorbeeld 5) afhangkelijk te maken van de selectie van een gebruiker?

Zo bvb:

Sub Haakjes()

Dim r As Range

For Each r In Columns(5).SpecialCells(xlCellTypeConstants, 3)
    r.Value = Chr(34) & r.Value & Chr(34)
Next

End Sub

Hier is het voor kolom E gedaan (de 5de). Pas aan indien nodig.

Wigi

 

[Jan van Asseldonk]

Zo dan

Sub Haakjes()

Dim r As Range

For Each r In Columns(ActiveCell.Column).SpecialCells(xlCellTypeConstants, 3)
    r.Value = Chr(34) & r.Value & Chr(34)
Next

End Sub

 

[bling]

Sub Haakjes1()


Dim r As Range
i = Selection.Column
For Each r In Columns(i).SpecialCells(xlCellTypeConstants, 3)
    r.Value = Chr(34) & r.Value & Chr(34)
Next

End Sub

Okey, duidelijk! :thumb:

Is het ook mogelijk het columns-getal (in het voorbeeld 5) afhangkelijk te maken van de selectie van een gebruiker?

 

[Wigi]

Dat zal ook werken, maar maak er een goede gewoonte van om variabelen te declareren:

Dim i As Integer

Kan een hoop ellende besparen later.

Wigi

 

[bling]

Ik ben even benieuwd naar waar de 3 voor staat bij:

SpecialCells(xlCellTypeConstants, 3)

?

Dat zal ook werken, maar maak er een goede gewoonte van om variabelen te declareren:

Dim i As Integer

Kan een hoop ellende besparen later.

Wigi

 

[Wigi]

Daar heb je helpfiles voor Bling.