Inputbox geeft "waarde" en ik wil waarde (zonder "")

[BasHD]

Hallo mensen,

Ik heb het volgende inputboxje gemaakt:

Invoer = InputBox("Geef in te voeren letter", "Kolom invoer")


Je moet hier de kolomletter invoeren die ik later wil gaan gebruiken.
Als ik a of A invul dan loopt het volgende fout :

Cells(Invoer, 3).Select

Waarom? Omdat a of A tussen "" staat dus Invoer heeft waarde "a" of "A"

Dat wordt niet goed opgepakt. Hoe krijg ik die "" weg?

Gr

Bas

 

[Wigi]

Bvb.

Cells(Application.InputBox("Geef in te voeren letter", "Kolom invoer", Type:=1), 3).Select

 

[BasHD]

Ik wil graag een letter als invoer behouden!

Hallo Wigi,

Dit werkt als ik in plaats van A een 1 invul en B een 2.

Excel geeft ook aan dat als ik nu een letter invul in de inputbox dat ik geen geldig getal heb ingevuld.

Verderop in mijn VBA zou het handig zijn als ik gewoon de letter A of B zou kunnen invoeren in de inputbox. Alleen dan moeten die "" eromheen weg.

Gr Bas

 

[Roncancio]

Cells(Invoer, 3).Select

..gaat sowieso fout omdat bij Cells eerst het rijnummer en daarna het kolomnummer moet worden geplaatst.
Dus:

Cells(3, Invoer).Select

Met vriendelijke groet,


Roncancio

 

[Ginger]

Ehhh... we hebben het toch over het opvragen van de KOLOMletter??? Volgens de syntax van Cells is dat de 2e waarde! Dit lijkt me dus beter... Cells(3, Invoer).select

Groet, Leo

[EDIT] Hmmm... DAT had Roncancio óók al door...

 

[snb]

Cells(3,asc(InputBox("Geef in te voeren letter", "Kolom invoer")-64)).Select

 

[Warme bakkertje]

Zo doet hij het wel

Cells(3, Asc(InputBox("Geef in te voeren letter", "Kolom invoer")) - 64).Select

 

[BasHD]

weer een stukje verder

Hallo mensen,

Tjonge wat reageren jullie snel met z'n allen zeg. Dank u dank u

Even verder op heb ik het volgende:

Range("I9").Select
Aantal = ActiveCell.Cells + 2

Rows("3:" & Aantal).Select

Selection.Sort Key1:=Range("AE3"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Hoe kan ik nu de kolomletter nu ook direct in het rode stukje krijgen. Nu staat er AE maar dat is vast. Ik wil dit variable hebben en dan de kolomletter uit de inputbox.

Asc(InputBox("Geef in te voeren letter", "Kolom invoer")) - 64) Kan dit stukje ook los werken buiten de Cells.Select????

Ik heb het e e a geprobeerd maar kom er even niet uit.

Gr

Bas

 

[Roncancio]

Zo doet hij het wel

Cells(3, Asc(InputBox("Geef in te voeren letter", "Kolom invoer")) - 64).Select

Dan klopt het nóg niet.
Zo wel.

Cells(3, Asc(InputBox("Geef in te voeren letter", "Kolom invoer")) - 96).Select

Maar kolommen die uit meer dan 1 letter bestaan worden zo niet gevonden.
Bovendien werkt de kolomletters niet, dus...

Met vriendelijke groet,


Roncancio

 

[snb]

Sub tst()
    Cells(3, Range(InputBox("test", "titel") & "$1").Column).Select
End Sub

 

[Warme bakkertje]

Zoiets misschien ?

Rows("3:" & [I9] + 2).Sort Key1:=Cells(3, Range(InputBox("Geef in te voeren letter", "Kolom invoer") & "$1").Column), _
    Order1:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

 

[Ginger]

....waarom moeilijk doen om de kolomLETTER op te halen? Het is makkelijker om te werken met het kolomNUMMER. Speel maar 'ns met dit codeblokje....

Sub ff()
Dim rngKolomNr As Range

    On Error Resume Next
    Do While rngKolomNr Is Nothing
        Set rngKolomNr = Application.InputBox("klik een cel in de gewenste kolom aan...", "Kies kolom", , , , , , 8)
    Loop
    On Error GoTo 0
    
    MsgBox "de gekozen kolom is: " & rngKolomNr.Column
    
End Sub

Groet, Leo

 

[BasHD]

Antwoord

Ik weet ook wel uit ervaring dat het bij programeren makkelijker werkt met kolomnummer.

Je kan dan doortellen etc.

Echter hier wil ik wat data's bekijken en de ene keer is het verschil zo dat ik de kolom even wil rangschikken en morgen kan het zo zijn dat het niet eens interessant is om die kolom te rangschikken. Vandaar dat ik wat flexibel wilde blijven. Als ik iets vreemds zie in een kolom geef ik de letter en hop de data worden gesorteerd. Als er niet vreemds is doe ik er niets mee. En als ik bij AK ben weet ik niet direct uit m'n hoofd welk nummertje daarbij hoort en vult AK makkelijker in. UIteindelijk heeft de oplossing van warme bakkertje mij voldoende opgeleverd.

Even gesplitst omdat er binnen 2 bladen gegevens opgehaald worden.

Sub KiesKolom()

Sheets("Blad1").Select
Range("I9").Select
Aantal = ActiveCell.Cells + 2

Sheets("Div. sorteren").Select

Selection.Sort Key1:=Cells(3, Range(InputBox("Geef in te voeren letter", "Kolom invoer") & "$1").Column), _
Order1:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom



End Sub